【VBA】ユーザーフォームのテキストボックス活用ガイド（初期値/パスワード/文字数制限）

2025年8月15日

はじめに

VBAのユーザーフォームで、ユーザーからの文字入力を受け付けるために不可欠なのが「テキストボックス」コントロールです。

テキストボックスは、ただ文字を入力させるだけでなく、そのプロパティをVBAコードで設定することで、より親切で高機能な入力欄を作成できます。例えば、以下のような設定が可能です。

入力例となる初期値をあらかじめ表示しておく。
パスワード入力用に、文字を * などで隠す。
会員IDなど、入力できる文字数を制限する。
半角英数字の入力欄で、日本語入力モード（IME）を自動でオフにする。

この記事では、これらの便利なテキストボックスの主要なプロパティと、その設定方法を分かりやすく解説します。

テキストボックスのプロパティ設定サンプルコード

これらの設定は、ユーザーフォームが表示される直前の UserForm_Initialize イベント内で行うのが一般的です。

この例では、InputForm というフォームに配置された複数のテキストボックスに、それぞれ異なる設定を適用します。

ユーザーフォームのコード

' フォームが初期化されるときに実行されるイベント
Private Sub UserForm_Initialize()
    
    ' --- Name_TextBox: 初期値の設定 ---
    With Me.Name_TextBox
        ' .Text プロパティで表示する初期文字列を設定
        .Text = "（ここに氏名を入力）"
        
        ' テキストボックスがフォーカスを受け取ったときに全選択状態にするための準備
        ' .SelStart で選択開始位置を、.SelLength で選択する長さを指定
        .SelStart = 0
        .SelLength = .TextLength
    End With
    
    ' --- Password_TextBox: パスワード入力欄の設定 ---
    With Me.Password_TextBox
        ' .PasswordChar プロパティで、入力された文字の代わりに表示する文字を設定
        .PasswordChar = "*"
        
        ' .IMEMode プロパティで、IMEをオフ（半角英数入力モード）に設定
        .IMEMode = fmIMEModeOff ' fmIMEModeAlpha でも可
    End With
    
    ' --- UserID_TextBox: 入力文字数の制限 ---
    With Me.UserID_TextBox
        ' .MaxLength プロパティで、入力可能な最大文字数を設定
        .MaxLength = 8
    End With
    
End Sub

実行前の準備

InputForm という名前のユーザーフォームを作成します。
フォーム上に「テキストボックス」を3つ配置します。
それぞれの (Name) プロパティを、コードに合わせて Name_TextBox, Password_TextBox, UserID_TextBox に変更します。
フォームのコードモジュールに上記のコードを貼り付け、フォームを表示すると、各設定が適用されたテキストボックスが表示されます。

コード（プロパティ）の解説

`.Text`

テキストボックスに表示される文字列を制御します。初期の入力案内を表示したり、処理結果を書き出したりする際に使用します。

.SelStart, .SelLength, .TextLength: .Text と合わせて使うことで、ユーザーがテキストボックスをクリックした際に、初期値を全選択状態にできます。.SelStart = 0 は「先頭から」、.SelLength = .TextLength は「テキストの全長分」を選択するという意味です。これにより、ユーザーは案内文を消す手間なく、すぐに入力を始められます。