Userform - переход по кнопке между страницами
Модератор: Naeel Maqsudov
Подскажите, пожалуйста, что нужно прописать кнопке, чтобы при нажатии можно было перейти на другую страничку в 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
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216