Excel VBA質問箱 IV

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

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


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

35274 / 76732

←次へ　｜　前へ→


	【46659】ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい

ToShiYo - 07/2/9(金) 21:24 -


	引用なし

	パスワード

ComboBoxで選択するときには既にAutoFilterで絞り込んだものを表示したいのですが･･･やり方が分かりません。どなたかご指導ください。
A　　　 B　　　 C
項目1　項目2　項目3
AAA　　100　　東京
BBB　　110　　愛知　
CCC　　120　　千葉　
AAA　　150　　長野　
CCC　　200　　福岡
DDD　　500　　鹿児島　
この項目1の全ての表示は出ているのですが、絞り込んだ状態で

ComboBoxには
AAA
BBB
CCC
DDD
の４項目だけ表示させたいのですが

Private Sub UserForm_Initialize()
　Dim LASROW As Long
　Dim myDRange As String　
　LASROW = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
　myDRange = "Sheet1!A7:A" & LASROW

'　Range("A7:A" & LASROW).AdvancedFilter Action:=xlFilterInPlace, Unique:=True　←この様な操作を付け加え、ComboBoxに反映したいのです。

ListBox1.RowSource = myDRange
If Worksheets("Sheet1").Range("A7").Value = "" Then
　　ListBox1.RowSource = ""
End If
End Sub

1 hits

▼

【46659】ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい ToShiYo 07/2/9(金) 21:24

≪