Так как я почти ноль, обращаюсь опять к вам за помощью! Помогите разобраться в ComboBox можно или нет определить выбранную строку, или что то сделать с этим. Посмотрите пожалуйста, а то голова опухла уже нечего сообразить не могу.
Так как я почти ноль, обращаюсь опять к вам за помощью! Помогите разобраться в ComboBox можно или нет определить выбранную строку, или что то сделать с этим. Посмотрите пожалуйста, а то голова опухла уже нечего сообразить не могу.Ckaym
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]
Код
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]
А вот еще вариант без обращения к листу (кроме первого присваивания значений комбобоксу) [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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
