EXCEL VBA Union関数でデータの複数範囲を一つにまとめる！・条件に基づくセル色の変更

EXCEL VBA Union関数でデータの複数範囲を一つにまとめる！

’
’
Sub Sample1()

    Union(Range("A1:C3"), Range("D4:F6")).Interior.Color = RGB(255, 255, 0)

End Sub
’
’

EXCEL VBA Union関数でExcel内の特定範囲の数値を一気に集計する！

'
'
Sub Sample10() '２つのセル範囲の合計値を集計する。
    Dim cell As Range  'セルを参照するための変数を宣言
    Dim total As Double  '合計値を保存するための変数を宣言
    
    'Union関数で2つの範囲を結合し、For Eachループで各セルを処理
    For Each cell In Union(Range("B4:D6"), Range("G4:I6"))
        total = total + cell.Value  '各セルの値を合計値に加算
    Next cell
    
    '合計値をメッセージボックスで表示
    MsgBox "合計　: " & total
End Sub
'
'

EXCEL VBA　Union関数を使った条件に基づくセル色の変更・数値による色分け方法

’
’
Sub Change_Background_Color()’条件により背景色を設定
    Dim rng As Range  'Range型の変数を定義
    ' "B4:D6"と"G4:I6"のセル範囲に対してループ処理
    For Each rng In Union(Range("B4:D6"), Range("G4:I6"))
        ' 値が80以上なら背景色を薄い緑色に
        If rng.Value >= 80 Then
            rng.Interior.Color = RGB(144, 238, 144)
        ' 値が50以下なら背景色を赤色に
        ElseIf rng.Value <= 50 Then
            rng.Interior.Color = RGB(255, 0, 0)
        End If
    Next rng
End Sub
’

EXCEL VBA　データ分析: Union関数を使った円グラフ作成の自動化・データを結合する。

'
'
Sub Pie_Chart() 'Union関数を使って離れたデータで円グラフを作成

    ' 必要な定数を設定
    Const START_ROW_LABELS As Long = 2
    Const START_COLUMN_LABELS As Long = 2
    Const END_COLUMN_LABELS As Long = 6

    Const START_ROW_VALUES As Long = 5
    Const START_COLUMN_VALUES As Long = 2
    Const END_COLUMN_VALUES As Long = 6

    ' ラベルの範囲と値の範囲を定義
    Dim labelRange As Range
    Dim valueRange As Range

    ' ラベルと値の範囲にデータを設定
    Set labelRange = Range(Cells(START_ROW_LABELS, START_COLUMN_LABELS), Cells(START_ROW_LABELS, END_COLUMN_LABELS))
    Set valueRange = Range(Cells(START_ROW_VALUES, START_COLUMN_VALUES), Cells(START_ROW_VALUES, END_COLUMN_VALUES))

    ' 新しいチャートを作成
    With ActiveSheet.Shapes.AddChart.Chart

        ' チャートの種類を設定（この場合は円グラフ）
        .ChartType = xlPie

        ' データソースを設定
        .SetSourceData Source:=Union(labelRange, valueRange)

        ' タイトルを設定
        .HasTitle = True
        .ChartTitle.Text = "項目別支出"

        ' データラベルを表示（パーセンテージのみ）
        .SeriesCollection(1).ApplyDataLabels ShowPercentage:=True, ShowValue:=False

    End With

End Sub
'