特定の文字を入れるとセルの色・文字色が変わる

VBA初心者です。　
特定の文字を入力すると、セルの色と文字の色が変わるようにしたいのですが
可能でしょうか？（例えば、”赤”と入力すると、セルの色が青・文字色が白。という感じです）
特定の文字は約10種あります。
どうか、お助けを。。

No.2 ベストアンサー 回答者： MackyNo1 回答日時： 2010/11/21 22:07

対象のシート名を右クリックして以下のコードをコピー貼り付けしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "赤"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "青"
Target.Interior.ColorIndex = 10
Target.Font.ColorIndex = 3
End Select
End Sub

この回答へのお礼

ありがとうございました！
これで、期日内にレポートを提出できます！

お礼日時：2010/11/21 22:34

No.1 回答者： hallo-2007 回答日時： 2010/11/21 13:42

たとえば

Sheet2のA1～A10までの　特定の文字
赤
青
白
・・・と準備しておきます。
入力するシートの　シート名を右クリック　コードの表示　をクリック
VBエディターが起動したら

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
For i = 1 To Len(Target.Value)
For j = 1 To 10
If Mid(Target.Value, i, 1) = Sheets("Sheet2").Range("A" & j).Value Then
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
End If
Next
Next
End If
End Sub

をコピーして試してみてください。
A列に文字を入れてみて　対象の文字が含まれていたら　セルの色　青　文字色　白　にしました。

この回答へのお礼

ありがとうございます！
明日会社で試して見ます！

お礼日時：2010/11/21 22:36