excel vba 组合框

Question

我想使用 VBA 填充来自另一个工作表的行(不是列)值的内容的组合框。如果我将列表分配给行的范围，我只会看到第一个值，所以我猜 excel 坚持有一列范围。所以，我正在尝试添加项目:

Private Sub ComboBox2_GotFocus()

 Dim i As Integer
 Dim myArray As Variant

 myArray = Worksheets("data").Range("A4:PB4").Value

 For i = LBound(myArray) To UBound(myArray)
  Me.ComboBox2.AddItem myArray(i)
 Next

End Sub

两个问题。我不认为这是一个数组，它是一个范围。而且，如果我使用添加，我需要每次都清除它，但是在同一个例程中以某种方式使用 ComboBox2.Clear 会在加载后清除它？所以什么都没有出现:(

有什么想法吗？

Answer 1

这似乎起到了作用:

Private Sub ComboBox2_GotFocus()

  myArray = WorksheetFunction.Transpose(Worksheets("data").Range("A4:PB4"))
  With Me.ComboBox2
   .List = myArray
  End With

End Sub