[358.xls]



' [mjSumple] のコード
'■■ テキストボックスに所定の文字列を付加して表示する ■■
'
'
Const strYen = "円"
Const strKei = "計"
Const strMai = "枚"

'フォームを表示します
Sub frmSumple_Show()
    
    '
    frmSumple.txtInput0.Text = "100" & strYen
    '
    frmSumple.txtInput1.Text = "10" & strMai
    '
    frmSumple.txtInput2.Text = strKei & "1000" & strMai
    
    'フォームの表示
    frmSumple.Show
End Sub