Переход по строкам "-" одно значение

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход по строкам "-" одно значение (Макросы/Sub)

bumnik

Дата: Воскресенье, 20.03.2016, 10:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 185

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007,2010

Здравствуйте! Данный код позволяет быстро перемещаться по страницам вверх и при этом нумерует страницы. Всё работает, но не могу понять как изменить код таким образом чтобы нумерация начиналась от 1 и до 100? В моём случае нумерация может быть менее 1 и более 100.
[vba]

Код

Sub вверх_сторона_1()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ActiveWindow.SmallScroll up:=47
    Range("BE2") = Range("BE2") - 1
    Sheets("Наряд 2").Visible = True
    Sheets("Наряд 2").Select
    ActiveWindow.SmallScroll up:=36
    Range("AV2") = Range("AV2") - 1
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Наряд 1").Select
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

[/vba]

Ответить

Karataev

Дата: Воскресенье, 20.03.2016, 11:05 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

покажите файл (можете удалить все данные или замените данные на какие-нибудь выдуманные), иначе не понятна ситуация

Ответить

KuklP

Дата: Воскресенье, 20.03.2016, 11:11 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата bumnik, 20.03.2016 в 10:42, в сообщении № 1

чтобы нумерация начиналась

- начиналась где? Нам угадать? Этот ваш код ничего не нумерует, он меняет значение двух ячеек в разных листах на единицу меньше и при этом с непонятной целью ерзает по листам, что вовсе необязательно. Хотите помощи, выкладывайте пример.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Karataev

Дата: Воскресенье, 20.03.2016, 11:14 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

одна мысль у меня есть, может быть поможет:
[vba]

Код

Sub вверх_сторона_1()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ActiveWindow.SmallScroll up:=47
    Range("BE2") = IIf(Range("BE2") <= 1, 100, Range("BE2") - 1)
    Sheets("Наряд 2").Visible = True
    Sheets("Наряд 2").Select
    ActiveWindow.SmallScroll up:=36
    Range("AV2") = IIf(Range("AV2") <= 1, 100, Range("AV2") - 1)
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Наряд 1").Select
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

[/vba]
P.S. изменил макрос в соответствии с постом 5 (так удобнее получается)