Excel, ComboBox. Нужно получить две переменных, а LinkedCell один. - VB
Формулировка задачи:
Здравствуйте.
Есть таблица из шести столбцов.
Есть ComboBox привязанный к этой таблице в режиме разработчика с помощью ListFillRange.
В параметре LinkedCell указана определенная ячейка.
Меняя параметр BoundColumn я могу вывести в эту ячейку значение нужного столбца из таблицы, при выборе какой то строки в ComboBox-е.
Это все работает.
Но мне нужно при выборе строки в ComboBox-е получать одновременно ДВА значения из исходной таблицы для дальнейших расчетов. Например, из 3-го столбца и из 6-го. Но LinkedCell только один.
Полагаю, второе значение можно сделать с помощью VBA, но как?
Есть таблица из шести столбцов.
Есть ComboBox привязанный к этой таблице в режиме разработчика с помощью ListFillRange.
В параметре LinkedCell указана определенная ячейка.
Меняя параметр BoundColumn я могу вывести в эту ячейку значение нужного столбца из таблицы, при выборе какой то строки в ComboBox-е.
Это все работает.
Но мне нужно при выборе строки в ComboBox-е получать одновременно ДВА значения из исходной таблицы для дальнейших расчетов. Например, из 3-го столбца и из 6-го. Но LinkedCell только один.
Полагаю, второе значение можно сделать с помощью VBA, но как?
Решение задачи: «Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.»
textual
Листинг программы
Private Sub ComboBox1_Change() Dim i& i = ComboBox1.ListIndex 'номер выбранной строки или -1 если ничего не выбрано If i > -1 Then Range("E3") = ComboBox1.List(i, 1) 'значение из второго столбца Else Range("E3").ClearContents End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д