Присвоение значений переменным - VBA
Формулировка задачи:
В комбобокс на форме выводятся значения из столбца B.
Как сделать, чтобы при выборе модели переменным присваивались значения из соседних столбцов?
Например, выбрали в combobox "Focus", тогда переменные Tip = "Легковой", Sum = "700000", Proz = "16"
Решение задачи: «Присвоение значений переменным»
textual
Листинг программы
Private Sub Model_Change() 'Sheets("Ведомость_12").Activate Set r = Sheets("Ведомость_12").UsedRange.Columns(2).Find(What:=Model.Value, LookIn:=xlValues, LookAt _ :=xlWhole) If Not r Is Nothing Then 'sumkr.Value = r.Value Tip = r.Next Sum = r.Next.Next proz = r.Offset(, 3) End If MsgBox Tip & "-" & Sum & "-" & proz End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д