VBAである一定以上の数値を検索して、処理を行うようにしたいのですが…

質問

VBAである一定以上の数値を検索して、処理を行うようにしたいのですが…

初めまして。
業務で効率化を図るための簡易ソフトのようなものを作るため、VBAを勉強しています。
VBAである一定以上の数値をＡシートのある範囲から検索して、ある一定以上の数値が1個以上であればテキストボックスにＡシートのあるセルの言葉を表示させたいと考え、以下のようなものを作りましたが、「オブジェクト変数またはWithブロック変数が設定されていません」と出てしまいます。
どなたかご教授下さればとても助かります。
ちなみにExcel2007です。

Private Sub CommandButton1_Click()
Dim Target1 As Variant
Target1 = Worksheets("A").Range("D8:V8").Find(">=10")
TextBox1.Text = ""
Me.TextBox1.Font.Size = 14

　If OptionButton1 = True Then
If Target1 >= 1 Then
Worksheets("A").Range("B33").Copy
Me.TextBox1.Paste
Application.CutCopyMode = False
ElseIf Target1 = 0 Then
Worksheets("A").Range("B34").Copy
Me.TextBox1.Paste
Application.CutCopyMode = False
End If
End If
End Sub

回答No.1

imogasi · ベストアンサー

>Target1 = Worksheets("A").Range("D8:V8").Find(">=10")
のＦｉｎｄメソッドの引数がおかしいのでは。
Ｆｉｎｄは値の場合（xlValues）はその値１つ、数式（xlFormulas）の場合は、数式の文字列の一部の一致で、範囲に該当するものを抜き出す（以上のセルを検索するのは、このメソッドの機能ではないでしょう。）
ーー
良く勉強してからメソッドや、プロパティを使わないと。少なくても、実行してうまく行かないことが判った後は、自力で色々テストしてみて考えるべきです。
ーー
セル範囲から、大小条件を満たす数値のセルを抜き出す（見つけ出す）のは、良いものはなさそうだ。For Each　cl　In Range　(”A1:D4")　などを使ったら。
Sub test01()
For Each cl In Range("B2:D4")
If cl > 50 Then　
MsgBox cl.Address & " 50より大"　'本当は見つかったときの処理をここで
End If
Next
End Sub

お礼

ありがとうございました。
確かに勉強不足な点が多々あります。

とりあえずの解決法として、自分で見つけたのものですが、COUNTIF関数を用いて個数を数えることで解決しました。
難しいマクロについてはもうちょっと勉強を重ねてからにします。