我的工作表中有几个复选框(大约120个),并且我一直在每个复选框上使用此代码:
Private Sub Food_Click()
Static isBusy As Boolean
Dim FoodC As String
If Not isBusy Then
isBusy = True
FoodC = ThisWorkbook.Sheets("Checkbox Formulas").Range("k7").Value
If FoodC = False Then
Food.Value = False
MsgBox "You Are Missing Ingredients", vbCritical, "Missing Ingredients"
End If
isBusy = False
End If
End Sub
每个复选框都有其自己的名称。
问题在于,在某些复选框中(120个复选框中有6个),变量的值为TRUE
,但是当我单击它们时,它返回MsgBox,就像值是FALSE
(代码向后工作)。当我调试代码时,它说工作正常。
我已经测试过分配另一个复选框的单元格的值,该复选框在无法正常工作的复选框中可以正常工作,然后可以正常工作。所以我假设问题出在电池上。
单元格的值(TRUE
或FALSE
)由工作表中的Excel公式给出。