Question

我想在单元格中显示组合框的值。但在此之前，我想清除组合框的项目，然后按项目填充。下面的代码有效，但是当我向代码添加.clear时，它不会在单元格1,4中显示组合框的选定值。我不知道为什么如果我没有在代码中添加clear，那么每次运行程序时，组合框的项目都会增加。

Private Sub ComboBox1_change()

      With Sheet3.ComboBox1

            For Each Cell In Range("A1:A15")
           .AddItem  Cell.Value
            Next
         xx = ComboBox1.Value
         Set car = Cells(1, 4)
         Cells(1, 4).Value = xx

     End With

End Sub

Answer 1

不要使用.AddItem来填充组合/列表框，这对于＆gt;来说非常慢5项，您可以直接使用.List属性。这将更有效并解决您的问题：

Private Sub ComboBox1_change()

      Sheet3.ComboBox1.List = Range("A1:A15").Value
      Set car = Cells(1, 4)
      Cells(1, 4).Value = xx

End Sub

Excel VBA如何清除组合框的项目

1 个答案: