エクセルVBAでの検索機能について 削除
| Message#1 2015年2月5日(木)23時12分 From: arg135 |
| エクセルのVBAをあるキーワードの検索を行いたいと考えています。 Sheets1シートのリストの中からSheets2シートの商品を検索して見つかった 色をかえるというものです。 マクロの記録から行うのはできたのですが、そこからカスタマイズする方法が分かりませんでした。 おそらくループ処理でまわしていくのだと思うのですが、For〜Next文が苦手でいまいちわかりません。 解決策ありましたら教えてください。 Sub sample() Sheets("Sheets2").Select Dim i As Long, cnt As Long, oRange As Range i = 2 Set ID = Worksheets("Sheets2").Cells(i, 1) Do While Worksheets("Sheets2").Cells(i, 1) <> "" Sheets("Sheets1").Select If ID Is Nothing Then Worksheets("Sheets1").Cells.Find(what:=ID _ , After:=Worksheets("Sheets1").Cells(i, 1) _ , LookIn:=xlValues _ , LookAt:=xlWhole _ , SearchOrder:=xlByRows _ , SearchDirection:=xlNext _ , MatchCase:=False _ , MatchByte:=False _ , SearchFormat:=False).Activate If ID Is Nothing Then Else ActiveCell.Interior.Color = "Red" i = i + 1 Loop End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
