Excel VBA 初心者の為の入門講座のホームページです

Excel VBA 入門講座


2.コンボボックス

コンボボックスは数値、文字列などを入力したり、コンボボックスから選択する際に使用します。また、コンボボックスのリストに項目をセットすることができます。例としてコンボボックスをフォームに配置し、月(1〜12)を初期値としてセットするコードを記述します。

  1. ツールボックスよりコンボボックスのアイコンをクリックします。


  2. コンボボックス

  3. コンボボックスを配置したい場所でドラック&ドロップします。


  4. コンボボックス

  5. フォームに配置できたらコンボボックスを右クリックしプロパティを選択します。


  6. コンボボックス

  7. プロパティ項目のオブジェクト名をクリックし、デフォルトでオブジェクト名(ComboBox1)が入力されているので変更します。(例ではcmbMonthに変更)(オブジェクト名は変更しなくても良いのですが、後々コンボボックスが増えた場合区別がつきにくくなるので変更することをお勧めします。)


  8. コンボボックス

  9. ユーザーフォームをクリックして選択し、右クリックしコードの表示をクリックするか、ダブルクリックします。


  10. コンボボックス

  11. 以下のコードが自動的に記述されます。


  12. コンボボックス

  13. 右のドロップダウンリストより、イベントプロシージャ「Initialize」選択します。


  14. コンボボックス

  15. イベントプロシージャを選択すると自動的にコードが記入されます。


  16. コンボボックス

  17. コンボボックスに項目を追加するメソッドとしてAddItemメソッドがあります。Private Sub UserForm_Initialize()〜End Sub の間に以下のコードを記述します。


  18. 
    Private Sub UserForm_Initialize()
        Dim i As Integer
        
        For i = 1 To 12
            UserForm1.cmbMonth.AddItem i
        Next
        
    End Sub
      


  19. 実行→Sub/ユーザーフォームの実行をクリックするか〔F5〕ボタンを押します。


  20. コンボボックス

  21. フォームがロードされコンボボックスの項目に月(1〜12)がセットされます。


  22. コンボボックス
Copyright (C) pc-users.net, All Rights Reserved.