Значение выделяемой ячейки в ComboBox - Microsoft Office Excel

strannick · 03.03.2014, 15:50

Добрый день, уважаемые форумчане!
Есть юзерформа, на ней два ComboBox'а. В одном список уникальных значений столбца А, во втором - столбца F. При изменении содержимого первого ComboBox'а меняется содержимое второго и наоборот. Хочется добавить еще такую штуку - чтобы при выборе(активации) ячейки на листе ее содержимое попадало в ComboBox. Что-то типа

Код:

For i = 4 To ilastrow
If sh.Cells(i, 1).Activate Then ComboBox1 = sh.Cells(i, 1)
Next

для первого ComboBox'а.
По какому событию для ComboBox'а это можно сделать?
Заранее спасибо!!!

IgorGO · 03.03.2014, 15:58

по событию листа:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

если событие в первой колонке (в диапазоне значение комбобокса) то присвоить комбобоксу значение выбранной ячейки

strannick · 03.03.2014, 23:24

А если юзерформа не активна? Как отреагирует при этом?

IgorGO · 03.03.2014, 23:39

предположу, что ни как, но лучше попробовать

strannick · 04.03.2014, 02:06

Точно))) Все в порядке. Только сделал не Private Sub Worksheet_SelectionChange, а Private Sub Worksheet_BeforeDoubleClick.
Спасибо!!!

03.03.2014, 15:50	#1
strannick Форумчанин Регистрация: 21.10.2011 Сообщений: 433	Значение выделяемой ячейки в ComboBox Добрый день, уважаемые форумчане! Есть юзерформа, на ней два ComboBox'а. В одном список уникальных значений столбца А, во втором - столбца F. При изменении содержимого первого ComboBox'а меняется содержимое второго и наоборот. Хочется добавить еще такую штуку - чтобы при выборе(активации) ячейки на листе ее содержимое попадало в ComboBox. Что-то типа Код: `For i = 4 To ilastrow If sh.Cells(i, 1).Activate Then ComboBox1 = sh.Cells(i, 1) Next` для первого ComboBox'а. По какому событию для ComboBox'а это можно сделать? Заранее спасибо!!!

03.03.2014, 15:58	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	по событию листа: Private Sub Worksheet_SelectionChange(ByVal Target As Range) если событие в первой колонке (в диапазоне значение комбобокса) то присвоить комбобоксу значение выбранной ячейки Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

03.03.2014, 23:39	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	предположу, что ни как, но лучше попробовать Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Найти значение на другом листе и подставить значение следующей ячейки	ElenaNTro	Microsoft Office Excel	12	11.02.2019 12:44
Значение ячейки на пересечении столбца и активной ячейки	Lamo	Microsoft Office Excel	2	27.07.2013 20:55
Адрес выделяемой ячейки StringGrid	demiancz	Общие вопросы Delphi	1	05.05.2013 16:50
Как просуммировать ячейки в которых значение более трех и значение болеетрех ячеек подряд?	maruk	Microsoft Office Excel	9	30.04.2011 00:07
ComboBox и создание ячейки	4e4en	Microsoft Office Excel	2	03.11.2010 11:22

03.03.2014, 23:24	#3
strannick Форумчанин Регистрация: 21.10.2011 Сообщений: 433	А если юзерформа не активна? Как отреагирует при этом?

04.03.2014, 02:06	#5
strannick Форумчанин Регистрация: 21.10.2011 Сообщений: 433	Точно))) Все в порядке. Только сделал не Private Sub Worksheet_SelectionChange, а Private Sub Worksheet_BeforeDoubleClick. Спасибо!!!