вызов автоформы для ввода данных - Microsoft Office Excel

Red Warrior · 04.06.2013, 18:16

Добрый день!
Никто не подскажет.
Сделал вызов автоформы для таблицы №1 - кнопка "Таблица№1" - работает. Вызов автоформы для таблицы №2 - кнопка "Таблица№2" не работает вызывает форму таблицы №1. Это как-нибудь лечится?
С уважением, Александр.

IgorGO · 04.06.2013, 18:34

из справки о ShowDataForm
This method runs the custom data form, if one exists.
запускает форму для ввода данных, если они есть!!!
видимо, решение если ли на листе данные и где они находятся принимается не по положению активной ячейки...
перенесите вторую таблицу на другой лист, прижмите данные влево-вверх листа, и запускайте форму от туда

удачи!

Red Warrior · 04.06.2013, 19:31

Придется разнести,видно.
Еще вопрос дилетанта, не подскажешь?

Надо, чтобы при галке на checkboxe, чтобы в combobox были значения "Ф1-Ф5", при
отсутствии "KL1-KL5". Меняет, но как-то не сразу, надо удалять предыдущее значение. Как сделать чтобы сразу переключалось?

IgorGO · 04.06.2013, 20:08

так получилось:

Код:

Private Sub CheckBox1_Click()
  ComboBox1.List = IIf(CheckBox1.Value, Range("H5:H9").Value, Range("J5:J9").Value)
End Sub

Private Sub ComboBox1_Change()
End Sub

Red Warrior · 04.06.2013, 20:56

Спасибо! Главное изящно получилось в одну строку

04.06.2013, 18:34	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	из справки о ShowDataForm This method runs the custom data form, if one exists. запускает форму для ввода данных, если они есть!!! видимо, решение если ли на листе данные и где они находятся принимается не по положению активной ячейки... перенесите вторую таблицу на другой лист, прижмите данные влево-вверх листа, и запускайте форму от туда удачи! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

04.06.2013, 20:08	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	так получилось: Код: `Private Sub CheckBox1_Click() ComboBox1.List = IIf(CheckBox1.Value, Range("H5:H9").Value, Range("J5:J9").Value) End Sub Private Sub ComboBox1_Change() End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
не выводит окошко для ввода данных	Antoshkaa	Помощь студентам	0	27.05.2013 15:57
Создание формы для ввода данных.	BogSerVik	Microsoft Office Excel	2	26.07.2011 12:48
форма для ввода данных	ПавелАлександрович	Microsoft Office Excel	0	03.03.2011 09:32
Форма для ввода данных в эксель	analyst	Microsoft Office Excel	2	30.06.2010 01:30
Написать прогу для автоматизации ввода данных	vitaleg	Свободное общение	17	29.07.2009 12:54

04.06.2013, 20:56	#5
Red Warrior Пользователь Регистрация: 30.04.2013 Сообщений: 17	Спасибо! Главное изящно получилось в одну строку