' [251.xls]



' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()

    Label1.Caption = Format(消費税(TextBox1.Value), "#,##0")

End Sub

Private Sub TextBox1_Change()

    TextBox1.Value = Format(TextBox1.Value, "\\#,##0")

End Sub


' [Module1] のコード
'★★☆　消費税を計算する　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub

Function 消費税(a As Long) As Long

    '消費税という名前の関数にかっこ内に整数を指定すると
    '計算結果を整数で返します、と解釈出来ます

    消費税 = a * Sheets("Title").[E8]
    
    '受け取った値を a という変数に代入してセルE8の値と
    'かけ算した結果の値を返します

End Function