특정 GL을 제외하고 모든 GL 계정을 합산하는 매크로가 필요합니다.

Question

계정 # 52202001 및 51701001 (F 열)을 제외한 모든 열 H를 합한 매크로가 필요합니다.

은 내가이 공식

=SUMIFS($H$15:$H$12729,$F$15:$F$12729,"<> 52202001", $F$15:$F$12729,"<> 51701001") 

를 사용할 수 있습니다 알고하지만 그것은 우리가 우리의 계정을 업데이트 할 때마다 실행할 수 있도록 내가 매크로에 부탁합니다.

감사합니다,

Data

Answer 1

MsgBox ActiveSheet.Evaluate(_ 
"SUMIFS($H$15:$H$12729,$F$15:$F$12729,""<> 52202001"", $F$15:$F$12729,""<> 51701001"")") 

편집 :

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim v 
    If Not Application.Intersect(Target, Me.Columns(1)) Is Nothing Then 

     v = Me.Evaluate("SUMIFS($H$15:$H$12729,$F$15:$F$12729,""<> 52202001"", $F$15:$F$12729,""<> 51701001"")") 

     ThisWorkbook.Sheets("Sheet2").Range("A1").Value = v 

    End If 

End Sub