Sub 色変化()
Moji = "はてな"
For i = 1 To Sheets.Count
With Worksheets(i).Range("a1:IV65536")
Set c = .Find(Moji, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 35
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next i
End Sub
上記で"はてな"と言う言葉を検索して
その部分の色を変えることはできたのですが
たとえばG5に"はてな"という言葉が入っていた場合
A5～G5までの列の色を変えたい場合はどのように
すればよいでしょうか？
よろしくお願いします。
No.2
20
3
38pt
「 A5～J5まで」という意味が、G列から見て相対的に３セル右まで、ということであれば、
Range(c.Offset(0, 3), c.End(xlToLeft)).Interior.ColorIndex = 35
対象が見つかったセルの列を問わず、常にA～G列をということであれば、
Range(Cells(c.Row, 1), Cells(c.Row, 10)).Interior.ColorIndex = 35
で、それぞれできることと思います。
No.1
203
38pt
c.Interior.ColorIndex = 35
とある部分を、
Range(c, c.End(xlToLeft)).Interior.ColorIndex = 35
とすれば良いと思います。
おおお～ありがとうございます。
できました！
左の終わりまでってことですね。
ちなみにセルを指定しての色づけは可能でしょうか？
G5にはてなという言葉が入っていた場合
A5～J5まで色づけにすることはできますか？
No.2
203
ここでベストアンサー
38pt
「 A5～J5まで」という意味が、G列から見て相対的に３セル右まで、ということであれば、
Range(c.Offset(0, 3), c.End(xlToLeft)).Interior.ColorIndex = 35
対象が見つかったセルの列を問わず、常にA～G列をということであれば、
Range(Cells(c.Row, 1), Cells(c.Row, 10)).Interior.ColorIndex = 35
で、それぞれできることと思います。
ありがとうございます！
できました。
まだまだ勉強不足でした。
出直してきます。
1
1
1
1
1
69
58
ありがとうございます！
できました。
まだまだ勉強不足でした。
出直してきます。