| |
たぶん、ユーザーフォームに配置したコマンドボタンとテキストボックスでの
ことではないかと推察します。
提示のコードですと、「CommandButton1_click」プロシージャの中に
「新規入力行」プロシージャが入っていますが、コンパイル(構文)エラーに
なりませんか? まぁ、単に写し違いと思いますが・・・
改行されないのは、With Range("A2") があるためにいつもA2が基準になって
しまい、新規入力行→Range("A2" + 1).End(xlDown).Offset(1).Selectが
反映されません。 + 1 が ?? ですが・・・
それで、こんな感じで如何でしょうか。
Private Sub CommandButton1_Click()
Dim N As Integer
Worksheets("Sheet1").Activate
With Range("A65536").End(xlUp).Offset(1)
For N = 1 To 7
.Offset(, N - 1).Value = Me.Controls("TextBox" & N).Value
'Me.Controls("TextBox" & N).Value = "" ' ←入力後即消去の場合
Next N
End With
End Sub
|
|
awu
- 05/10/6(木) 12:29 -
