Userform - переход по кнопке между страницами

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Tink
Сообщения: 3
Зарегистрирован: 28 июл 2009, 16:32

Подскажите, пожалуйста, что нужно прописать кнопке, чтобы при нажатии можно было перейти на другую страничку в userform?
Аватара пользователя
EducatedFool
Сообщения: 197
Зарегистрирован: 06 апр 2008, 14:03
Откуда: Россия, Урал
Контактная информация:

Так, что ли, надо?

Изображение


В этом случае всё просто:

Код: Выделить всё

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click() [color=green]' предыдущая[/color]
    [color=darkblue]With[/color] Me.MultiPage1
        .Value = (.Value + .Pages.Count - 1) Mod .Pages.Count
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton2_Click() [color=green]' следующая[/color]
    [color=darkblue]With[/color] Me.MultiPage1
        .Value = (.Value + 1) Mod .Pages.Count
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton3_Click() [color=green]' выход[/color]
    Unload Me
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
Изображение
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/

Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Tink
Сообщения: 3
Зарегистрирован: 28 июл 2009, 16:32

Дааа! Спасибо огромное :)
Ответить