Excel VBAでセルのスタイル書式を変更する方法

1. 単一のセルのスタイルを変更する方法:

Sub ChangeCellStyle()
    Range("A1").Font.Bold = True ' 太字にする
    Range("A1").Interior.Color = RGB(255, 0, 0) ' 背景色を赤にする
    Range("A1").Borders.LineStyle = xlContinuous ' 枠線を設定する
End Sub

2. 範囲内のすべてのセルのスタイルを変更する方法:

Sub ChangeRangeCellStyle()
    Dim rng As Range
    Set rng = Range("A1:B10") ' 範囲を指定する
    rng.Font.Bold = True ' 太字にする
    rng.Interior.Color = RGB(255, 0, 0) ' 背景色を赤にする
    rng.Borders.LineStyle = xlContinuous ' 枠線を設定する
End Sub

3. ワークシート内のすべてのセルのスタイルを変更する方法:

Sub ChangeWorksheetCellStyle()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' ワークシート名を指定する
    ws.Cells.Font.Bold = True ' 太字にする
    ws.Cells.Interior.Color = RGB(255, 0, 0) ' 背景色を赤にする
    ws.Cells.Borders.LineStyle = xlContinuous ' 枠線を設定する
End Sub

4. 条件に基づいてセルのスタイルを変更する方法:

Sub ConditionalCellStyle()
    Dim rng As Range
    Set rng = Range("A1:A10") ' 範囲を指定する
    ' 条件を設定する
    rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="10"
    rng.FormatConditions(1).Font.Bold = True ' 太字にする
    rng.FormatConditions(1).Interior.Color = RGB(255, 0, 0) ' 背景色を赤にする
End Sub

これらはExcel VBAを使用してセルのスタイル書式を変更するいくつかの基本的な方法です。必要に応じて、セルのフォント、背景色、枠線など、さまざまな書式設定をカスタマイズすることができます。また、条件に基づいてセルの書式を変更することも可能です。以上のコード例を参考にして、Excel VBAで自分の要件に合ったスタイル書式を変更することができます。