13章：チェックボタン

    作成2021/11/19

  1. 「ラベル」と「チェックボックス」の挿入
    （1）８章で作成した「8章.xlsm」を起動します。
    （2）開発タブをクリックして「Visual Basic」をクリックします。
    （3）「フォーム」＿「UserForm1」をクリックします。



    （4）「ラベル」と「チェックボックス」を挿入します。



  2. 「標準モジュール」の修正
    （1）「標準モジュール」＿「Module1」をクリックします。
    （２）以下のコードを貼付けます。
    Type myT
    N(2) As Integer
    S(2) As String
End Type
Public myG As myT
Sub Macro1()
    Dim res As Boolean	'ブール型
    myG.N(0) = 0
    Load UserForm1
    UserForm1.CommandButton1.Caption = "OK"
    UserForm1.CommandButton2.Caption = "キャンセル"
    UserForm1.Label1.Caption = "花の名前をチェックしてください"
    UserForm1.CheckBox1.Caption = "バラ"""
    UserForm1.Show
    res = UserForm1.CheckBox1.Value
    dp = 1
    Unload UserForm1
End Sub
    （3）dp = 1の行をクリックします。
    （4）「デバッグ」＿「ブレークポイントの設定/解除」を選択します。



    （5）これで、ブレークポイントの設定ができました。

  3. Macro1の実行
    （1）Macro1を実行します。
    （2）バラをチェックします。



    （3）OKボタンを押します。
    （4）「表示」＿「ウォッチウインドウ」を選択します。
    （5）「デバッグ」＿「ウォッチ式の追加」を選択します。
    （6）式にresを入力して、「OK」ボタンを押します。
    （7）以下のようになります。



    （8）”バラ”をチェックしたとき、resの値がTrueとなり、チェックしないときFalseとなります。

  4. ラベルの表示設定
    （1）「UserForm1.Label1.Caption = "花の名前をチェックしてください"」で設定しています。

  5. チェックボックスの表示設定
    （1）「UserForm1.CheckBox1.Caption = "バラ"""」で設定しています。

  6. チェックボックスの選択結果の獲得
    （1）「res = UserForm1.CheckBox1.Value」で獲得しています。



14章：スピンボタンとスクロールバーに行く。

トップページに戻る。