人に聞けない痔の悩み、これでスッキリ >>

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

A 回答 (2件)

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



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
    • good
    • 0
この回答へのお礼

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

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

たとえば


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列に文字を入れてみて 対象の文字が含まれていたら セルの色 青 文字色 白 にしました。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング