Excel VBA で 一括書式設定（選択セルのみ）

質問

おはようございます。教えてください。

結合されたセル内に、

あいうえお１か
き？! くけこ２
さしすせそ3たち。
つてとな45.67

というように、いくつかのセル内改行を含み、文字数がばらばらのデータが入っています。
それらの１行目（上記の例で言うと、「あいうえお１か」）のみフォント緑色、２行目はフォント青色、３行目以降はフォント黒色の書式設定を、選択セルすべてに対し、マクロで行いたいのです。

１行目だけなら以下のマクロでできたのですが、２行目以降の参照の仕方がわかりません。

Sub 一行目緑()

For Each c In Selection
With c.Characters(Start:=1, Length:=InStr(c.Value, Chr(10)) - 1).Font
.ColorIndex = 10
End With
Next

End Sub

ご回答よろしくお願いいたします。

回答No.1

fujillin · ベストアンサー

CharactersのStartとLengthの値を制御しながら、色を指定してゆけば良いだけです。
種類が3種類なので、そのままべたに並べてしまえば…

Sub Sample()
Dim c As Range, v() As String, i As Integer

For Each c In Selection
　v = Split(c.Text, vbLf)
　i = UBound(v)
　If i >= 0 Then c.Characters(, Len(v(0))).Font.ColorIndex = 10
　If i >= 1 Then c.Characters(Len(v(0)) + 2, Len(v(1))).Font.ColorIndex = 5
　If i >= 2 Then c.Characters(Len(v(0)) + Len(v(1)) + 3).Font.ColorIndex = 1
Next c
End Sub

お礼

すごい！
ちょっとかじったばかりの私には、非常に勉強になります！
ありがとうございます！