【エクセルマクロ】数字のみ色をつけるには？：動画あり

エクセルマクロで、数値のみ色をつけるVBAコードをご紹介します。

　　　　　　　　　　　　　＼【２分動画】じっさいの動作を確認する／

数字のみ色をつける

以下のExcelVBAを実行すると、数値の色を一括で変更します。

Sub 数字だけ色付ける()

Dim myStr As String
Dim MasterChar   As String
Dim IntRow As Long
Dim IntColumn As Long
Dim UsedRow As Long
Dim UsedClm As Long
Dim i As Long
    
    Range("A1").Select

    'データ入力エリアを取得
    With ActiveSheet.UsedRange
        UsedRow = .Rows(.Rows.Count).Row
        UsedClm = .Columns(.Columns.Count).Column
    End With

    '列ループ
    For IntRow = 1 To UsedClm

        '行ループ
        For IntColumn = 1 To UsedRow

            '対象セルの文字列
            MasterChar = Cells(IntColumn, IntRow).Text

            '一文字ずつループ
            For i = 1 To Len(MasterChar)

              With Cells(IntColumn, IntRow)
                  myStr = .Characters(Start:=i, Length:=1).Text
                
                  If myStr Like "[0-9]" Then
                       .Characters(Start:=i, Length:=1).Font.ColorIndex = 3
                  End If
              End With

            Next i
         Next IntColumn
     Next IntRow
         
End Sub

マクロ実行後

セル内には、数字と文字が混ざった文章が入力されていますが、その中の数値だけに色を付けました。

数字と文字を判別したい時に、便利なマクロです。

※漢数字には色がつきません。

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

【エクセルマクロ】全角英数字記号に色付け：3倍高速化する手法

...

kirinote.com

2022.05.24