エクセルVBA フォーム入力について

質問

フォームに値をいれ（４カ所）、
入力ボタンなどを押すと入力完了の後、
フォーム内もクリアにされるということはできますか？
教えて下さい。よろしくお願いいたします

回答No.2

noname#22222 · ベストアンサー

VBA とは色々と書けるということで...

Private Sub CommandButton1_Click()
　　Dim I As Integer

　　For I = 1 To 4
　　　　Worksheets("sheet1").Cells(1, I).Value = Me.Controls("TextBox" & I).Value
　　　　Me.Controls("TextBox" & I).Value = ""
　　Next I
End Sub

お礼

ありがとうございました。丁寧に教えてくださり感謝しております。

回答No.1

GreatDragon

こんばんは。

ワークシートへの転記もコントロールのクリアも出来ます。
アバウトですが、こんな↓感じです。

Private Sub CommandButton1_Click()
Dim MyRange As Range
Set MyRange = Sheets("Sheet1").Range("A65536").End(xlUp)
'ワークシートへの転記
With MyRange
.Offset(1, 0).Value = TextBox1.Value
.Offset(1, 1).Value = TextBox2.Value
.Offset(1, 2).Value = TextBox3.Value
.Offset(1, 3).Value = TextBox4.Value
End With
'入力ボックスのクリア
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

お礼

ありがとうございます。大変参考になりました。