VBAの使い方を教えて下さい

質問

説明が下手ですすみません。
下には条件を書くので教えていただけると幸いです。

エクセル VBA ユーザーフォーム上で、距離のからまででオートフィルタがボタン一発で出来るようにしたいです。

【前提条件】
Sheet1のＡ列に、0mから1000mまでの距離のデータがあります。
その他列にはその場所に何々があるなどのデータがあります。

【やりたいこと】
ユーザーフォームに何メーターから何メーターまでと数字を入れて、ボタンを押せばその間のデータが出せるようにしたいです。

そのコードをお解りでしたら教えてください。
よろしくお願い致します。

回答No.1

imogasi

丸投げ的質問だな。
シート名、データ範囲、条件などは自分で修正すること。
ユーザーフォームを挿入。
テキストボックスを２つ貼り付け。
コマンドボタンを１つ貼り付け。
以上は手操作で行う。
そのコマンドボタンのクリックイベントに
Private Sub CommandButton1_Click()
kara = Val(UserForm1.TextBox1.Text)
MsgBox kara
made = Val(UserForm1.TextBox2.Text)
MsgBox made
Worksheets("Sheet1").Range("A:B").AutoFilter 1, ">=" & kara, xlAnd, "<=" & made
End Sub
＝＝
実行-Sub/ユーザーフォームの実行をクリックで実行。
テキストボックスに　例えば１０、もう一つのテキストボックスに４０と入れる
コマンドボタンをクリックで、指定した条件（何々から何々まで）で、Filterが実行される。
Googleで「vba filter 複数条件」などで照会すれば記事が出るよ。
https://daitaideit.com/vba-autofilter-multi/
ーー
Msgbox の行は、納得したらコードから削除。
結果を別シートにコピーしたい場合は、Googleで照会して勉強のこと。

お礼

ありがとうございます