需要帮助在 UserForm9.ListBox1 中创建下拉列表。我的代码如下...我得到的错误是“运行时错误 380 - 对象不支持其属性或方法。”——这对我来说没有意义,因为我的对象是一个 ListBox,你可以在列表框中创建下拉列表,对吗?顺便问一下,为什么“offset”这个词是小写的?如何重置???
'''''--------------------------
Private Sub UserForm_Initialize()
For Each EmployeeID In Sheets("MasterID").Range("A10:A700") '<<<< Raw data 690 employee id's
With UserForm9.ListBox1
.AddItem EmployeeID.Value
.List(.ListCount - 1, 1) = EmployeeID.offsset(0, 1).Value
End With
Next EmployeeID
'''''--------------------------
Private Sub ListBox1_Change()
With Me.ListBox1
If .ListIndex = -1 Then
EmployeeID.Text = ""
Else
EmployeeID.Text = .List(.ListIndex, 1)
End If
End With
End Sub
答案1
抱歉,大家……我找到答案了——我拼错了偏移量!!天啊……抱歉