ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите составить верное условие VBA
6 сообщений из 6, страница 1 из 1
Помогите составить верное условие VBA
    #36555765
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Я не профф и мне до программера еще далеко (((

Застрял я на такой идее. Создал меню UserForm разместил на ней, два optionButton.

Хотел при загрузки UserForm которое запускается с двух листов в книге Excel. Написать условие, которое бы определяла в зависимости от того с какого листа я открываю UserForm с 1 или 2 в книге excel, тот optionButton становился включенным.

Как правильно создать данное условие?

Примитивное что я мог придумать :
Код: plaintext
1.
2.
3.
if activesheet = worksheet( 1 ) then
 UserForm.optionButton1 = true
end if

но данное условие не работает :))
За ранее спасибо )))
...
Рейтинг: 0 / 0
01.04.2010, 15:22
| Ответить | Цитировать | Написать  
Помогите составить верное условие VBA
    #36555812
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
После запуска формы устанавливайте нужную опцию и не нужно никаких условий

Код: plaintext
1.
UserForm1.Show
optionButton1.Value=True
А с другого листа
Код: plaintext
1.
UserForm1.Show
optionButton2.Value=True
...
Рейтинг: 0 / 0
01.04.2010, 15:32
| Ответить | Цитировать | Написать  
Помогите составить верное условие VBA
    #36555816
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
точнее так

Код: plaintext
1.
UserForm1.Show
UserForm1.optionButton1.Value=True
А с другого листа
Код: plaintext
1.
UserForm1.Show
UserForm1.optionButton2.Value=True
...
Рейтинг: 0 / 0
01.04.2010, 15:32
| Ответить | Цитировать | Написать  
Помогите составить верное условие VBA
    #36555908
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Shocker.Proточнее так

Код: plaintext
1.
UserForm1.Show
UserForm1.optionButton1.Value=True
А с другого листа
Код: plaintext
1.
UserForm1.Show
UserForm1. 2 .Value=True


Там надо с условием... так как у меня код он один, запускающий UserForm.

Графически выгляди так. Лист(sheet) -> UserForm1 -> UserForm2 с optionButton

userForm1 так можно сделать... а вот с UserFom2 которая запускается с UserForm1 такой код не подходит...
...
Рейтинг: 0 / 0
01.04.2010, 15:57
| Ответить | Цитировать | Написать  
Помогите составить верное условие VBA
    #36555932
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
lopuxi, Вы неправильно создаёте условие. То, что Вы хотели написать, должно выглядеть так:
Код: plaintext
If ActiveSheet Is Worksheets( 1 ) Then
(т.е. в этом условии Вы допустили две ошибки)
...
Рейтинг: 0 / 0
01.04.2010, 16:06
| Ответить | Цитировать | Написать  
Помогите составить верное условие VBA
    #36556005
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
vlthlopuxi, Вы неправильно создаёте условие. То, что Вы хотели написать, должно выглядеть так:
Код: plaintext
If ActiveSheet Is Worksheets( 1 ) Then
(т.е. в этом условии Вы допустили две ошибки)

Вот, верное условие. Всем спасибо больше теперь работает! :)
...
Рейтинг: 0 / 0
01.04.2010, 16:23
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите составить верное условие VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]