ひさびさにマクロ書いてみた

G列に入っているのが「ほげほげほげ」だったら、その行を薄水色に塗る。だけ。

すっかり、ご無沙汰してたから、変なところにGOTO使ったりして、美しくないな…
セルの判定にしても、For-Nextの繰り返し数の指定にしても、エレガントじゃない。
リハビリしなきゃな。


Sub finder()
'
' finder Macro
'
Dim i As Integer
Dim RA As Range
i = 1
For i = 1 To 10000
      Cells(i, 7).Select
      If Selection = "ほげほげほげ" Then
              With (Rows(i).Select)
              Selection.Interior.ColorIndex = 37
              End With
      End If
      Cells(i, 7).Select
     
      If Selection.Value = "" Then GoTo 200
    
Next i
200
y = "終わりました。"
MsgBox y

End Sub