Excel, ComboBox. Нужно получить две переменных, а LinkedCell один. / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

5 сообщений из 5, страница 1 из 1

Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

#39751543

grecha10

Гость

Здравствуйте.

Есть таблица из шести столбцов.
Есть ComboBox привязанный к этой таблице в режиме разработчика с помощью ListFillRange.
В параметре LinkedCell указана определенная ячейка.
Меняя параметр BoundColumn я могу вывести в эту ячейку значение нужного столбца из таблицы, при выборе какой то строки в ComboBox-е.

Это все работает.
Но мне нужно при выборе строки в ComboBox-е получать одновременно ДВА значения из исходной таблицы для дальнейших расчетов. Например, из 3-го столбца и из 6-го. Но LinkedCell только один.

Полагаю, второе значение можно сделать с помощью VBA, но как?

...

Рейтинг:

0 / 0

21.12.2018, 21:15

| Ответить | Цитировать | Написать

Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

#39751544

grecha10

Гость

> Полагаю, второе значение можно сделать с помощью VBA, но как?
Конечно хотел сказать "получить второе значение", а не сделать)

...

Рейтинг:

0 / 0

21.12.2018, 21:17

| Ответить | Цитировать | Написать

Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

#39751579

Казанский

Гость

grecha10, в модуль листа, вместо ComboBox1 - настоящее название комбо

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

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

...

Рейтинг:

0 / 0

22.12.2018, 01:11

| Ответить | Цитировать | Написать

Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

#39751660

Dino_zavr

Гость

Private Sub ComboBox1_Click()
'таблица ListFillRange A3:I20 например
'LinkedCell =A1
Dim i As Integer
Dim Col1 As Integer
Dim Col2 As Integer
Col1 = 2
Col2 = 6
i = ComboBox1.ListIndex
If i > 0 Then
Range("B1").Value = Range("A3").Offset(i, Col1).Value
Range("C1").Value = Range("A3").Offset(i, Col2).Value
End If
End Sub

...

Рейтинг:

0 / 0

22.12.2018, 16:18

| Ответить | Цитировать | Написать

Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

#39751956

grecha10

Гость

Dino_zavr, Казанский, спасибо большое!!
То, что нужно!

...

Рейтинг:

0 / 0

23.12.2018, 21:30

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel, ComboBox. Нужно получить две переменных, а LinkedCell один.

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39751544&tid=2154966]:	0ms
get settings:	12ms
get forum list:	13ms
check forum access:	5ms
check topic access:	5ms
track hit:	42ms
get topic data:	13ms
get forum data:	3ms
get page messages:	44ms
get tp. blocked users:	2ms
others:	13ms

total:	152ms