Bạn muốn nhập liệu như thế nào vậy bạn, nhập vào dòng dưới cùng của bảng ?
Không phải nhập thêm dữ liệu vào bảng, mà là tìm dữ liệu rồi sửa bằng form dom ơi!
Private Sub UserForm_Initialize()[/FONT][/COLOR]
[COLOR=#0000bb][FONT=Times New Roman]nap[/FONT][/COLOR]
[COLOR=#0000bb][FONT=Times New Roman]End Sub[code][/FONT][/COLOR]
[COLOR=#0000bb][FONT=Times New Roman]Nghĩa là sao? Có phải nó gây ra cái lỗi đó không?[/FONT][/COLOR]
Dim Rng As Range, i As Long
Private Sub UserForm_Initialize()
nap 'hanh dong truoc khi mo form
End Sub
'Click vao Combobox1, cac gia tri tung cot trong list se duoc add vao tung textbox
Private Sub ComboBox1_Click()
With ComboBox1
TextBox1.Value = .Column(0)
TextBox2.Value = .Column(1)
TextBox3.Value = .Column(2)
End With
End Sub
'Nhap nhung thay doi
Private Sub CommandButton1_Click()
Set Rng = Range("mammam")
i = ComboBox1.ListIndex + 1
Rng.Cells(i, 1) = TextBox1.Text
Rng.Cells(i, 2) = TextBox2.Text
Rng.Cells(i, 3) = TextBox3.Text
nap
End Sub
'Tao RowSource cho Combobox1
Sub nap()
Set Rng = Range("mammam")
With ComboBox1
If .ListCount > 0 Then .Clear 'bo list cu, cap nhat list moi
For i = 1 To Rng.Rows.Count
.AddItem Rng.Cells(i, 1)
.List(i - 1, 1) = Rng.Cells(i, 2)
.List(i - 1, 2) = Rng.Cells(i, 3)
.ListIndex = 0
Next
End With
End Sub[COLOR=SeaGreen]''''Nap cac TextBox khi List di chuyển[/COLOR]
Private Sub ComboBox1_Click()
Me.TextBox1.Value = Me.ComboBox1.Column(0)
Me.TextBox2.Value = Me.ComboBox1.Column(1)
Me.TextBox3.Value = Me.ComboBox1.Column(2)
End Sub
[COLOR=SeaGreen]'''Cập nhật cho vùng mammam[/COLOR]
Private Sub CommandButton1_Click()
Dim dg
dg = Me.ComboBox1.ListIndex + 1
Me.ComboBox1.RowSource = "" [COLOR=SeaGreen] 'Giải phóng RowSource[/COLOR]
With Sheet3.Range("mammam")
.Cells(dg, 1) = Me.TextBox1.Text
.Cells(dg, 2) = Me.TextBox2.Text
.Cells(dg, 3) = Me.TextBox3.Text
End With
nap [COLOR=SeaGreen]'Nạp lại RowSource[/COLOR]
End Sub
[COLOR=SeaGreen]'''Code nap RowSource dùng chung[/COLOR]
Sub nap()
Me.ComboBox1.RowSource = "mammam"
Me.ComboBox1.ListIndex = 0
End Sub
[COLOR=SeaGreen]'Nạp Khi mở Form[/COLOR]
Private Sub UserForm_Initialize()
nap
End Sub
