|
VBAは殆ど分からないもののインターネットでコードを見つけては、コードを少しいじっては失敗・・・の繰り返しで何とか使っている者です。
以下のコードを使って特定の文字列の背景を変えていますが、どうも使い勝手がよくありません。
'---以下3行に検索単語を入力---
ではなく、R列もしくはR1からR10に入力された数字の背景を変えるように改変したいのですが、その改変策を教えてもらえませんか?
図々しいですがぜひお願いします。
Sub test()
Dim 検索 As Variant
Dim firstAddress As Variant
Dim list(3)
'---以下3行に検索単語を入力---
list(1) = "aaa"
list(2) = "iii"
list(3) = "uuu"
For i = 1 To 3
Set 検索 = Columns("A:IV").Find(list(i), LookIn:=xlValues)
If Not 検索 Is Nothing Then
firstAddress = 検索.Address
Do
検索.Interior.ColorIndex = 3
Set 検索 = Columns("A:IV").FindNext(検索)
Loop While Not 検索 Is Nothing And 検索.Address <> firstAddress
Else
End If
Next i
End Sub
|
|