|
現在はじめてプログラムを組んで見たんですが
うまくいきません。下記に書いてみたんですが
行の改行がうまく行かないんですが何処が悪いんでしょうか?
どなたか 教えてもらえないでしょうか?
Private Sub CommandButton1_click()
Sub 新規入力行()
Worksheets("sheet1").Activate
Range("A2" + 1).End(xlDown).Offset(1).Select
End Sub
With Range("A2")
.Value = TextBox1.Value
.Offset(0, 1).Value = TextBox2.Value
.Offset(0, 2).Value = TextBox3.Value
.Offset(0, 3).Value = TextBox4.Value
.Offset(0, 4).Value = TextBox5.Value
.Offset(0, 5).Value = TextBox6.Value
.Offset(0, 6).Value = TextBox7.Value
.Offset(0, 7).Value = TextBox8.Value
End With
End Sub
|
|