Home > 即効テクニック > Excel VBA > ユーザーフォーム関連のテクニック > フォームのテキストボックスに5桁の数字（00001）を表示する

即効テクニック
ユーザーフォーム関連のテクニック

フォームのテキストボックスに5桁の数字（00001）を表示する

(Excel 97)
テキストボックスで「1」を「00001」と表示するように、フォームを表示するときに発生するイベントで設定します。
フォームには、テキストボックス「TextBox1」を配置します。

Private Sub UserForm_Initialize()
    Dim myBango As Integer

    myBango = 1
    TextBox1.Text = Format(myBango, "00000")

End Sub