Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как посмотреть код vba
 
#1
02.08.2017 13:09:56
Доброго дня!
Вот есть на форуме старая тема:
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=2578
И в этой теме приложен файл уважаемым Юрий М.
Вот ссылка на этот файл:
http://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=9188&action=download
Подскажите пожалуйста, как посмотреть код этих штуковин.
Потому что я включаю "режим конструктора", выделяю кнопку на экране, жму "просмотр кода" и вижу только:
Код
Sub Form()
   UserForm1.Show
End Sub
Как то не густо.... Я наверно что то не так делаю. Подскажите как увидеть весь код целиком.
Спасибо.
 
 
 
#2
02.08.2017 13:13:01
Смотрите свойство комбобокса
 
 
 
#3
02.08.2017 13:14:28
Для кнопки это и есть весь код. Код самой формы находится в модуле формы, там его и смотрите.
Что такое модуль? Какие бывают модули?
Я сам - дурнее всякого примера! ...
 
 
 
#4
02.08.2017 13:21:24
Цитата
Logistic написал:
Смотрите свойство комбобокса
А как его посмотреть, если после нажатия на кнопку появляется UserForm1 (наверно это и есть комбобокс), и больше ничего нельзя сделать? Т.е. свойства не посмотреть уже. Нельзя ничего нажать или включить контекстное меню, т.к. форма ждет ввода данных.

Вот все что можно увидеть через редактор vba:
Код
Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
   Range("D1") = ComboBox1.Value
   Unload UserForm1
End Sub

Private Sub UserForm_Click()

End Sub
Изменено: john22255 - 02.08.2017 13:23:41
 
 
 
#5
02.08.2017 13:37:11
Протестируйте так.
 
 
 
#6
02.08.2017 13:42:52
Цитата
Logistic написал:
Протестируйте так
У вас так же малоинформативный код:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
 
 
 
#7
02.08.2017 13:44:24
А какую Вам надо информацию? :(  
 
 
 
#8
02.08.2017 13:45:26
Смотрите
Код
Private Sub CommandButton1_Click()
   Range("D1") = ComboBox1.Value
   Unload UserForm1
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
02.08.2017 13:48:50
Цитата
Logistic написал:
А какую Вам надо информацию?
Я бы хотел приспособить этот способ (диалоговое окно с выпадающим списком) для собственных нужд. И хотел бы понять как мне это сделать. Но понять не могу. Например непонятно где поменять диапазон списка. Ведь в искомом файле он B2:B11, а мне нужен другой диапазон.
Изменено: john22255 - 02.08.2017 13:51:19
 
 
 
#10
02.08.2017 13:50:35
Цитата
все что можно увидеть через редактор vba
Alt + F11
Forms --> UserForm1 кликните мышкой и выбирайте нужные вам элементы
 
 
 
#11
02.08.2017 13:54:31
Цитата
john22255 написал:
Нельзя ничего нажать или включить контекстное меню
а Вы отожмите кнопку режима конструктора, ознакомьтесь с азами работы в VBA(где модули, как попасть) и все у Вас получится. Вам надо всего-то нажать Alt+F11, Ctrl+R(для отображения окна проектов) - найти там свой файл, раскрыть и поискать там везде эту самую UserForm. Вот в ней весь код и найдете.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#12
02.08.2017 14:04:53
Спасибо,всем откликнувшимся! Я кажется нашел в частности где поменять диапазон списка:
 
 
 
#13
02.08.2017 14:06:42
Я ведь Вам писал ,смотрите свойства комбобокса :)  
 
 
 
#14
02.08.2017 14:13:18
Цитата
Logistic написал:
Я ведь Вам писал
Извините, но до меня сразу не дошло, что вы имеете ввиду
 
 
 
#15
02.08.2017 14:19:40
Цитата
john22255 написал:
где поменять диапазон списка
Вот это и надо было спросить в топике, а не ходить вокруг, да около. Конспиратор.. 15 пост в теме!
Цитата
The_Prist написал:
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх