【VBA】フォーマット設定：数値形式・フォント・背景色の一括/条件設定

Sub SetNumberFormat()

' セルA1を通貨形式に設定
Range("A1").NumberFormat = "$#,##0.00"

' セルA2を日付形式に設定
Range("A2").NumberFormat = "yyyy-mm-dd"

' セルA3をパーセンテージ形式に設定
Range("A3").NumberFormat = "0.00%"

End Sub

Sub SetFontFormat()

' セルA1のフォントを太字に設定
Range("A1").Font.Bold = True

' セルA2のフォントサイズを14に設定
Range("A2").Font.Size = 14

' セルA3のフォントをイタリックに設定
Range("A3").Font.Italic = True

' セルA4のフォントの色を赤に設定
Range("A4").Font.Color = RGB(255, 0, 0)

End Sub

Sub SetBackgroundColor()

' セルA1の背景色を黄色に設定
Range("A1").Interior.Color = RGB(255, 255, 0)

' セルA2の背景色を青に設定
Range("A2").Interior.Color = RGB(0, 0, 255)

' セルA3の背景色を自動設定（クリア）
Range("A3").Interior.ColorIndex = xlNone

End Sub

Sub SetBorders()

Dim rng As Range
Set rng = Range("A1:C3")

' セル範囲に罫線を設定
With rng.Borders

.LineStyle = xlContinuous ' 実線
.Weight = xlThin ' 細線
.Color = RGB(0, 0, 0) ' 黒

End With

End Sub

Sub SetAlignment()

' セルA1のテキストを中央揃え
Range("A1").HorizontalAlignment = xlCenter

' セルA2のテキストを右揃え
Range("A2").HorizontalAlignment = xlRight

' セルA3のテキストを垂直中央に揃え
Range("A3").VerticalAlignment = xlCenter

End Sub

Sub ApplyMultipleFormats()

Dim rng As Range
Set rng = Range("A1:C3")

With rng

' 数値形式を設定
.NumberFormat = "$#,##0.00"

' 背景色を設定
.Interior.Color = RGB(240, 240, 240)

' フォントを設定
.Font.Bold = True
.Font.Color = RGB(0, 0, 128)

' 配置を設定
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

' 罫線を設定
With .Borders

.LineStyle = xlContinuous
.Color = RGB(128, 128, 128)
.Weight = xlThin

End With

End With

End Sub

Sub ConditionalFormatting()

Dim cell As Range

' 範囲内のセルをループ
For Each cell In Range("A1:A10")

If cell.Value > 100 Then

' 100より大きい場合、背景色を緑に設定
cell.Interior.Color = RGB(0, 255, 0)

ElseIf cell.Value < 50 Then

' 50より小さい場合、背景色を赤に設定
cell.Interior.Color = RGB(255, 0, 0)

Else

' その他の場合、背景色をクリア
cell.Interior.ColorIndex = xlNone

End If

Next cell

End Sub