vba 使用带有多个宏的可定制多个列表框时遇到问题

Question

所以这是我的目标：我需要根据多选 ListBox 执行不同的宏。我是 vba 的初学者，目前有些任务对我来说有点困难。 有一个带有 9 个选项的多项选择列表框。如果您选择“Exfoliación”选项，它会执行名为“macro4”的宏。这是完全可定制的，所以如果我从 ListBox 中选择“Exfoliación”和“Estanqueidad”选项，它将执行宏 4 和 3（与它们相关的）。

我在 Internet 上看到过一些示例，但它们是关于 ListBox 处理列、工作表等的。但是没有太多关于宏的解释。

用户选择选项并按下工作表中名为“Botón”的提交按钮。列表框中的选项标有vector(i)=1。使用 for 循环读取选项并使用包含这些宏名称的数组 a(i) 执行这些选项的相应宏。

Sub Submit()
'Getting selected items in ListBox1
Dim vector(1 To 11) As Integer
Dim i As Integer
Dim a(1 To 9) As String
'Private Sub CommandButton1_Click()
For i = LBound(a) To UBound(a)
    vector(i) = 0
Next i

With Sheets("Botón").ListBox1

    Select Case (ListBox1.Text)
    Case "Tornillo Resorte": vector(1) = 1
    Case "Categoría Manguito": vector(2) = 1
    Case "Estanqueidad": vector(3) = 1
    Case "Exfoliación": vector(4) = 1
    Case "Material vaina": vector(5) = 1
    Case "Diseño EC": vector(6) = 1
    Case "Curva Q vs Enriquecimiento": vector(7) = 1
    Case "Curva Criticidad": vector(8) = 1
    Case "Curva de carga t. enfriamiento": vector(9) = 1
    Case "Condicioón de transporte": vector(10) = 1
    Case "ATI": vector(11) = 1
    Case ""
        MsgBox "nothing selected"
    Case Else
        MsgBox Me.ListBox1.Text
    End Select

    Dim MN As String
    For i = 1 To N 'Fill the array
        a(i) = "macro" & i
    Next
    MN = "Módulo5" 'Module where i have the worksheet I'm working with
    Dim N As Integer
    N = 11
    For i = LBound(a) To UBound(a)
        If vector(i) = 1 Then
            Application.Run MN & "." & a(i)
        End If
    Next i
    End Sub

我发现Select Case (ListBox1.Text) 语句有问题。 它不编译也不知道如何用 Select Case 调用 listBox。

提前感谢您的帮助:)

编辑：使用新代码。选择方法：

`Private Sub Command Button1_Click() 'This is a button that opens the multilist with the different options. It works correctly
Worksheets("Botón").ListBox1.Clear 
ListBox1.Height=200
ListBox1.Width=250
Dim mylist As Variant 
mylist=Array("Tornillo Resorte",...,"Condicioón de transporte")
ListBox1.List=mylist
End Sub


Sub Submit() ''here's the macro with the button assigned to execute the selection. This is where I get the problem.
With Sheets("Botón").ListBox1
    MN = "Módulo5" 'Module where i have the worksheet I'm working with
    For X = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(X) = True Then
            Application.Run MN & "." & .ListIndex + 1
        Else
            MsgBox "No se ha seleccionado ningún filtro"
        End If
   Next X
End With
End Sub

Answer 1

如果您只想选择一个宏 - 并假设这些宏按顺序从 macro1 到 macrox 命名，那么您可以这样做：

Sub Submit()

With Sheets("Botón").ListBox1

   if .listindex = -1 then

        MsgBox "nothing selected"
   Else
          MN = "Módulo5" 'Module where i have the worksheet I'm working with
          Application.Run MN & "." & .listindex +1
    End If
  End With 
   End Sub

如果你想做不止一个，那么你需要循环遍历 .selected 数组，依次调用宏