VBA - 런타임 오류 END IF

Question

VBA에 비교적 익숙하지 않습니다. 그리고 워크 시트에서 작업 할 때 열 행의 조건을 기반으로 행을 자동으로 숨기거나 숨김 해제하는 코드를 만들었습니다 (0 숨김/1 숨김). 이 비교적 쉬운 매크로는 다른 시트를 추가 할 때까지 잘 작동했습니다. 이 시트에는 매크로가 없기 때문에 관련이 없다고 생각합니다. 하지만 지금은 매번 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이있는 경우에만 코드가 실행되도록 넓은 조건을 추가했습니다. 워크 시트에는 다른 워크 시트 (또는 다른 통합 문서)의 변경으로 인해 계산 이벤트가 트리거되는 휘발성 ¹ 수식이있을 수 있습니다.

LastRow 할당 후에 아무런 문제가 없으므로 (문제이므로) 삭제했습니다.

Range.Hidden 속성을 한 줄로 단순화했습니다.

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 

는 _{휘발성 기능, 전체 통합 문서가 변경 될 때마다 아무것도 계산 ¹ 아니라 때 그 결과의 변화에 ​​영향을 미치는 뭔가. 휘발성의 기능은 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 

아마