Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите составить верное условие VBA / 6 сообщений из 6, страница 1 из 1
01.04.2010, 15:22
    #36555765
lopuxi
lopuxi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите составить верное условие VBA
Я не профф и мне до программера еще далеко (((

Застрял я на такой идее. Создал меню 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:32
    #36555812
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите составить верное условие VBA
После запуска формы устанавливайте нужную опцию и не нужно никаких условий

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

Код: plaintext
1.
UserForm1.Show
UserForm1.optionButton1.Value=True
А с другого листа
Код: plaintext
1.
UserForm1.Show
UserForm1.optionButton2.Value=True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2010, 15:57
    #36555908
lopuxi
lopuxi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите составить верное условие VBA
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, 16:06
    #36555932
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите составить верное условие VBA
lopuxi, Вы неправильно создаёте условие. То, что Вы хотели написать, должно выглядеть так:
Код: plaintext
If ActiveSheet Is Worksheets( 1 ) Then
(т.е. в этом условии Вы допустили две ошибки)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2010, 16:23
    #36556005
lopuxi
lopuxi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите составить верное условие VBA
vlthlopuxi, Вы неправильно создаёте условие. То, что Вы хотели написать, должно выглядеть так:
Код: plaintext
If ActiveSheet Is Worksheets( 1 ) Then
(т.е. в этом условии Вы допустили две ошибки)

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


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