コントロール a

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

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





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





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





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





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





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





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





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





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




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





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





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

。

リストボックスは複数の項目から数値、文字列を選択する場合に使用します。リストボックスは数値、文字列(当日年月日など)などを事前に初期値としてセットする必要があります。例としてリストボックスをフォームに配置し、西暦(1900〜現在の西暦)を初期値としてセットするコードを記述します。

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





2. リストボックスを配置したい場所でドラック＆ドロップします。





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





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





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





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





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





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





9. リストボックスに項目を追加するにはAddItemメソッドを使用します。
   Private Sub UserForm_Initialize()〜End Sub の間に以下のコードを記述します。




Private Sub UserForm_Initialize()
    Dim i As Integer
    
    For i = 1900 To Year(Date)
        UserForm1.lstYear.AddItem i
    Next
End Sub
  





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





11. フォームがロードされリストボックスに西暦(1900〜現在の西暦)が初期値としてセットされます。

チェックボックスは項目が選択されているかを判定する場合に使用します。例としてチェックボックスとコマンドボタンをフォームに配置し、チェックボックスが選択されているかを判定するコードを記述します。

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








2. チェックボックスを配置したい場所でドラック＆ドロップします。








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








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








5. Captionをクリックし、デフォルトでCaption(CheckBox1)が入力されているので変更します。(例ではチェックボタンに変更)








6. 次にツールボックスよりコマンドボタンのアイコンをクリックします。








7. コマンドボタンを配置したい場所でドラック＆ドロップします。





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





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





10. Captionをクリックし、デフォルトでCaption(CommandButton1)が入力されているので変更します。(例ではチェックするに変更)





11. コマンドボタンをクリックして選択し、右クリックしコードの表示をクリックするか、ダブルクリックします。





12. チェックボックスを選択している場合は"True"を選択していない場合は"False"をVariant型で返します。Private Sub cmdCheck_Click()〜End Sub の間に以下のコードを記述します。




Private Sub cmdCheck_Click()
    
    Dim varCheck As Variant
    
    varCheck = UserForm1.chkSelect.Value
    
    If varCheck = True Then
         MsgBox "チェックが入っています"
    ElseIf varCheck = False Then
         MsgBox "チェックが入っていません"
    End If
    
End Sub
  





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





14. ボタンをクリックするとチェックボックスが選択されている場合は"チェックが入っています"とメッセージボックスが表示されます。





15. 選択されていない場合は"チェックが入っていません"と表示されます。

オプションボタンは複数ある項目の中でいずれか1つを選択する場合に使用します。まず、フレームをフォームに設置し、配置したフレームの中にオプションボタンを配置することにより、各オプションボタンは1つのグループとなります。例としてフレーム、オプションボタン、コマンドボタンをフォームに配置し、どのオプションボタンが選択されているかを判定するコードを記述します。

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





2. フレームを配置したい場所でドラック&ドロップします。





3. フォームに配置できたらフレームを右クリックし、プロパティを選択します。





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





5. Captionをクリックし、デフォルトでCaptionに"Frame1"が入力されているので変更します。(例では血液型に変更)





6. 次にツールボックスよりオプションボタンのアイコンをクリックします。





7. オプションボタンを配置したい場所でドラック＆ドロップします。





8. フォームに配置できたらオプションボタンを右クリックしプロパティを選択します。





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





10. Captionをクリックし、デフォルトでCaptionに"OptionButton1"が入力されているので変更します。(例ではA型に変更)





11. 「6〜10」の要領で、B型、AB型、O型のオプションボタンを配置します。





12. 最後にツールボックスよりコマンドボタンのアイコンをクリックします。





13. コマンドボタンを配置したい場所でドラック＆ドロップします。





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





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





16. Captionをクリックし、デフォルトでCaption(CommandButton1)が入力されているので変更します。(例ではチェックするに変更)





17. コマンドボタンをクリックして選択し、右クリックしコードの表示をクリックするか、ダブルクリックします。





18. オプションボタンが選択されている場合は"True"を選択していない場合は"False"をVariant型で返します。


Private Sub cmdCheck_Click()〜End Sub の間に以下のコードを記述します。



Private Sub cmdCheck_Click()
    Dim varTypeA As Variant
    Dim varTypeB As Variant
    Dim varTypeO As Variant
    Dim varTypeAB As Variant
    
    varTypeA = UserForm1.optTypeA.Value
    varTypeB = UserForm1.optTypeB.Value
    varTypeO = UserForm1.optTypeO.Value
    varTypeAB = UserForm1.optTypeAB.Value
    
    If varTypeA = True Then
        MsgBox "Ａ型を選択しています。"
    ElseIf varTypeB = True Then
        MsgBox "Ｂ型を選択しています。"
    ElseIf varTypeO = True Then
        MsgBox "Ｏ型を選択しています。"
    ElseIf varTypeAB = True Then
        MsgBox "ＡＢ型を選択しています。"
    Else
        MsgBox "血液型を選択してください。"
    End If
    
End Sub
  





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





20. 任意のオプションボタンを選択し、ボタンをクリックすると"〜型です。"とメッセージボックスが表示されます。

スピンボタンは年月日や増減する値などを入力する際に使用します。スピンボタンは通常、スピンボタン単体ではなくテキストボックスと併用して作成します。例としてテキストボックスとスピンボタンをフォームに配置し、当日年月日を初期値としてセットするコードを記述します。

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





2. テキストボックスを配置したい場所でドラック＆ドロップします。





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





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





5. 次にツールボックスよりスピンボタンのアイコンをクリックします。





6. スピンボタンを配置したい場所でドラック＆ドロップします。





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





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





9. フォームを右クリックしコードの表示を選択します。





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





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





12. Private Sub UserForm_Initialize()〜End Sub の間に以下のコードを記述します。




Private Sub UserForm_Initialize()
    UserForm1.txtDate.Value = Date
End Sub
  



　

13. スピンボタンを右クリックしコードの表示を選択します。





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





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





16. Private Sub spnDate_SpinUp()〜End Sub の間に以下のコードを記述します。




Private Sub spnDate_SpinUp()
    Dim dtDate As Date
    dtDate = UserForm1.txtDate.Value
    UserForm1.txtDate.Value = DateAdd("d", 1, dtDate)
End Sub  





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





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





19. Private Sub spnDate_SpinUp()〜End Sub の間に以下のコードを記述します。




Private Sub spnDate_SpinDown()
    Dim dtDate As Date
    dtDate = UserForm1.txtDate.Value
    UserForm1.txtDate.Value = DateAdd("d", -1, dtDate)
End Sub  





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





21. フォームがロードされテキストボックスに本日日付が初期値としてセットされます。スピンボタンをクリックすると日付が変わります。