【エクセルマクロ】太字を含むセルに色付け：コピペで使えるコード

ExcelVBA

エクセルマクロで、太字を含むセルに色付けするVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

太字を含むセルに色付け

以下のExcelVBAを実行すると、太字を含むセルを検索して色づけします。


Sub 太字を含むセルに色をつける()

    Dim myrange As Range
    Dim i As Long
    
    Application.ScreenUpdating = False

    '太文字の検索範囲
    For Each myrange In Range("A1:E21")

        For i = 1 To Len(myrange)

            'セル内の文字を1つずつ取得し、太文字かチェック
            If myrange.Characters(Start:=i, Length:=1).Font.Bold = True Then

                'セルの背景色を塗りつぶす
                myrange.Interior.Color = 65535
                Exit For

            End If
        Next i
    Next

    Application.ScreenUpdating = True

End Sub

 

マクロ実行後

太文字を含むセルに自動で色を塗ります。

セル内の文字列を1文字ずつチェックして、

太文字が含まれているか判定します。


 

セル内の文字の一部が太字になっている場合も、

背景色を塗りつぶします。

 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】色付け処理を自動化する：超便利２６選
...
kirinote.com
2022.01.09

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説