【エクセルで困っています？？】特定文字の色をマクロで変更したい

お世話になります。
エクセル表の中に"有"と"無"の文字があります。
有は青に、無は赤にマクロで変更したいです。
エクセル表には関数式が入っており、置換では変更できませんでした。
他に条件式書式を使用しているため、マクロで一度に変更したいのです。
よろしくお願いします。

No.3 ベストアンサー 回答者： xls88 回答日時： 2010/02/17 06:28

シートラベルを右クリックし、メニューの「コードの表示」でVBEが表示されます。

VBEのコードウインドウに下記コードをコピペしてください。
A1:A10にデータ入力、B列に数式と想定しています。
データが入力あるいは変更されるとマクロが実行されます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing = False Then
With Target.Offset(, 1)
If .Value = "無" Then
.Font.ColorIndex = 3
ElseIf .Value = "有" Then
.Font.ColorIndex = 5
End If
End With
End If
End Sub

この回答へのお礼

ご連絡が遅くなりました。
出来ました。！！！ありがとうございます。すばらし。。大変助かりました。
マクロも奥が深いですね。勉強になりました。

お礼日時：2010/02/20 09:46

No.2 回答者： xls88 回答日時： 2010/02/16 21:33

マクロの一例です。

Dim c As Range

For Each c In Range("C2:C6")
With c
If .Value = "無" Then
.Font.ColorIndex = 3
ElseIf .Value = "有" Then
.Font.ColorIndex = 5
End If
End With
Next c

この回答へのお礼

ご連絡が遅くなりました。
はやばやとご回答ありがとうございます。

お礼日時：2010/02/20 09:43

No.1 回答者： xls88 回答日時： 2010/02/16 20:55

どのような数式が入っているのでしょうか？

書式設定で出来ないでしょうか？
例えば
=IF(A1="",0,1)
といった数式で、セルの書式設定＞表示形式＞ユーザー定義で
[赤][=0]"無";[青][=1]"有"
としてみてください。

この回答へのお礼

ありがとうございます。
Ａｃｃｅｓｓからインポートしており、いろいろなところに関数式が入ってます。
ぜひ参考にさせていただきます。

お礼日時：2010/02/20 08:46