ここから本文です

【Excel】文字色を一括変換したい Excel2000(Win-XP)使用者です。 シート内の"...

tea********さん

2012/10/2619:54:11

【Excel】文字色を一括変換したい
Excel2000(Win-XP)使用者です。
シート内の"日本"という文字列を青色に一括変換する方法を教えてください。
*セルではなく文字列単位
*セル内に"日本"が複数ある想定

以下事例を参考にマクロを組んでみましたが、セル内に"日本"が複数ある場合、最初の1つしか色変換できませんでした。
http://oshiete.goo.ne.jp/qa/2769123.html

閲覧数:
1,864
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2012/10/2621:53:40

こんな感じです。

Sub Sample()
Dim re, m1, m2, r As Range
Set re = CreateObject("VBScript.RegExp")
With re
.Pattern = "日本"
.IgnoreCase = True
.Global = True
For Each r In ActiveSheet.UsedRange
Set m1 = .Execute(r)
For Each m2 In m1
r.Characters(m2.firstindex + 1, 2).Font.ColorIndex = 3
Next
Next
End With
Set re = Nothing
Set m1 = Nothing
Set m2 = Nothing
Set r = Nothing
End Sub

質問した人からのコメント

2012/10/30 11:03:04

返信が遅れましてすみません。
この方法で解決できました!ありがとうございました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる