EXCEL VBA FormulaArrayプロパティ　複数条件の集計・結果合計・条件によるカウント集計・集計結果（ 配列数式で簡単集計）

EXCEL VBA FormulaArrayプロパティ　複数条件の集計・結果合計・条件によるカウント集計・集計結果（ 配列数式で簡単集計）

'
'
Sub FormulaArray00()  '「単価」×「数量」の配列数式を登録

    Range("D2:D6").Select '配列数式の登録先を選択します。
    
    Selection.FormulaArray = "=B2:B6*C2:C6" '選択しているD2～D6に、単価×数量の配列数式を登録します。

End Sub
'

'
'
Sub FomulaArray01()

    Range("E2").FormulaArray = "=SUM(IF(A2:A10=""東京"",B2:B10))" 'SUM関数とIF関数を配列書式でセル「E２」に登録します。
    
    MsgBox Range("E2").FormulaArray   '登録された配列数式の確認（表示）

End Sub
'

EXCEL VBA FormulaArrayプロパティ　ドロップダウンリストと組み合わせた集計「平均・最大・最小・合計（ 配列数式で簡単集計）」

'
'
Sub FomulaArraySamp1()

    With Range("F1").Validation  'セル「F1」にドロップダウンリストを作成
        .Delete  'ドロップダウンリストを削除
        .Add Type:=xlValidateList, Formula1:="東京支店,神奈川支店"
              'セル「F1」にドロップダウンリスト作成　（東京支店・神奈川支店）を登録
    End With
    
    Range("F1") = "東京支店"  'セル「F1」ドロップダウンリストの初期設定
 
    Range("G3").FormulaArray = "=AVERAGE(IF(B2:B19=F1,D2:D19))" '売上平均
    
    Range("G4").FormulaArray = "=MAX(IF(B2:B19=F1,D2:D19))"  '売上最大
    
    Range("G5").FormulaArray = "=MIN(IF(B2:B19=F1,D2:D19))"  '売上最小

    Range("G6").FormulaArray = "=SUM(IF(B2:B19=F1,D2:D19))"   '売上合計


End Sub
'

EXCEL VBA FormulaArrayプロパティ　ドロップダウンリスト（複数条件）と組み合わせた集計「平均・最大・最小・合計（ 配列数式で簡単集計）」

'
'
Sub FomulaArraySamp2() '複数条件で条件抽出（支店名・勘定科目・取引銀行）
  
    Dim i, L, mRow As Long
    Dim DList As Variant
    
    
    For i = 1 To 3 '支店名・勘定科目・取引銀行
    
    Dim List As Collection
    Set List = New Collection
    

    With Cells(1, i + 6).Validation 'セル「G1～I1」にドロップダウンリストを作成
        .Delete  'ドロップダウンリストを削除
        
        mRow = Cells(Rows.Count, i).End(xlUp).Row '列の最終行を設定
        
        On Error Resume Next  'エラーが発生しても続行する。
            
            For L = 2 To mRow  '列の最終行データまで繰り返す
                List.Add Cells(L, i), Cells(L, i) 'コレクションに追記（ドロップダウンリストの準備一意データ）
            Next L
            
        On Error GoTo 0
                
        For L = 1 To List.Count  '一意データ分繰り返す。
            DList = DList + List(L) & ","  'ドロップダウンリストの一意データの作成
        Next L
                
        .Add Type:=xlValidateList, Formula1:=DList  'ドロップダウンリストの作成

    End With
    
    DList = "" 'ドロップダウンリストの一意データを削除

    
    Next i
    
 
     Range("G3").FormulaArray = "=SUM(IF((A:A=G1) * (B:B =H1) * (C:C=I1),D:D,0))"
     'セル「G3」に配列数式を登録します。「G1:支店名・H1：勘定科目・I1:取引銀行」に一致するデータの売上金額をセル「G3」へ集計します。
 
End Sub
'

EXCEL VBA FormulaArrayプロパティ　曜日ごとに集計（ 配列数式で簡単集計）」

'
'
Sub FomulaArraySamp3() '指定した曜日ごとに集計します。
    
    Dim lRow As Long

    lRow = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行を取得
    
    Range("G2").FormulaArray = "=SUM(IF(TEXT(B2:B" & lRow & ",""aaa"") = F2,C2:C" & lRow & ",0))"
    'セル「G2」に月曜日（F2）の売上金額を集計する配列数式を登録します。
    Range("G3").FormulaArray = "=SUM(IF(TEXT(B2:B" & lRow & ",""aaa"") = F3,C2:C" & lRow & ",0))"
    'セル「G2」に日曜日（F3）の売上金額を集計する配列数式を登録します。

End Sub
'