Ошибка выполнения - кнопка Toggle

Question

, поэтому я пишу основной скрипт, и кнопка переключения продолжает давать мне ошибку во время выполнения, когда я выбираю макрос. В основном, то, что я хочу сделать, это переключить вычисления Manuel on и on, потому что есть тонна формул и когда вводятся новые данные, автоматическое обновление берет навсегда, и это становится проблемой, поэтому я хотел использовать это. Он работал в прошлом, но по какой-то причине он не работает. Я как бы новичок в этом, и любая информация поможет.

Private Sub Workbook_Open() 

Application.Calculation = xlCalculationAutomatic 
Worksheets("Schedule").CommandButton1.Caption = "Auto Calc: ON" & Chr(10) & "[Click to Toggle]" 
ClacState = False 


End Sub 

Answer 1

следующее (более подробный) код, который вы должны быть в состоянии идентифицировать проблему:

Option Explicit 

Private Sub CommandButton1_Click() 

Dim ws As Worksheet 
Dim Obj As OLEObject 
Dim bolFound As Boolean 
Dim ClacState As Boolean 

Application.Calculation = xlCalculationAutomatic 

'Verify that the sheet exists 
bolFound = False 
For Each ws In ThisWorkbook.Worksheets 
    If ws.Name = "Schedule" Then bolFound = True 
Next ws 
If bolFound = False Then 
    MsgBox "The is no such sheet `Schedule`." & Chr(10) & "Aborting..." 
    Exit Sub 
End If 

'Verify that there is a button by that name 
bolFound = False 
For Each Obj In ThisWorkbook.Worksheets("Schedule").OLEObjects 
    If Obj.Name = "CommandButton1" And TypeName(Obj.Object) = "CommandButton" Then bolFound = True 
Next Obj 
If bolFound = False Then 
    MsgBox "The is no such button `CommandButton1` on the sheet `Schedule`." & Chr(10) & "Aborting..." 
    Exit Sub 
End If 

Worksheets("Schedule").CommandButton1.Caption = "Auto Calc: ON" & Chr(10) & "[Click to Toggle]" 

End Sub