Sumif、SumIfs関数を使って条件に一致するデータを集計する

Sub ExampleSumIf()
  Dim total As Double
  total = Application.WorksheetFunction.SumIf(Range("B1:B10"), ">=100", Range("A1:A10"))
  MsgBox "合計数量: " & total
End Sub

Sub ExampleSumIfs()
 Dim total As Double
 total = Application.WorksheetFunction.SumIfs(Range("A1:A10"), Range("B1:B10"), ">=100", Range("C1:C10"), "A")
 MsgBox "合計数量: " & total
End Sub

Sub ボタン1_Click()

   'ワークシートを指定する
    Dim Sh1 As Worksheet
    Set Sh1 = ThisWorkbook.Worksheets("Sheet1")
    
   '変数を定義する
    Dim workEndR1, Gokei As Long
    
   'データの最終行を取得する
    workEndR1 = Sh1.Cells(Rows.Count, 2).End(xlUp).Row
    
   '集計範囲（通勤手当列）を指定する
    Dim Rng As Range
    Set Rng = Range(Sh1.Cells(6, 7), Sh1.Cells(workEndR1, 7))
    
   '勤務地の範囲(F列)を指定する
    Dim Rng1 As Range
    Set Rng1 = Range(Sh1.Cells(6, 6), Sh1.Cells(workEndR1, 6))
   
   '埼玉県に勤務している社員の通勤手当支給額の合計
    Gokei = WorksheetFunction.SumIf(Rng1, "埼玉県", Rng)
 
    'ダイアログを表示して合計額を表示
    MsgBox "埼玉県に勤務している社員の通勤手当支給額の合計：" & Format(Gokei, "#,###") & "円"

End Sub

Sub ボタン2_Click()

   'ワークシートを指定する
    Dim Sh1 As Worksheet
    Set Sh1 = ThisWorkbook.Worksheets("Sheet1")
    
   '変数を定義する
    Dim workEndR1, Gokei As Long
    
   'データの最終行を取得する
    workEndR1 = Sh1.Cells(Rows.Count, 2).End(xlUp).Row
    
   '集計範囲（通勤手当列）を指定する
    Dim Rng As Range
    Set Rng = Range(Sh1.Cells(6, 7), Sh1.Cells(workEndR1, 7))
    
   '役職列の範囲(D列)を指定する
    Dim Rng1 As Range
    Set Rng1 = Range(Sh1.Cells(6, 4), Sh1.Cells(workEndR1, 4))
   
   '勤務地の範囲(F列)を指定する
    Dim Rng2 As Range
    Set Rng2 = Range(Sh1.Cells(6, 6), Sh1.Cells(workEndR1, 6))
    
   '役職が課長職で埼玉県に勤務している社員の通勤手当支給額の合計
    Gokei = WorksheetFunction.SumIfs(Rng, Rng1, "課長", Rng2, "埼玉県") 
 
    'ダイアログを表示して合計額を表示
    MsgBox "課長職で埼玉県に勤務している社員の通勤手当支給額の合計：" & Format(Gokei, "#,###") & "円"

End Sub