[ExcelVBA] 初心者必見！ユーザーフォームの使い方[基本攻略]

自由な場所に入力欄やボタンを設置して、ユーザーの考えを反映させるフォーム

１．ユーザーフォームの追加方法

２．コントロールの配置方法

３．プロパティウィンドの使い方

４．例題をもとに作成手順を確認

フォーム上に配置するカスタマイズの部品。

部品の種類によって、使えるプロパティやイベントは異なる。

1. ツールボタンのコントロールをクリックする。
2. ユーザーフォーム上でクリックすると、ボタンが配置される。
3. ドラッグをしたり、プロパティを設定することで位置や大きさが変更できる。

1. VBEにユーザーフォームを追加。オブジェクト名を「addForm」Captionを「新規顧客登録」に変更。
2. コマンドの追加。氏名と住所のLabelを追加。氏名と住所分のTextBoxを追加。DM希望のCheckBoxを追加。登録とキャンセルのCommandButtonを追加。すべてCaptionを各表示名に変更。
3. CommandButtonの中にVBAを記述する。CommandButtonをダブルクリックすると、コードウィンドウを開きます。そこに下記のVBAを記述します。

Option Explicit

Private Sub registration_Click()　'登録ボタンのオブジェクト名をregistrationに変更している。

    Dim dm As String
    Dim lastRow As Long
    
    
    If TextBox1 = "" Then
        MsgBox "氏名を入力してください。"
        Exit Sub
    End If
    
    If TextBox2 = "" Then
        MsgBox "住所を入力してください。"
        Exit Sub
    End If
    
    If CheckBox1 = True Then　'CheckBoxにチェックが入れば〇、入っていなければ×
        dm = "〇"
    Else
        dm = "×"
    End If
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1　'最終行の1つ下の行を取得。
    
    Cells(lastRow, 1) = TextBox1
    Cells(lastRow, 2) = TextBox2
    Cells(lastRow, 3) = dm
    
     Unload addForm　'「Unload　○○」でユーザーフォームを閉じる。
    

End Sub


Private Sub cancel_Click()　'キャンセルボタンのオブジェクト名をcancelに変更している。

    Unload addForm

End Sub

1. エクセルのシート上へ移動。
2. 「開発」タブ＞「コントロール」の「挿入」＞「フォームコントロール」の「ボタン」をクリックし、画面上にボタンを追加。
3. ボタンの上で右クリックし「テキストの編集」で「登録画面へ」に変更。
4. VBE画面で「標準モジュール」を追加。「標準モジュール」に以下のVBAを記述する。
5. シート上の「登録画面へ」ボタンに４の標準モジュールを登録する。

Sub Registation_btn_Click()　'オブジェクト名は自由に変更

    addForm.Show　'○○.Showでユーザーフォームが表示される。

End Sub