[[20090213141152]] 『コンボボックスにリストをセットする』(ドドモ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『コンボボックスにリストをセットする』(ドドモ)

 VBAは素人です。よろしくお願いします。
 小分けに質問させてください。

 コントロールツールバーのコンボボックスでAチーム、Bチームを
 選択したいのですがドロップダウンリストはどうやって設定すればよいのですか?


 ↓のようなかんじでコンボボックスにリストを格納できます。

 Aチーム、Bチームがセルに入力されているなら、

 セルが連続している場合
 Private Sub Workbook_Open()
  Worksheets(1).ComboBox1.List = Worksheets(1).Range("A1:A2").Value
 End Sub

 セルが連続していない場合
 Private Sub Workbook_Open()
  Worksheets(1).ComboBox1.AddItem = Worksheets(1).Range("A1").Value
  Worksheets(1).ComboBox1.AddItem = Worksheets(1).Range("A3").Value
 End Sub

 セルに入力されていないなら、
 Private Sub Workbook_Open()
  Worksheets(1).ComboBox1.AddItem "Aチーム"
  Worksheets(1).ComboBox1.AddItem "Bチーム"
 End Sub

 あるいは、

 Private Sub Workbook_Open()
  Dim ary As Variant
   ary = Array("Aチーム", "Bチーム")
   Worksheets(1).ComboBox1.List = ary
   Erase ary
 End Sub

 セルに入力されている場合は、
 編集モードにして
 コンボボックスのプロパティのLitsFillRangeに
 Shee11!A1:A2
 のように直接入力、
 でもいけます。

 VBAなら、こんなかんじ。

 Private Sub Workbook_Open()
  Worksheets(1).ComboBox1.ListFillRange = "Sheet1!A1:A2"
 End Sub
 (MARBIN)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.