为什么我的组合框没有任何值

Question

我在ui上制作了一个组合框，然后双击它转到它的VBA代码。然后我插入了这个代码。我想把工作表5中D列中的单词"；产品"；并将其插入组合框中。

Private Sub ComboBox1_Change()
Dim c As Range
ComboBox1.Clear
With Worksheets(5)
For Each c In .Range(.Range("D5"), .Range("D" & .Rows.Count).End(xlUp))
If c.Value <> vbNullString Then ComboBox1.AddItem c.Value
Next c
End With
End Sub

当我这样做的时候，没什么事发生。组合框只是空的。

更新：Trid这个，它不起作用。

Private Sub ComboBox1_Change()
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
With Worksheets(5)
For Each c In .Range(.Range("D5"), .Range("D" & .Rows.Count).End(xlUp))
If c.Value <> vbNullString Then ComboBox1.AddItem c.Value
Next c
End With
End Sub

Answer 1

双击表单的空白处，然后将代码放在那里。它不起作用的原因是你在访问列表时正在填充它。你应该在显示列表之前填充它。