Присвоение значений переменным

@VladaPAR · Регистрация: 22.03.2016

Author24 — интернет-сервис помощи студентам

В комбобокс на форме выводятся значения из столбца B.

Visual Basic

Private Sub UserForm_Initialize()
i = 3
 Do Until Cells(i, 2) = Empty
    Model.AddItem (Cells(i, 2))
    i = i + 1
 Loop
End Sub

Как сделать, чтобы при выборе модели переменным присваивались значения из соседних столбцов?
Например, выбрали в combobox "Focus", тогда переменные Tip = "Легковой", Sum = "700000", Proz = "16"

@kalbasiatka · 09.04.2016, 17:16

Покажите файл с формой, а не картинку.

@VladaPAR · 10.04.2016, 12:27 **[ТС]**

kalbasiatka, у меня сейчас ввод модели, суммы и т.д в форме RachetOP идет вручную, а хотелось бы, чтобы он из комбобокса(Model) выбирал модель, а остальные значения находил в таблице прейскуранта, присваивал значения переменным и дальше уже их записывал новый лист клиента

@VladaPAR · 10.04.2016, 13:31 **[ТС]**

kalbasiatka, как это можно было бы сделать с помощью Find?

@Hugo121 · 10.04.2016, 19:57

Visual Basic

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

@kalbasiatka 416 / 263 / 83 Регистрация: 27.10.2012 Сообщений: 861
	09.04.2016, 17:16	2
	Покажите файл с формой, а не картинку. 0

@VladaPAR 0 / 0 / 0 Регистрация: 22.03.2016 Сообщений: 25
	10.04.2016, 13:31 [ТС]	4
	kalbasiatka, как это можно было бы сделать с помощью Find? 0

	10.04.2016, 19:57