Excel VBA質問箱 IV

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

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


35280 / 76738 ←次へ | 前へ→

【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
の4項目だけ表示させたいのですが

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

0 hits

【46659】ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい ToShiYo 07/2/9(金) 21:24 質問
【46660】Re:ComboBoboxで選択するときに、既にAuto... MOON 07/2/9(金) 22:35 回答
【46666】Re:ComboBoboxで選択するときに、既にAuto... ToShiYo 07/2/10(土) 19:29 お礼
【46701】Re:ComboBoboxで選択するときに、既にAuto... MOON 07/2/12(月) 19:12 回答
【46744】Re:ComboBoboxで選択するときに、既にAuto... ToShiYo 07/2/13(火) 19:56 お礼

35280 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free