小编cke*_*ann的帖子

我对VBA很陌生,而且我一直在努力填充组合框.我正在尝试使用电子表格中第一列的内容填充组合框,以便我可以根据组合框选择删除关联的数据行.

在提出这个问题时,我已经在这里和其他地方查看了几个问题,但我没有发现任何有用的东西.

• 使用数组元素在VBA中填充组合框
• 如何从excel电子表格中的列填充组合框？
• http://www.techrepublic.com/blog/microsoft-office/populate-a-userform-combo-box-in-excel-with-a-dynamic-list/

以下是我尝试过的代码.我有点失落,因为我一直试图拼凑其他问题的不同答案,以使这个工作,但无济于事.我希望组合框填充第1列的值,但它仍然是空白的.

尝试#1这涉及创建动态范围:

=OFFSET(PC_DataSheet!$A$2,0,0, COUNTA(PC_DataSheet!$A$1:$A$65536)-1,1)

Private Sub UserForm1_Initialize()

    Dim rngPCNumber As Range
    Dim ws As Worksheet

    Set ws = Worksheets("Sheet1")

    For Each rngPCNumber In ws.Range("PCNumber")
        Me.PC_ListComboBox.AddItem rngPCNumber.Value
    Next rngPCNumber

End Sub

尝试#2

Private Sub UserForm1_Initialize()

    Dim arr() As Variant

    arr = Worksheets("Sheet1").Range("C2:" & lrow).Value
    PC_ListComboBox.List = arr

End Sub

尝试#3

Private Sub UserForm1_Initialize()

    Dim vArr As Variant
    Dim i As Integer

    vArr = Sheet1.Range("A:1").Value

    With PC_ListComboBox.Clear
         For i = LBound(vArr) To UBound(vArr)
            .AddItem vArr(i)
         Next i …