[[20160524202059]]　『文字色変更』（kysj）　ページの最後に飛ぶ

『文字色変更』（kysj）

k4～k20の中で○が入力されていたら○を赤色にする標準モジュールを教えてください。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 ○はどこに入力されているのか?

 また、セルなどの場合、○以外にも何か入力されていて、○だけを赤くしたいのか、セル全体の
 文字色を赤にしたいのか？

 >k4～k20の中で○が入力されていたら

 K4-K20の中で一つでも○があったらどこかの○を赤にしたいのか？

 K4-K20の中で○がセルに含まれていたら、そのセルの○を赤にしたいのか？
（カリーニン） 2016/05/24(火) 21:06

説明不足ですいません。

「K4-K20の中で○がセルに含まれていたら、そのセルの○を赤にしたい」

です。よろしくお願いします。
（kysj） 2016/05/24(火) 21:17

 そのセルの文字をすべて赤　ということなら条件付書式が使えるところでしょうけど
 ○　のみを　赤にしたいんですね。

 わかりにくいかもしれませんが一例です。

 Sub Test()
    Dim c As Range
    Dim mt As Object

    Range("K4:K20").Font.ColorIndex = xlAutomatic

    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "○"
        For Each c In Range("K4:K20")
            For Each mt In .Execute(c.Value)
                c.Characters(mt.firstindex + 1, 1).Font.Color = vbRed
            Next
        Next
    End With

 End Sub

（β） 2016/05/24(火) 21:54

大変ありがとうございました。
（kysj） 2016/05/24(火) 22:27

コメント返信：

[ 一覧(最新更新順) ]

[[20160524202059]] 『文字色変更』（kysj） ページの最後に飛ぶ

[[20160524202059]]　『文字色変更』（kysj）　ページの最後に飛ぶ