Mình có tạo 1 file nhập dữ liệu, theo dõi văn bản, vừa rồi có gửi lên Diễn đàn nhờ hỗ trợ tạo form nhưng do file excel không chuẩn với lại form tạo ra với nhiều yêu cầu nên mọi người muốn giúp cũng khó. Mình cũng đang cố gắng để tiếp cận VBA nên chắc phải tự học bằng cách viết form này thay vì nhờ mọi người làm giúp.
Mình rất mong mọi người xem giúp file đính kèm theo để có thể hỗ trợ mình cách viết code cho những yêu cầu cụ thể, từ đó mình có thể áp dụng viết cho bản tính của mình.
Xin được chân thành cảm ơn.
Mọi người không giúp được bạn cũng đúng thôi
Bạn nên đi thẳng nội dung bạn cần, tránh diễn giải vòng vo một câu hỏi dài như trên tóm lại mình chỉ nhận được 1 câu mầu đỏ ở trên. Thay vì những lời giải thích trên bạn nói rõ yêu cầu của bạn còn hơn không?
Đoán làm như thế này
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim k1&, k2&, k&
k1 = -1 * Me.CheckBox1.Value
k2 = -2 * Me.CheckBox2.Value
k3 = -3 * Me.CheckBox3.Value
With Sheet2.Range("A65500").End(xlUp)
.Offset(1).Value = Me.TextBox1.Value
.Offset(1, 1).Value = Me.ComboBox1.Value
.Offset(1, 2).Value = Me.ComboBox2.Value
If k1 > 0 Then .Offset(1, 3).Value = "x"
If k2 > 0 Then .Offset(1, 4).Value = "x"
If k3 > 0 Then .Offset(1, 5).Value = "x"
End With
Unload Me
End Sub
[/GPECODE]
[GPECODE=vb]Private Sub ComboBox1_Change()
Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheet2.Range("A2:A100")) + 1
End Sub
[/GPECODE]
[GPECODE=vb]Private Sub UserForm_Initialize()
Me.ComboBox1.List() = Sheet1.Range("A2:A5").Value
Me.ComboBox2.List() = Sheet1.Range("B2:B5").Value
End Sub
[/GPECODE]
