[368.xls]



' [mjSumple] のコード
'■■ テキストボックスに入力された値を所定のセルにセットする ■■
'
Const SheetName = "Title"


'フォームを表示します
Sub frmSumple_Show()
    
   'フォームの表示
    frmSumple.Show
End Sub


Sub Btn1_Click()
    Worksheets(SheetName).Cells(9, 7).Value = frmSumple.txtInput0.Text
    Worksheets(SheetName).Cells(10, 7).Value = frmSumple.txtInput1.Text
    Worksheets(SheetName).Cells(11, 7).Value = frmSumple.txtInput2.Text
End Sub




' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub