Excel で色付き文字への置換

質問

こんばんは、

Excel で、シート内の特定の単語（完全一致）だけを
全て赤色のボールド文字列に置換したいのですが、
どのようにしたらよいでしょうか？

どうぞお願いいたします。

回答No.4

pen_pen_pen · ベストアンサー

それではこれで。
例えばセルに"1234abc567"
と入っていれば"abc"だけが赤のボールドになります。

Dim useRng As Range
Dim cell As Range
Dim pos As Integer
Dim findWord As String

findWord = "abc"　'←検索する特定の文字列

'使用されているセル範囲を取得
Set useRng = ActiveSheet.UsedRange
For Each cell In useRng
'セルの内容が完全一致するならば。
pos = InStr(1, cell.Value, findWord)
If pos > 0 Then
With cell.Characters(pos, Len(findWord)).Font
.ColorIndex = 3 '赤色
.Bold = True 'ボールド
End With
End If
Next

お礼

ありがとうございました。

まさにこれです。
助かりました。

回答No.5

sivaco

＃３です。
＞Excell 2000 だからこの機能が無いのでしょうか？

私のは、Excel 2002です。2002だとできます。

質問者さんの2000だとできないのは残念です。
（私も、昔のバージョンではできなかったような気がしていましたので…。）

お礼

ありがとうございました。

やはりバージョンが上がると便利になりますね。
バージョンアップまでは、VBA を利用することにします。

回答No.3

sivaco

「編集」メニューの「置換」で出てくるウィンドウに「オプション」がありますか？
あればこれをクリックしてやると、置換後の書式を指定することができます。（「置換後の文字列」には「検索する文字列」と同じ文字列を入力しましょう。）

バージョン違いとかでできなかったらスミマセン。

お礼

コメントありがとうございます。

Word ではできます。同様の機能を Excel で
使いたかったのですが・・・。

Excell 2000 だからこの機能が無いのでしょうか？

回答No.2

pen_pen_pen

この場をお借りして、hana-hana3さんへ。ハッとしました。何でもVBAでやらなくても標準機能でできますね。

ちなみにVBAならこうです。

Dim useRng As Range
Dim cell As Range

'使用されているセル範囲を取得
Set useRng = ActiveSheet.UsedRange
For Each cell In useRng
'セルの内容が完全一致するならば。
If StrComp(cell.Value, "特定の単語") = 0 Then
cell.Font.ColorIndex = 3　'赤色
cell.Font.Bold = True　'ボールド
End If
Next

お礼

コメントありがとうございます。

ただ、No.1 の方へのお礼にありますように、
明が不十分でした。申し訳ございません。

VBA で、何とかできないでしょうか？

回答No.1

hana-hana3

記入するセルすべてに条件付き書式を設定します。
詳細は下記を参考にしてください。

もしくは、VBAを使用する事でも可能です。

参考URL：

http://www2.odn.ne.jp/excel/waza/cformat.html,http://www.moreexcellent.com/excel/tips/holiday.htm

お礼

コメントありがとうございます。

ただ、ご紹介のサイトではセル全体に色をつける方法が
紹介されているように思われますが、私の質問の意図は、
特定の文字のみの置換でした。

説明が不十分でした。申し訳ございません。