Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/как определить строку ComboBox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как определить строку ComboBox (Макросы/Sub)
как определить строку ComboBox
Ckaym Дата: Понедельник, 06.06.2016, 14:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Так как я почти ноль, обращаюсь опять к вам за помощью!
Помогите разобраться в ComboBox можно или нет определить выбранную строку, или что то сделать с этим.
Посмотрите пожалуйста, а то голова опухла уже нечего сообразить не могу.
К сообщению приложен файл: 00002.xls(56Kb)


Ckaym
 
Ответить
СообщениеТак как я почти ноль, обращаюсь опять к вам за помощью!
Помогите разобраться в ComboBox можно или нет определить выбранную строку, или что то сделать с этим.
Посмотрите пожалуйста, а то голова опухла уже нечего сообразить не могу.

Автор - Ckaym
Дата добавления - 06.06.2016 в 14:43
Kuzmich Дата: Понедельник, 06.06.2016, 14:56 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 216
Репутация: 40 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Private Sub ComboBox1_Change()
Me.TextBox1 = Worksheets(1).Range("A3", Cells(Rows.Count, "A").End(xlUp)).Find(ComboBox1.Text, , xlValues, xlWhole).Offset(, 1)
End Sub
[/vba]
Дальше сами
 
Ответить
Сообщение[vba]
Код
Private Sub ComboBox1_Change()
Me.TextBox1 = Worksheets(1).Range("A3", Cells(Rows.Count, "A").End(xlUp)).Find(ComboBox1.Text, , xlValues, xlWhole).Offset(, 1)
End Sub
[/vba]
Дальше сами

Автор - Kuzmich
Дата добавления - 06.06.2016 в 14:56
Pelena Дата: Понедельник, 06.06.2016, 15:01 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9862
Репутация: 2255 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Так можно
[vba]
Код
Private Sub ComboBox1_Change()
    Me.TextBox1 = Worksheets(1).Cells(Me.ComboBox1.ListIndex + 3, 2)
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак можно
[vba]
Код
Private Sub ComboBox1_Change()
    Me.TextBox1 = Worksheets(1).Cells(Me.ComboBox1.ListIndex + 3, 2)
End Sub
[/vba]

Автор - Pelena
Дата добавления - 06.06.2016 в 15:01
Ckaym Дата: Понедельник, 06.06.2016, 15:13 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Спасибо все получилось!


Ckaym
 
Ответить
СообщениеСпасибо все получилось!

Автор - Ckaym
Дата добавления - 06.06.2016 в 15:13
_Boroda_ Дата: Понедельник, 06.06.2016, 15:32 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9367
Репутация: 3940 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А вот еще вариант без обращения к листу (кроме первого присваивания значений комбобоксу)
[vba]
Код
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets(1).Range("A3", Cells(Rows.Count, "B").End(xlUp)).Value
End Sub
Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
[/vba]
К сообщению приложен файл: 00002_1.xls(50Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА вот еще вариант без обращения к листу (кроме первого присваивания значений комбобоксу)
[vba]
Код
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets(1).Range("A3", Cells(Rows.Count, "B").End(xlUp)).Value
End Sub
Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 06.06.2016 в 15:32
Ckaym Дата: Понедельник, 06.06.2016, 16:53 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Все тема Закрыта!
[moder]Заколебали уже своими ответами! Сколько можно!!!!!!!! :D :D :D
[/moder]


Ckaym

Сообщение отредактировал _Boroda_ - Понедельник, 06.06.2016, 16:56
 
Ответить
СообщениеВсе тема Закрыта!
[moder]Заколебали уже своими ответами! Сколько можно!!!!!!!! :D :D :D
[/moder]

Автор - Ckaym
Дата добавления - 06.06.2016 в 16:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как определить строку ComboBox (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!