|
皆さん こんにちは
がんばって修正しました。
見てください。
Private Sub TextBox7_AfterUpdate()
Dim t7 As Long
Dim i As Long
t7 = Me.TextBox7.Text
i = 1
For i = 1 To 6
Me.Controls("textbox" & i).Text = ActiveSheet.Cells(t7, i + 1).Value
Next i
ActiveSheet.Cells(t7, 1).Select
TextBox7.SetFocus
End Sub
Private Sub CommandButton2_Click()
Worksheets("sheet3").Activate
With Range("B5").End(xlDown)
.Offset(1, 0).Value = TextBox1.Value
.Offset(1, 1).Value = Now
.Offset(1, 2).Value = TextBox3.Value
.Offset(1, 3).Value = TextBox4.Value
.Offset(1, 4).Value = TextBox5.Value
.Offset(1, 5).Value = TextBox6.Value
End With
With Worksheets("Sheet4")
.Cells(16, 2).Value = TextBox1.Text
.Cells(2, 3).Value = Now
.Cells(5, 2).Value = TextBox3.Text
.Cells(5, 4).Value = TextBox4.Text
.Cells(5, 7).Value = TextBox5.Text
.Cells(5, 5).Value = TextBox6.Text
End With
Worksheets("Sheet4").PrintOut
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
UserForm1.Hide
End Sub
です。
TextBoxのクリアはうまくまとめられませんでした。
休憩して再チャイレンジします。
|
|