[359.xls]



' [mjSumple] のコード
'■■ テキストボックスにセルの値を表示する ■■
'
'
Const SheetName = "Title"
Const Cell0 = "G9"
Const Cell1 = "G10"
Const Cell2 = "G11"

'フォームを表示します
Sub frmSumple_Show()
    '
    frmSumple.txtInput0.Text = Sheets(SheetName).Range(Cell0)
    '
    frmSumple.txtInput1.Text = Sheets(SheetName).Range(Cell1)
    '
    frmSumple.txtInput2.Text = Sheets(SheetName).Range(Cell2)
    
    'フォームの表示
    frmSumple.Show
End Sub