Работа с переключателями

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с переключателями (Макросы/Sub)

lastik911

Дата: Пятница, 22.04.2016, 08:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2010

Добрый день , товарищи! Возникла такая задачка с которой никак самому справиться не получается. Суть такая . При инициализации формы добавляется переключатель , в конечном счете надо , чтобы при его нажатие происходили какие нибудь действия , скрытие или чтобы отображались другие формы.
Код такой :
[vba]

Код

Private Sub UserForm_Initialize()
Dim y As MSForms.Control
Dim x As MSForms.MultiPage
Set x = UserForm1.Controls.Add("Forms.multipage.1")
With x
.Height = UserForm1.Height
.Width = UserForm1.Width
.Pages.Clear
.TabFixedHeight = 20
.TabFixedWidth = (UserForm1.Width / 6) - 1

[hide]
For i = 0 To 5
.Pages.Add ("level" & i + 1)

Next i

End With
Set y = x.Pages(0).Controls.Add("forms.optionbutton.1")

End Sub

[/vba]

Сообщение отредактировал lastik911 - Пятница, 22.04.2016, 09:08

Ответить

китин

Дата: Пятница, 22.04.2016, 08:37 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

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

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

Excel 2007;2010;2016

коды надо в тэги

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852