[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『コンボボックスにリストをセットする』(ドドモ)
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.