Update dữ liệu bằng Form

[HoangHacVT]

Các bạn xem ví dụ trong file đính kèm: Mình đã có một vùng dữ liệu nhưng chưa hoàn chỉnh. Mình tạo 1 form để lấy dữ liệu từ sheet excel vào form và sau đó nhấp thêm dữ liệu vào nhưng nó không hoạt động. Nhờ các ACE giúp dùm nhé,
Cảm ơn
Hạc

 

[ltqnl3]

Tôi làm gọn code lại một chút cho bạn đây:

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

-------------------------------------------------
Không biết bạn bao nhiêu tuổi, chứ anh Sealand đã rất lớn tuổi rồi đấy (18-08-1959)! Bạn xưng hô cho đúng phép với người lớn nhé!
Thân ái.

Bác ơi em mới bập bẹ làm cái Form nhập dữ liệu thi, em đã có Form như file đính kèm, giờ em muốn thêm chức năng sửa và xóa trên Form như sau:
- Chọn thí sinh cần sửa trên ListBox, cập nhật thông tin của các thí sinh trên các TextBox trên Form, sau đó sửa trên các TextBox và nhấn để lưu thay đổi.
- Chọn thí sinh cần xóa trên ListBox và nhấn nút xóa thì xóa luôn hàng thí sinh đó.
Nhờ bác giúp đỡ e với ạ