使用复选框调用 sub excel vba

Question

我正在尝试使用此代码呼叫一个 sub

If CheckBox2 = True Then Call Qorep

继承人：

Public Sub Qorep()

For i = 0 To cap
    Hoja9.Cells(i + 2, 3).Value = Empty
    array_Qorep(i, 0) = Hoja1.Range("B" & i + 2)

    Select Case Hoja9.Cells(3, 5)
    Case Is > 0
    If array_Qorep(i, 0) < Hoja9.Cells(3, 5) Then Hoja9.Cells(i + 2, 3) = array_Qorep(i, 0)
    End Select

    Select Case Hoja9.Cells(3, 4)
    Case Is > 0
    If array_Qorep(i, 0) > Hoja9.Cells(3, 4) Then Hoja9.Cells(i + 2, 3) = array_Qorep(i, 0)
    End Select
    If Hoja9.Cells(i + 2, 3) = Empty Then Hoja9.Cells(i + 2, 3) = "#N/A"
    Next
End Sub

问题是选中复选框后它什么也没做，尝试调用 sub 时是否有问题？我是初学者，我可能看不出哪里出了问题，有什么帮助吗？

Answer 1

在你需要的工作表中

 Private Sub  CheckBox2_Click()

       If CheckBox2 = True Then Call Qorep

   End Sub

如果您的子项不在同一个工作表中，那么您需要使用 Modulename.Qorep

使用复选框调用 sub excel vba

calling a sub using checkboxes excel vba

checkbox

excel

vba

public