' [361.xls]



' [Module1] のコード
'★★☆　テキストボックスを通貨表示にする　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub TextBox1_Change()

    '入力文字が数値として評価出来ないとき TextBox を消す
    If IsNumeric(TextBox1.Value) = False Then
        TextBox1.Text = ""
        Exit Sub
    End If
    
    '入力文字を通貨表示に
    TextBox1.Text = Format(TextBox1.Value, "\\#,##0")

End Sub

Private Sub UserForm_Initialize()

    Me.Caption = "TextBoxを通貨表示にします"

End Sub