Excel VBA質問箱 IV

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

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


58578 / 76732 ←次へ | 前へ→

【22879】Re:リストボックスの表示方法
発言  たかし E-MAIL  - 05/3/5(土) 15:04 -

引用なし
パスワード
   ▼G-Luck さん:
回答ありがとうございます。
今のところ、このサイトで検索できたものを参考に、
ここまでできています。意味がまったくわからず、
ただ、コピーしてみたものがほとんどです。
シート名"データ1"にデータが書き込まれています。

----------------------------------------
Public CE As Long
Private Sub ComboBox1_Change()
 Dim CT2 As Range, Cel As Range, LB2tb() As String
 Worksheets("データ1").Activate
 If ActiveSheet.AutoFilterMode Then
   ActiveSheet.AutoFilterMode = False
 End If
 LtW = ComboBox1.List(ComboBox1.ListIndex)
 Range("B1").AutoFilter field:=3, Criteria1:=LtW
 CE = ActiveSheet.Range("C65536").End(xlUp).Row
 Set CT2 = Range("U2:U" & CE).SpecialCells(xlCellTypeVisible)
   ListBox1.Clear
   Cnt = 0
   For Each Cel In CT2
     On Error Resume Next
     mt = Application.Match(Cel, ListBox1.List, 0)
     If IsError(mt) Or mt = Empty Then
      Cnt = Cnt + 1
      ReDim Preserve LB2tb(1 To Cnt)
      LB2tb(Cnt) = Cel
     End If
     ListBox1.List = LB2tb
     Err.Clear
     On Error GoTo 0
   Next
   Set CT2 = Nothing
   Erase LB2tb
   Application.ScreenUpdating = True
 Worksheets("読み出し").Activate
End Sub
---------------------------------
Combobox1の値は、プロパティの"RoWSource"で設定しています。
が、これからデータを整理していく上で、増えていくことを想定して
かなり多めに設定しています。50行くらい。
これを、データの入っているSell範囲を選択、というようにできると
いいのですが、できますでしょうか?
よろしくお願いいたします。

>▼たかし さん:
>
>順次確認しましょう。
>
>Combobox1の値を取得することはできますか?
>Listbox1の値を、VBAから自由に設定できますか?
>Listbox1の値を、複数列表示に出来ますか?
>
>セルの値と、Comboboxの値を比較して、一致と不一致で、処理を分けることは出来ますか?
>
>間違っていてもいいので、思いのコードを書いてみてください。
>
>他の回答者の方へ、私は無視して結構ですので、回答を付けてあげてください。

1 hits

【22853】リストボックスの表示方法 たかし 05/3/5(土) 0:52 質問
【22871】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 13:42 発言
【22879】Re:リストボックスの表示方法 たかし 05/3/5(土) 15:04 発言
【22881】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 18:08 回答
【22882】Re:リストボックスの表示方法 たかし 05/3/5(土) 19:38 お礼
【22883】Re:リストボックスの表示方法 たかし 05/3/5(土) 20:57 質問
【22884】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 21:10 発言
【22888】Re:リストボックスの表示方法 たかし 05/3/6(日) 11:23 質問
【22889】Re:リストボックスの表示方法 G-Luck 05/3/6(日) 11:47 発言
【22893】Re:リストボックスの表示方法 たかし 05/3/6(日) 13:21 質問
【22895】Re:リストボックスの表示方法 G-Luck 05/3/6(日) 14:57 発言
【22896】Re:リストボックスの表示方法 たかし 05/3/6(日) 16:19 質問

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