VBA - END IFでのランタイムエラー

Question

私はVBAに比較的新しいです。そして、私がワークシートで作業しているときに、列の行の条件に基づいて行を自動的に非表示/非表示するコードを作成しました（0表示/非表示）。この比較的簡単なマクロは、別のシートを追加するまでうまくいきました。このシートにはマクロがないので、関連しているとは思わない。しかし今は毎回END IF関数でランタイムエラーが発生し、解決方法はわかりません。おそらく単純な解決策がありますが、私はそれを見つけることができません。ここで

はコードです：あなたは、より完全なデバッグ情報が必要な場合は

Private Sub Worksheet_Calculate() 
    Application.ScreenUpdating = False 
    Dim LastRow As Long, c As Range 
    Application.EnableEvents = False 
    LastRow = Cells(Cells.Rows.Count, "BA").End(xlUp).Row 
     On Error Resume Next 
     For Each c In Range("BA34:BA56,BA73:BA74,BA76:BA107") 
     If c.Value = 1 Then 
      c.EntireRow.Hidden = True 
     ElseIf c.Value = 0 Then 
      c.EntireRow.Hidden = False 
    End If 
    Next 
    On Error GoTo 0 
    Application.EnableEvents = True 
    Application.ScreenUpdating = True 
    End Sub 

Answer 1

はOn Error Resume Nextを削除するか、コメントアウトします。 Worksheet_Calculateと同じくらい頻繁に実行されるイベントマクロでは必要ありません。

範囲オブジェクトに親ワークシート参照を適用します。ワークシートには、他のワークシートの変更による計算イベントのトリガーとなる揮発性の式が含まれている場合があります。

親ワークシートがActiveSheet propertyを保持している場合にのみコードが実行されるように、広い条件を追加しました。ワークシートには、他のワークシート（または別のワークブック）の変更によって計算イベントがトリガされるvolatile式があります。

LastRow私はそれを削除したので、割り当て後（何か問題はありません）何もしません。

私はRange.Hiddenプロパティを1行に簡略化しました。

Private Sub Worksheet_Calculate() 
    If Me.Name = Activesheet.Name Then 
     Application.ScreenUpdating = False 
     Application.EnableEvents = False 
     Dim c As Range 
     For Each c In Me.Range("BA34:BA56,BA73:BA74,BA76:BA107") 
      c.EntireRow.Hidden = CBool(c.Value2) 
     Next c 
     Application.EnableEvents = True 
     Application.ScreenUpdating = True 
    End If 
End Sub 

は _{揮発性関数は、ブック全体の変更でいつでも何かを再計算¹ときだけでなく、その成果の変化に影響を与え何か。 volatileの機能の例は、INDIRECT,OFFSET,TODAY,NOW,RANDおよびRANDBETWEENである。 CELLとINFOワークシート関数のいくつかのサブ関数は、それらも同様に揮発性にします。}

Answer 2

スレッドを終了するだけです。私はあなたが書いたコードと私のコードの組み合わせに基づいて解決しました。0は再表示するトリガーでなければならないからです。私はエラーラインが問題を引き起こしたと思います。

Private Sub Worksheet_Calculate() 
    Application.ScreenUpdating = False 
    Dim LastRow As Long, c As Range 
    Application.EnableEvents = False 
    LastRow = Cells(Cells.Rows.Count, "BA").End(xlUp).Row 
    On Error Resume Next 
    For Each c In Range("BA34:BA56,BA73:BA74,BA76:BA107") 
     If c.Value = 1 Then 
      c.EntireRow.Hidden = True 
     ElseIf c.Value = 0 Then 
      c.EntireRow.Hidden = False 
     End If 
    Next 
    Application.EnableEvents = True 
    Application.ScreenUpdating = True 
    End Sub 

おそらく