即使某些复选框的值为TRUE,也将其视为FALSE

时间:2020-07-25 19:30:46

标签: excel vba

我的工作表中有几个复选框(大约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(代码向后工作)。当我调试代码时,它说工作正常。

我已经测试过分配另一个复选框的单元格的值,该复选框在无法正常工作的复选框中可以正常工作,然后可以正常工作。所以我假设问题出在电池上。

单元格的值(TRUEFALSE)由工作表中的Excel公式给出。

0 个答案:

没有答案