Private Sub CommandButton1_Click()
Worksheets("SHEET1").Range("D14") = TextBox1
Worksheets("SHEET5").Range("D3") = TextBox1
End Sub
Private Sub CommandButton2_Click()
Worksheets("SHEET5").Range("A3") = TextBox2
End Sub
Sub KEISAN()
Worksheets("Sheet5").Range("A20").FormulaR1C1 = "=R{-17}C{0}-R{-17}C{3}"
End Sub