たびたびお世話になります。
worksheet_changeを使うマクロを作成しています。
sheet1で入力されたデータがsheet2にあるデータベースの文字と一致した場合、sheet1の該当セル(入力した部分)の色を変えます。
もしそのセルの内容が変更、削除された場合は塗りつぶしなしに戻します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTitle As String
sTitle = Target.Value
If sTitle = "aaa" Then
Target.Interior.ColorIndex = 7
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub
このコードで、「aaaという文字を入れたら色を変える/削除・変更されたらは塗りつぶしなし」という動作はできました。
しかしその後、aaaに当たる項目が増え、項目自体を変更する可能性も増えたので、上記のように別シートにデータベースを作ることにしたのです。
このコードを基にしてプログラムを組んだのですが、うまく参照が出来てないようでコンパイルエラーになってしまいます。
アイディアでも良いのでアドバイスをお願いします。
たびたびお世話になります。
worksheet_changeを使うマクロを作成しています。
sheet1で入力されたデータがsheet2にあるデータベースの文字と一致した場合、sheet1の該当セル(入力した部分)の色を変えます。
もしそのセルの内容が変更、削除された場合は塗りつぶしなしに戻します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTitle As String
sTitle = Target.Value
If sTitle = "aaa" Then
Target.Interior.ColorIndex = 7
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub
このコードで、「aaaという文字を入れたら色を変える/削除・変更されたらは塗りつぶしなし」という動作はできました。
しかしその後、aaaに当たる項目が増え、項目自体を変更する可能性も増えたので、上記のように別シートにデータベースを作ることにしたのです。
このコードを基にしてプログラムを組んだのですが、うまく参照が出来てないようでコンパイルエラーになってしまいます。
アイディアでも良いのでアドバイスをお願いします。