🎨
ApplyConditionalFormatting
書式設定A1:A100に条件付き書式を適用し、100より大きい値を黄色でハイライトします
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： アクティブシートのA1:A100に数値データを用意してマクロを実行。100より大きいセルが黄色でハイライトされます。
💻 VBAコード
Option Explicit
' 条件付き書式を適用するマクロ
' 対象範囲: ActiveSheetのA1:A100
' 条件: 値が100より大きいセルを黄色にハイライト
Sub ApplyConditionalFormatting()
Dim ws As Worksheet
Dim rng As Range
Dim cf As FormatCondition
' 対象シートの設定
Set ws = ActiveSheet
Set rng = ws.Range("A1:A100")
' 既存の条件付き書式を削除
On Error Resume Next
rng.FormatConditions.Delete
On Error GoTo 0
' 新しい条件付き書式の作成
Set cf = rng.FormatConditions.Add(xlCellValue, xlGreater, "100")
' フォーマット設定
With cf
.Interior.Color = RGB(255, 255, 0) ' 黄色
.StopIfTrue = False
End With
' メッセージ表示
MsgBox "条件付き書式を適用しました。", vbInformation
' オブジェクトの解放
Set cf = Nothing
Set rng = Nothing
Set ws = Nothing
End Sub