|
こんにちは。教えてください。
シートのA1にexcel、A2に99999が入っています。
いま、UserFormのVBAに下記を記述しました。
つまり、
(1)Button1はTextBoxにexcelと入れたらMsgBoxに99999と出し、
(2)Button12TextBoxをクリアしたいのです。
ところが
(1)は実行時エラ-9 インデックスが有効範囲にない、
(2)はコンパイルエラー、メソッドまたはデータメンバがみつかりません、とでます。
何が欠けていますでしょうか。
Private Sub CommandButton1_Click()
Dim MyVariant As Variant
Dim i As Long
MyVariant = Range("A:A")
For i = 1 To UBound(MyVariant)
If MyVariant(i, 1) = UserForm1.TextBox1.Value Then
MsgBox MyVariant(i, 2) '(1)ここでError
Exit Sub
End If
Next i
MsgBox "見つかりませんでした。"
End Sub
Private Sub CommandButton2_Click()
UserForm1.TextBox1.Clear ' (2)ここでもError
End Sub
|
|