/ / Excel VBAリストボックス

Excel VBAリストボックス

リストボックスは、ユーザーがアイテムを選択できる場所からのリストです。作成するには リストボックスExcel VBA次の手順を実行します。

1.開発者タブで、挿入をクリックします。

2. ActiveXコントロールグループで、リストボックスをクリックします。

Excel VBAでリストボックスを作成する

3.ワークシートのリストボックスをドラッグします。

リストボックスをドラッグする

注意: コントロールの名前を変更するには、コントロールを右クリックして([デザインモード]が選択されていることを確認してください)、[プロパティ]をクリックします。今のところ、ListBox1をリストボックスの名前として残します。

ワークブック公開イベントを作成します。ワークブックのオープンイベントに追加されたコードは、ワークブックを開くとExcel VBAによって実行されます。

4. Visual Basic Editorを開きます。

5.プロジェクトエクスプローラでThis Workbookをダブルクリックします。

6.左のドロップダウンリストから[ワークブック]を選択し、右のドロップダウンリストから[開く]を選択します。

Excel VBAでワークブックを開くイベント

7.リストボックスに項目を追加するために、次のコード行をブックの開くイベントに追加します。

With Sheet1.ListBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

注意: リストボックスが2番目のワークシートにある場合はSheet2を、3番目のワークシートにリストボックスがある場合はSheet3などを使用します。これらのコード行をWorkbook Openイベントの外で使用する場合は、次のコード行を追加しますコード行。このコード行は、リストボックスをクリアします。あなたのコードを複数回実行すると、このようにしてアイテムが複数回追加されなくなります。

ListBox1.Clear

8.このリストボックスをセルにリンクするには、リストボックスを右クリック(デザインモードが選択されていることを確認してください)し、[プロパティ]をクリックします。 LinkedCellのD3を入力します。

LinkedCell

注:ListFillRangeプロパティを参照して、セル範囲でリストボックスを塗りつぶします。

9. Excelファイルを保存して閉じ、再度開きます。

結果:

リストボックス

ワークシートにリストボックスを直接配置すると便利な場合もありますが、リストフォームはUserformに配置すると特に便利です。

また読む: