[[20120905113819]]　『下線文字のみ文字色を変える』（にゃんこ）　ページの最後に飛ぶ

『下線文字のみ文字色を変える』（にゃんこ）
シート内に下線がされた文字を赤くしたいです。
印刷ページが100枚近くあって、変更箇所（下線付き）がたくさんあるので見やすくしたいです。
Excel2000、WindowsXPです。
よろしくお願いいたします。

Sub test()

    Dim ix As Long
    Dim iy As Long
    Dim ic As Long

    For iy = 1 To 100
        For ix = 1 To 100
            For ic = 1 To Len(Cells(iy, ix).Text)
                If Cells(iy, ix).Characters(ic, 1).Font.Underline = xlUnderlineStyleSingle Then
                    Cells(iy, ix).Characters(ic, 1).Font.ColorIndex = 3
                End If
            Next ic
        Next ix
    Next iy
End Sub
(???)

あっという間に・・・素敵。
ありがとうございました！
ほんとに助かります。
（にゃんこ）

コメント返信：

[ 一覧(最新更新順) ]

[[20120905113819]] 『下線文字のみ文字色を変える』（にゃんこ） ページの最後に飛ぶ

[[20120905113819]]　『下線文字のみ文字色を変える』（にゃんこ）　ページの最後に飛ぶ