需要一個宏來彙總所有總帳科目，同時排除幾個特定總帳

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