VBAを勉強し始めた者です。

質問

VBAを勉強し始めた者です。

Private Sub スタート_Click()

Dim myKey As String
Dim maxrow As Long

myKey = 入力値.Value

maxrow = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

If flag = False Then

'初めての検索処理

(1) Set c = Worksheets("sheet1").Range(Cells(2, 1), Cells(maxrow, 1)).Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows)

c.Interior.ColorIndex = 4

'初めての結果(range)を保存しておく
Set d = c
flag = True
Else
'2回目以降の検索処理

(2) Set d = Worksheets("sheet1").Range(Cells(2, 1), Cells(maxrow, 1)).Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows)

d.Interior.ColorIndex = 4
'保存しておいた結果と今回の検索結果を比較して1周してきたと判断して終了を表示
If c.Address = d.Address Then MsgBox "検索終了"
End If

End Sub

現在データはA1がデータ名(名前、番号、住所など)、A2からA11までデータが入っています。テキストボックス(以下TB)に入力された文字を含むセルに着色する、というものです。検索、着色部分は成功しています。
これにB1にデータ名、さらにB2からB11まで新たにデータを加えました。

本来はA列だけ検索の対象にしたいのですが後で他の機能を追加するためB列にもデータを加えました。

たとえばテキストボックスに入力した文字を三とします。三を含むデータがA2、A11、B2、B11にあったとします。
上記のプログラムだと、なぜかA11だけ着色され、終了します。本来はA2から下に向かって検索してほしいのですが。

試行錯誤した中には、B2→A11の二つのセルだけ、TBに入力された文字が含まれるセルに着色していきました。

11行以降もデータが増えることを想定して、
maxrow = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
で最終行を取得し、(1)、(2)を、
Set d = Worksheets("sheet1").Range("A2:"A" & maxrow).以下省略
としましたが、エラーが出ました。

手直しして、(1)(2)を最終行をカウントしてA2から始まって、A11まで検索できるようにしたはずなのですが、やはりダメでした。Range("A2:"A" & maxrow)の部分と上記のプログラムの不具合を教えてください。よろしくお願いします。

回答No.2

nattocurry · ベストアンサー

(1) Set c = Worksheets("sheet1").Range(Cells(2, 1), Cells(maxrow, 1)).Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows)

(2) Set d = Worksheets("sheet1").Range(Cells(2, 1), Cells(maxrow, 1)).Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows)

この2式は、セットする変数(左辺)が違うだけで、処理内容(右辺)はまったく同じですよね。
これだと、1回目と2回目で、同じところを着色して、
If c.Address = d.Address Then MsgBox "検索終了"
で必ず終了します。

というか、このコードは、Ifで条件分岐をさせているだけで、ループしてませんよね。
これだと、常に「'初めての検索処理」をして終わります。

VBEにおいて、F8キーでステップ実行させて、1行ごとの処理を確認することができます。
それをやって、実際の流れと、そのときの変数の値を把握しましょう。

あと、モジュールの先頭に、
Option Explicit
と書いて、変数宣言をしないとエラーになるようにしたほうが良いですよ。

お礼

コメントありがとうございます。

>というか、このコードは、Ifで条件分岐をさせているだけで、ループしてませんよね。
>これだと、常に「'初めての検索処理」をして終わります。

そうです。この点をまず第一にして今プログラムを変えています。結構変わりそうですが、
>これだと、常に「'初めての検索処理」をして終わります。
にならないよう考えてみます。

>あと、モジュールの先頭に、
>Option Explicit
>と書いて、変数宣言をしないとエラーになるようにしたほうが良いですよ。
ありがとうございます。ここは既にしてあります。

また分らなければよろしくお願いします。

回答No.1

nattocurry

(1) Set c = Worksheets("sheet1").Range(Cells(2, 1), Cells(maxrow, 1)).Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows)

(2) Set d = Worksheets("sheet1").Range(Cells(2, 1), Cells(maxrow, 1)).Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows)

この2式は、セットする変数(左辺)が違うだけで、処理内容(右辺)はまったく同じですよね。
これだと、1回目と2回目で、同じところを着色して、
If c.Address = d.Address Then MsgBox "検索終了"
で必ず終了します。

というか、このコードは、Ifで条件分岐をさせているだけで、ループしてませんよね。
これだと、常に「'初めての検索処理」をして終わります。

VBEにおいて、F8キーでステップ実行させて、1行ごとの処理を確認することができます。
それをやって、実際の流れを把握しましょう。

あと、モジュールの先頭に、
Option Explicit
と書いて、変数宣言をしないとエラーになるようにしたほうが良いですよ。

ちなみに、
Range("A2:"A" & maxrow)
は
Range("A2:A" & maxrow)
こう書けば大丈夫です。