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

エクセルマクロ_太字を含むセルに色付けする_アイキャッチ エクセルマクロで効率化する

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

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

太字を含むセルに色付けする

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

Sub 太字を含むセルに色をつける()
  
    Dim myrange As Range
    Dim i As Long
     
    '太文字の検索範囲
    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
  
End Sub

 

マクロ実行後

太文字を含むセルに自動で色を塗ります。
セル内の文字列を1文字ずつチェックして、太文字が含まれているか判定します。


 
 

セル内の文字列の一部が太字になっているセルの背景色も塗りつぶします。

 

【エクセルマクロ】太字のみ合計する:コピペで使えるコード
...