调用子checkboxexcel vba

我正在尝试使用此代码调用子

If CheckBox2 = True Then Call Qorep 

inheritance人：

 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 

问题是，checkbox选中它不会做任何事情，是否有一个问题试图调用子？ 即时通讯初学者，我可能无法看到什么是错的，有什么帮助？

Answer 1

在你需要的工作表中

  Private Sub CheckBox2_Click() If CheckBox2 = True Then Call Qorep End Sub 

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