VBA - 无法为 UserForm9.ListBox1 创建下拉列表

VBA - 无法为 UserForm9.ListBox1 创建下拉列表

需要帮助在 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

抱歉,大家……我找到答案了——我拼错了偏移量!!天啊……抱歉

相关内容