excel - 从组合框中选择下一项，然后单击 Excel VBA 按钮

Question

在 Excel 工作表上放置一个组合框和命令按钮。 Combobox 会列出一些项目，比如它有 1、2、3、4、5。当第一次加载组合框时，默认情况下会选择第一个值，即 1。

现在使用 VBA 宏，我想从组合框列表中选择下一个值(即 2)并单击命令按钮。

我用谷歌搜索了这个，但不幸的是，没有得到我所期望的。

这是我到目前为止所拥有的，但它并没有达到我的预期(如上所述):Get a error message as Object does not support this property or method on line If Worksheets("QC Update").ComboBox1.SelectedIndex < ComboBox1.Items.Count - 1 Then

Sub Select_Next_Items() 
  If IsEmpty(Range("A9").Value) = True Then 
    If Worksheets("QC Update").ComboBox1.SelectedIndex < ComboBox1.Items.Count - 1 Then 
      ComboBox1.ListIndex = 0 ' select first Item in listbox 
      ComboBox1.ListIndex = ComboBox1.ListCount - 1 ' selects last item 
      Set ComboBox1.SelectedIndex = Worksheets("QC Update").ComboBox1.SelectedIndex + 1 
      Set ComboBox1.ListCount = 0 
    End If     
  End If 
End Sub

Answer 1

希望你们在这里不要感到被冒犯，因为我有一个更清晰，更直接的答案。

ComboBox1.ListIndex = ComboBox1.ListIndex +1

这是一个更完整的。因此，我们必须考虑到它何时位于列表的末尾

If ComboBox1.ListIndex = ComboBox1.ListCount -1 Then
   ComboBox1.ListIndex =1 

Else
   ComboBox1.ListIndex = ComboBox1.ListIndex +1

希望我的回复对大家有帮助，尤其是刚接触Vba，急需使用的 friend 。

如果您有扎实的 C++/java 编程背景，这很容易理解