Userform - переход по кнопке между страницами
Добавлено: 28 июл 2009, 17:07
Подскажите, пожалуйста, что нужно прописать кнопке, чтобы при нажатии можно было перейти на другую страничку в userform?
В этом случае всё просто:
Код: Выделить всё
[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]
