使用复选框调用子程序excel vba

Posted 2023-02-25

【中文标题】使用复选框调用子程序excel vba

【英文标题】：calling a sub using checkboxes excel vba

【发布时间】：2016-03-18 19:46:51

【问题描述】：

我正在尝试使用此代码调用 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 是否有问题？ 我是初学者，我可能看不出有什么问题，有什么帮助吗？

【问题讨论】：

同样的问题，如果我添加()它会自动删除自己

工作簿中的“if ....”行在哪里？

差不多在代码开头，调用了所有变量之后

【参考方案1】：

在你需要的工作表中

 Private Sub  CheckBox2_Click()

       If CheckBox2 = True Then Call Qorep

   End Sub

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