我正在尝试在Excel VBA中为组合框设置行源,但返回错误
对象“ _Global”的1004方法“范围”失败。
Private Sub UserForm_Initialize()
Dim rngVendor As Range
Set rngVendor = Worksheets("Lists").Range("N2:N" & _
Range("N2").End(xlDown).Row)
frmNewVendor.cboVendor.RowSource = Range(rngVendor)
End Sub
答案 0 :(得分:2)
rngVendor被声明为范围,因此不需要Range函数
frmNewVendor.cboVendor.RowSource = rngVendor