|
以前の質問の中にオートフィルターを使って抽出したデータを一件づつ見る方法が有りましたのでそれを適用してVBAを組んで見ましたら出来たのですが、ほしいデータを見つけた所で終了したいのですが、抽出したデータが終わるまでボタンを押しつづけないと終了しません。何方か教えて下さい。
標準モジュール
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
UserForm1
Private Sub CommandButton1_Click()
Me.Hide
End Sub
※オブジェクトには、10個のTEXTボックスを設置
|
|