Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа с переключателями - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с переключателями (Макросы/Sub)
Работа с переключателями
lastik911 Дата: Пятница, 22.04.2016, 08:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

[moder]Задвоение. Закрыто


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

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

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

[moder]Задвоение. Закрыто

Автор - lastik911
Дата добавления - 22.04.2016 в 08:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с переключателями (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!