Question

我试图根据在表单下拉列表中选择的内容来填充单元格。如果选择了下拉菜单中的（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

给出一个对象错误，我很困惑。宏甚至不会一直运行到该点。

Answer 1

您的 Range（“ G”）。value 不在实际范围内。如果您执行 Range（“ G：G”）。value ，则整个列的内容都会受到影响。您是说 Range（“ G”＆n + 1）.value ？

？

如何以VBA形式基于下拉菜单填充单元格

1 个答案: