【ExcelVBA】ユーザーフォーム活用テクニック編【チェックボックス】

ユーザーフォーム

みなさん、こんにちはケンケンです。

今回からユーザーフォームでよく使うテクニックを紹介していきます。

今回は、チェックボックスを紹介します。

チェックボックスは、チェックシートなんかで見るレ点を付けるものです。

それでは、早速作ってみましょう。

資料は以前ご紹介したものを使っていきます。

こちらでご覧いただいてからの方が理解は早いと思います。

1 チェックボックスの作り方

チェックボックスの作り方

それでは、チェックボックスを作って行きますが、そのまえに以前に作成したエクセルシートの「I列」に在職OR退職を表現する列を設けます。

続いてフォームにチェックボックスを配置します。

VBEを起動してフォーム画面を開きます。

ツールボックスからチェックボックスをクリックし、フォームに配置します。

配置が完了したら、オブジェクト名とCaptionを変更します。

オブジェクト名は「chkTaisyoku」、Captionは「退職」とします。

チェックボックスはValueプロパティが「True」のときにㇾ点が入り、「False」のときに空欄になります。

この性質を生かして、Trueの時に「退職」、Falseの時に「在職」とエクセルシートに書き出すコードを記述します。

Ifを使った条件分岐の出番ですね。以前書いたコードに追加します。

「入力」ボタンをダブルクリックし、該当のプロシージャを開きます。

btnInput_Clickプロシージャに以下のように追記します。

Private Sub btnInput_Click()
    Dim Lrow
    Lrow = Range("A" & Rows.Count).End(xlUp).Row
    
    If Lrow = 1 Then
        Range("A2").Value = 1
    Else
        Range("A" & Lrow + 1).Value = WorksheetFunction.Max(Range("A2"), Range("A" & Lrow)) + 1
    End If
    
    Range("B" & Lrow + 1).Value = Userform1.txtName.Text
    Range("C" & Lrow + 1).Value = Userform1.txtFurigana.Text
    Range("D" & Lrow + 1).Value = Userform1.txtAge.Text
    Range("E" & Lrow + 1).Value = Userform1.txtJyusyo.Text
    Range("F" & Lrow + 1).Value = Userform1.txtTel.Text
    Range("G" & Lrow + 1).Value = Userform1.txtMail.Text
    Range("H" & Lrow + 1).Value = Userform1.txtTel2.Text
    '------------------------------この下を追加----------------------------------
    If chkTaisyoku.Value = True Then'①
        Range("I" & Lrow + 1).Value = "退職"'②
    Else
        Range("I" & Lrow + 1).Value = "在職"'③
    End If
End Sub

①条件分岐の前提としてchkTaisyokuのValueプロパティがTrueのとき、つまり、チェックボックスにチェックが入っているときは、という意味です。

②I列最終行の値を「退職」にします。

③chkTaisyokuのValueプロパティがTrueでないとき、つまりFalseでチェックボックスが空欄のときは、

I列最終行の値を「在職」にします。

コードが書けたらフォームを起動して、実際にデータを入力してみましょう。