Question

我需要一个宏来汇总所有H列，不包括帐号＃52202001和51701001（来自F栏）。

我知道我可以使用这个公式

=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

需要一个宏来汇总所有GL帐户，同时排除一些特定的GL

1 个答案: