[[20050809140506]]　『3個以上の条件付書式のVBAについて』（新井）　ページの最後に飛ぶ

『3個以上の条件付書式のVBAについて』（新井）
VLOOKUPを使って、動物を検索しこの動物に色を自動加色したいのですが、以下のＶＢＡでは動物の単純入力では上手くいきますが、VLOOKUPでは上手く発色致しません。どうすればよいでしょうか。

使用環境：Excel2000/WindowsXP

参考VBA
Private Sub Worksheet_Change(ByVal Target As Range)
'変数宣言
Dim colr As Integer
Dim c As Variant

    If Target.Count > 1 Then Exit Sub
    If Target.Column < 1 Then Exit Sub
        For Each c In Target
            Select Case c.Value
                Case "さる"
                    colr = 3  'ここの色番号をお好きなように
                Case "くま"
                    colr = 5 '々
                Case "とり"
                    colr = 6  '々
                Case "いぬ"
                    colr = 4 '々
                Case "ねこ"
                    colr = 8 '々
                Case "あゆ"
                    colr = 7 '々
                Case Else
                    colr = xlNone
            End Select
            c.Interior.ColorIndex = colr
    Next c
End Sub

 予め式をいれておくというのではイベントは起こりませんからね。
 シートモジュールではなく標準モジュールで作成されたらいいと思いますが。
 (一元)

シートモジュールと標準モジュールって何ですか？
ちなみに僕は超VBA初心者です。標準モジュールでの記録方法を教えてください。

標準モジュールのモデル１に上記参考VBAを張り付けたのですが全く動きません。ご教授お願いします。

コメント返信：

[ 一覧(最新更新順) ]

[[20050809140506]] 『3個以上の条件付書式のVBAについて』（新井） ページの最後に飛ぶ

[[20050809140506]]　『3個以上の条件付書式のVBAについて』（新井）　ページの最後に飛ぶ