Как заполнить ячейку на основе выпадающего меню в форме VBA - PullRequest
Новая
       26

Как заполнить ячейку на основе выпадающего меню в форме VBA

0 голосов
/ 08 февраля 2019

Я пытаюсь заполнить ячейки в зависимости от того, что выбрано из выпадающего списка в моей форме.Если (2) выборки в раскрывающемся списке выбраны, открываются дополнительные параметры в форме, и я пытаюсь получить ячейки для заполнения на основе дополнительных выборок

Текущий 

page.Range("A" & n + 1).Value = Me.ComboBox1.Value
page.Range("B" & n + 1).Value = Me.weektxtbx.Value
page.Range("C" & n + 1).Value = Me.ComboBox2.Value
page.Range("D" & n + 1).Value = Me.daystxtbx.Value
page.Range("F" & n + 1).Value = Me.commenttextbx.Value
If Me.Expedite_yes.Value = True Then page.Range("E" & n + 1).Interior.Color = vbGreen
If Me.ExpediteNo.Value = True Then page.Range("E" & n + 1).Interior.Color = vbRed

swp = Me.ComboBox1.Value
If swp = "EPT" Then
    page.Range("G").Value = Me.A1text.Value
End If

page.range("A" & n + 1).value = me.combobox1.value и аналогичные строки кода правильно заполняют ячейки на листе, но вторая половина кода не работает. 

if swp= "EPT" then 
       page.Range("G").value = Me.A1Text.value
End if

выдает ошибку объекта, и я озадачен.Макрос даже не дойдет до этой точки.

1 Ответ

0 голосов
/ 08 февраля 2019

Ваш диапазон ("G"). Значение не влияет на фактический диапазон.Если вы сделали Range ("G: G"). Value , это затронет все содержимое столбца.Вы имеете в виду Range ("G" & n + 1) .value ?

...