VBA初心者です。A1からA11にデータがあります。画面のテキストボッ

質問

VBA初心者です。A1からA11にデータがあります。画面のテキストボックスに例えば、山と入力し、ボタンをクリックする度、その文字を含むセルに色をつけようとしています。山を含むデータが3個あれば3回ボタンをクリックしないと終了しないというわけです。

データに山の文字を含むセルが複数あった時、下のプログラムでは1回ボタンをクリックした時、色が付きます。2回目以降は(1)でエラーです。

山と言う文字がA3、A6、A9にあれば、1回目はA3を検索、2回目以降はA4から検索しA6で着色、3回目はA7から検索してA9で着色、最後の行までいけばデータは以上、というメッセージを表示ということです。

プログラムは検索部分だけ記載しています。

'データ領域、最終行取得
Worksheets("Sheet1").Activate
Range(Cells(2, 1), Cells(maxRow, 1)).CurrentRegion.Select

If flag = False Then
Set c = Worksheets("Sheet1").Range(Cells(2, 1), Cells(maxRow, 1)).CurrentRegion.Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByColumns)
c.Interior.ColorIndex = 4
flag = True
Else
(1) Set d = Worksheets("Sheet1").Range(Cells(2, 1), Cells(maxRow, 1)).CurrentRegion.FindNext(c)
d.Interior.ColorIndex = 4
End If

flagは
Option Explicit
Dim flag As Boolean
で宣言。flagは、
Private Sub UserForm_Click()
flag = False
End Sub
でフォームロード時にfalseとします。
Flagはテキストボックスに入力した文字をクリアするボタンをクリックした時再びfalseに設定します。

Flagがfalseの時は1度目の検索。2度目以降はTrue。やりたいことは、
1,1度目の検索のセルのアドレスをどこかに保存し、2回目以降のボタンのクリック(Flagがtrue時)はそのセルの次のセルから検索を行う。
2,2回目以降ヒットしたセルの次のセルから検索する。
3,データの最後のセルまで検索した時、メッセージで、"検索終了"といった表示を出す。

(1)はわからないので不完全のプログラムのまま記載しています。特に、1回目の検索したセルのアドレスをどう取得し、Range(Cells(2, 1), Cells(maxRow, 1))に代入すればよいのかわかりません。

Flagをたてるというのはいいアイデアに思ったのですが・・・
(1)前後のプログラムででどうやれば、1回目の検索時(Flagがfalseの時)のセルのアドレスを取得し、2回目以降のボタンのクリック時まで保存し、(1)に代入していけばよいのかわかりません。

ここまではナントカできたのですが・・・お助けください、よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

元のコードは考慮せず、試しに作成してみました。ユーザーフォームは面倒なので、ワークシート上で試しています。次回検索アドレスをB1セルに保存していますが、ユーザーフォームから実行する場合も、データ一時保管用のワークシートを設けて、同様に行う事も可能です。ご参考になれば幸いです。
Sub test()
Dim targetRange As Range
Dim c As Range
Dim lastRow As Long
Dim endFlag As Boolean

With ActiveSheet
lastRow = .Range("a" & .Rows.Count).End(xlUp).Row
If Range("b1").Value = "" Then
Set targetRange = Range(.Range("a1"), .Range("a" & lastRow))
Else
Set targetRange = Range(.Range(.Range("b1").Value), .Range("a" & lastRow))
End If
Set c = targetRange.Find("山", LookIn:=xlValues, LookAt:=xlPart)
If c Is Nothing Then
.Range("b1").Value = ""
endFlag = True
Else
c.Interior.ColorIndex = 4
If c.Row < lastRow Then
.Range("b1").Value = c.Offset(1, 0).Address
Else
.Range("b1").Value = ""
endFlag = True
End If
End If
If endFlag Then MsgBox "検索終了しました"
End With
End Sub

お礼

OKWAVEのビギナーなもので、ここにお礼が書けるとは知りませんでした。ありがとうございます。VBAを勉強し始めたものです。本屋に行っても、基本ばかり書かれている本は山のようにありますが、イザこの機能はどうやって、となると殆ど役に立ちません。

そんなわけで、こんな機能はどうやって組むのか、と自問自答とコピペを繰り返しながら試行錯誤の毎日です。またネットで見かけたら質問に答えてやってください。よろしくお願いします。

回答No.2

mitarashi

#1です。昨日（既に一昨日ですが）から回答がついていないので回答してみましたが、二重投稿状態だったのですね。最初の質問のやりとりは全く見ておりませんでしたので、「この粗忽者」と、ご笑納下さい。