Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72440 / 76807

←次へ　｜　前へ→


	【8850】オートフィルター検索データ参照ストップ

カルーア

- 03/11/6(木) 9:43 -


	引用なし

	パスワード

以前の質問の中にオートフィルターを使って抽出したデータを一件づつ見る方法が有りましたのでそれを適用してＶＢＡを組んで見ましたら出来たのですが、ほしいデータを見つけた所で終了したいのですが、抽出したデータが終わるまでボタンを押しつづけないと終了しません。何方か教えて下さい。
標準モジュール
　Sub データ抽出()
　　Dim Rng As Range

　　Set Rng = Range(Range("A3"), Range("A65536").End(xlUp)) _
　　　　.SpecialCells(xlCellTypeVisible)
　　
　　For Each i In Rng
　　　　For t = 1 To 12
　　　　UserForm2.Controls("TEXTBOX" & t).Text _
　　　　　　= i.Offset(, t - 1).Value
　　　　Next
　　　　UserForm2.Show
　　Next
　　
　　Set Rng = Nothing
　End Sub

UserForm１
　Private Sub CommandButton1_Click()
　　　Me.Hide
　End Sub
※オブジェクトには、１０個のＴＥＸＴボックスを設置

0 hits

▼

【8850】オートフィルター検索データ参照ストップ カルーア 03/11/6(木) 9:43

≪