【VBA入門】簡単なユーザーフォームを作ってみよう

2019年5月5日2019年9月3日

URLをコピーしました！

こんにちは、理系夫婦の妻まゆみ(@rikeifufu_tsuma)です。

今回はVBAで簡単なユーザーフォームの作り方を紹介します。

VBAで処理させる計算内容は第1回目と同じで、2つの数値を四則演算させます。

処理の概要

上図のようなウィンドウをユーザーフォームと呼びます。

今回は、ユーザーフォームに2つの数値をユーザーが指定し「OK」をクリックしたら、四則演算の結果がメッセージボックスで表示されるツールを作成します。

上図がそのイメージです。

計算と、メッセージボックスで表示する部分は前回と全く同じです。

違うのは2つの数値の取得方法。

その部分を説明していきます。

VBAでユーザーフォームの作り方

ユーザーフォームを作るには、ユーザーフォームを挿入し、ボタンなどを追加していく必要があります。

その手順を画像付きで紹介していきます。

ユーザーフォームの挿入方法

ユーザーフォームの挿入方法は、

プロジェクトウィンドウで右クリック
「挿入」→「ユーザーフォーム」を選択

とやります。

初期状態では、ユーザーフォーム上には何もありません。

ここから、ボタンやテキストボックスを追加していきます。

ラベルの追加

まずはユーザーフォーム上にラベルを追加してみましょう。

ツールボックスから「Label」（上段、左から2つ目）を選択します。

「Label」を選択した状態で、ユーザーフォーム上の好きな位置にドラッグします。
下図のような状態になります。

ラベルに表示させる文字列は、プロパティウィンドウの「Caption」で設定します。

これでラベルの設定は終わりです。

フォント等はお好みで変更してください。

テキストボックスの追加

次はテキストボックスを追加してみましょう。

今回は、2つの数値をユーザーに入力してもらうため、テキストボックスを2つ追加します。

ツールボックスから「TextBox」（上段、左から3つ目）を選択します。

「TextBox」を選択した状態で、ユーザーフォーム上にドラッグします。
下図のような状態になります。

ひとまずテキストボックスはこのままの設定で大丈夫です。

ボタンの追加

次に、ボタンを追加しましょう。

ツールボックスから「CommandButton」（下段、左から２つ目）を選択します。

「CommandButton」を選択した状態で、ユーザーフォーム上にドラッグします。
下図のような状態になります。

ボタンに表示する文字列は、プロパティウィンドウの「Caption」で設定します。

以上でユーザーフォームのデザインは終わりです。

ソースコード

ここでは、実際の処理部分を設定していきます。

さて、ユーザーフォームの処理部分は、どこにソースコードを書くのでしょうか？

ユーザーフォームのソースを表示するためには、ユーザーフォーム上で右クリックし、「コードを表示」を選択します。

ユーザーフォームのコードの初期状態は、上図のように、「UserForm_Click()」となっています。
これは、ユーザーフォームをクリックしたら実行される関数です。
今回は必要ないので削除し、必要な関数のみ作成します。

必要なのは、ボタンを押したら2つの数値を演算する処理です。

なので、コードウィンドウの左上から「CommandButton1」を選択します。
そうすると、「CommandButton1_Click()」の関数の雛型が作成されます。
この関数の中に、ボタンがクリックされた際の処理を書いていきます。

ユーザーフォームのコード（ボタンを選択） — コマンドボタンを選択した場合のコード初期状態

今回、ソースコードは2つの関数からなります。

１つは、ユーザーフォームを呼び出すためのメイン関数です。

もう1つがユーザーフォームの中身の関数となります。

それぞれ、以下のようにソースを記述します。

ユーザーフォームの呼び出し側（メイン関数）

Sub main()
    'ユーザーフォームの表示
    UserForm1.Show
End Sub

ユーザーフォーム側

'「OK」ボタンがクリックされたら行う処理
Private Sub CommandButton1_Click()
    Dim str_a As String
    Dim str_b As String
    
    Dim a As Double
    Dim b As Double
    
    Dim plus As Double
    Dim minus As Double
    Dim times As Double
    Dim div As Double
    
    'テキストボックスの値を取得
    str_a = TextBox1.Text
    str_b = TextBox2.Text
    
    '数値か判定
    If IsNumeric(str_a) = False Then
        MsgBox "数値を入力してください"
        Exit Sub
    End If
    
    If IsNumeric(str_b) = False Then
        MsgBox "数値を入力してください"
        Exit Sub
    End If
    
    'Doulbe型に変換
    a = CDbl(str_a)
    b = CDbl(str_b)
    
    '計算
    plus = a + b
    minus = a - b
    times = a * b
    div = a / b
    
    '結果を表示
    MsgBox "計算結果" + vbCrLf _
        + "a + b = " + CStr(plus) + vbCrLf _
        + "a - b = " + CStr(minus) + vbCrLf _
        + "a * b = " + CStr(times) + vbCrLf _
        + "a / b = " + CStr(div)
    
    'ユーザーフォームを閉じる
    Unload Me
End Sub

ソースの説明

2つの関数のソースを説明していきます。

ユーザーフォームの表示

Sub main()
    'ユーザーフォームの表示
    UserForm1.Show
End Sub

上記メイン関数は、前回と同様に、シート上のボタンと紐づけます。
シート上のボタンがクリックされたら、メイン関数が呼ばれ、メイン関数はユーザーフォームを表示します。

ユーザーフォームの表示は

ユーザーフォーム名.Show

で、できます。

テキストボックスの値を取得

次からは「CommandButton1_Click」関数の中身です。
まずは2つのテキストボックスに入力された値の取得コードから。

    str_a = TextBox1.Text
    str_b = TextBox2.Text

テキストボックスに表示されているテキストを取得して、文字列変数に代入するのは、

文字列変数 = テキストボックス名.Text

となります。

文字列として取得せず、数値として取得する方法もあります。

変数(Double型など) = テキストボックス名.Value

しかし、テキストボックス内に入力された文字が数字とは限らないため、今回は文字列として取得し、後から数値に変換するやり方をとっています。
もちろん、テキストボックスに数値しか入力できないようにする方法もありますが、それはまた今度。

VBAのIf文

VBAのIf文は、C言語などとはちょっと違います。

If 条件文 Then
処理内容
End If

C言語のように{}で囲まないで、「If ~ Then」「End If」で囲みます。

また、判定式もC言語とは違っていて、例えば一致の場合は、

If a = b Then

となります。Cでは「a == b」ですよね。また、不一致の場合は

If a <> b Then

となります。Cでは「a != b」ですよね。

このような違いも、すぐに慣れますよ。

数値判定

    If IsNumeric(str_a) = False Then
        MsgBox "数値を入力してください"
        Exit Sub
    End If
    
    If IsNumeric(str_b) = False Then
        MsgBox "数値を入力してください"
        Exit Sub
    End If

テキストボックスから取得した文字列が数値か判定します。

IsNumeric(判定したい変数)

IsNumeric関数を使用して判定します。IsNumeric関数は