toandiennuoc123
Thành viên thường trực
- Tham gia
- 7/3/12
- Bài viết
- 239
- Được thích
- 9
Nhờ các bạn xem hộ tôi code này bị sai ở đâu và sửa giúp nhé, xin cám ơn mọi người.
Private Sub CommandButton1_Click()
With Sheet1
If Me.Opt1 = True Then
.Range("A2") = Me.TextBox1.Value
.Range("A3") = Me.TextBox1.Value
.Range("A4") = Me.TextBox1.Value
.Range("A5") = Me.TextBox1.Value
ElseIf Me.Opt2 = True Then
.Range("B4") = Me.TextBox1.Value
.Range("B5") = Me.TextBox1.Value
.Range("B6") = Me.TextBox1.Value
.Range("B7") = Me.TextBox1.Value
ElseIf Me.Opt3 = True Then
.Range("C6") = Me.TextBox1.Value
.Range("C7") = Me.TextBox1.Value
.Range("C8") = Me.TextBox1.Value
.Range("C9") = Me.TextBox1.Value
If Me.Opt4 = True Then
.Range("D69") = Me.TextBox1.Value
End If
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End With
End Sub
Private Sub CommandButton1_Click()
With Sheet1
If Me.Opt1 = True Then
.Range("A2") = Me.TextBox1.Value
.Range("A3") = Me.TextBox1.Value
.Range("A4") = Me.TextBox1.Value
.Range("A5") = Me.TextBox1.Value
ElseIf Me.Opt2 = True Then
.Range("B4") = Me.TextBox1.Value
.Range("B5") = Me.TextBox1.Value
.Range("B6") = Me.TextBox1.Value
.Range("B7") = Me.TextBox1.Value
ElseIf Me.Opt3 = True Then
.Range("C6") = Me.TextBox1.Value
.Range("C7") = Me.TextBox1.Value
.Range("C8") = Me.TextBox1.Value
.Range("C9") = Me.TextBox1.Value
If Me.Opt4 = True Then
.Range("D69") = Me.TextBox1.Value
End If
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End With
End Sub