Excel VBA質問箱 IV

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

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


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

41611 / 76732

←次へ　｜　前へ→


	【40200】Re:リストボックスからオートフィルタ抽...

Ｈｉroko - 06/7/8(土) 20:46 -


	引用なし

	パスワード

▼ME さん
あなたのデータで作成しました。

貴方のデータで表を次の通りしています
氏名　項目１
山田　120
　：　：

一行目に項目行を入れています

Userformにはリストボックスとコマンドボタンを付けてください。

次のコードを添付してください。

'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊UserForm1に貼り付け
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1, Criteria1:=UserForm1.ListBox1.Value
End Sub

Private Sub UserForm_Initialize()
Dim LASROW As Long
Dim myDRange As String

LASROW = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
myDRange = "Sheet1!A2:A" & LASROW
ListBox1.RowSource = myDRange

If Worksheets("Sheet1").Range("A2").Value = "" Then
　　ListBox1.RowSource = ""
End If

End Sub

'＊＊＊＊＊＊＊＊＊＊＊＊＊＊標準モジュールに貼り付け

Sub UseFrm_Show()
UserForm1.Show 0
End Sub

リストの氏名を選択して、コマンドボタンを押すと絞りこまれます。
一度試してください

11 hits

▼

【39675】リストボックスからオートフィルタ抽出結果へ ＭＥ 06/6/28(水) 20:57