Question

我想在Excel 2010中运行一个宏，它自动使用组合框中的每个值，直到组合框中的所有值都已运行。

例如，如果组合框的值为1,2,3,4，则应为每个值运行代码，并将它们传递给宏。

Answer 1

根据我对您的问题的解释，您希望根据组合框中值的选择运行某些宏（或函数）。

我可以通过在电子表格中添加组合框来实现此目的，右键单击它并选择“分配宏”，为其命名并单击“新建”。

然后，您可以找到组合框的值和大小写/切换结果：

Sub DropDown1_Change()

    Dim ws As Worksheet
    Dim dd As dropdown

    Set ws = ActiveSheet
    Set dd = ws.Shapes("Drop Down 1").OLEFormat.Object

    Select Case dd.Value
        Case 1
            Debug.Print ("Selected 1")
        Case 2
            Debug.Print ("Selected 2")
        Case 3
            DoSomething
        Case Else
            'Do Nothing?
    End Select

End Sub

Private Function DoSomething()

    Debug.Print ("Selected 3")

End Function

运行Excel VBA模块以获取组合框的所有值

1 个答案: