文字を参照して、セルに色をつけるVBAを教えてください

質問

Sheet1のA1に高橋と入力すると、Sheet2のA1に高橋と表示されて、さらにそのセルが黄色で塗りつぶされる
というふうにしたいんですが、条件が5つ以上あるので条件付き書式では出来Excelのバージョンは2000です

どなたか、お知恵を拝借できないでしょうか

回答No.1

n-jun · ベストアンサー

参考になりそうな過去ログ
http://okwave.jp/qa1621351.html?rel=innerHtml
●、■を名前に変えて、条件を増やしてあげれば。
ただしセル範囲が”使っている⇒データがある”と言う点を、
確認して下さい。

>Sheet1のA1に高橋と入力すると、Sheet2のA1に高橋と表示
条件がＡ１だけなのか、Ａ列なのか、その他か不明なのですが。。。

お礼

望みどおりのことが出来ました
ありがとうございます

回答No.2

kenpon24

VBEのSheet1に下記を書く。(高橋以外は例)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim szName As String

szName = Worksheets("Sheet1").Range("A1")

With Worksheets("Sheet2").Range("A1")
Select Case szName
Case "高橋"
.Value = szName
.Interior.ColorIndex = 6
Case "朝倉"
.Value = szName
.Interior.ColorIndex = 7
Case "神林"
.Value = szName
.Interior.ColorIndex = 8
Case "美山"
.Value = szName
.Interior.ColorIndex = 9
Case "韮沢"
.Value = szName
.Interior.ColorIndex = 10
End Select
End With
End Sub

colorindexの値はここを参考に
http://www.relief.jp/itnote/xls_colorindex.php

お礼

colorindexの参考のリンクまで貼っていただきありがとうございます。
参考にさせていただきます。