Sửa dữ liệu trực tiếp trên form và lưu lại (1 người xem)

[ThaiDieuAnh]

Em có 1 form chứa listbox, khi nhấp đúp chuột trái hiện lên form để sửa dữ liệu, tuy nhiên em chỉ save được dữ liệu đã sửa xuống form mà không xuất được xuống sheet chứa dữ liệu. Mong các anh chị hoàn thiện giúp, xin cảm ơn!

 

[giaiphap]

Em có 1 form chứa listbox, khi nhấp đúp chuột trái hiện lên form để sửa dữ liệu, tuy nhiên em chỉ save được dữ liệu đã sửa xuống form mà không xuất được xuống sheet chứa dữ liệu. Mong các anh chị hoàn thiện giúp, xin cảm ơn!

Trước hết, muốn sửa dữ liệu thì bạn phải dựa vào tiêu chí nào để sửa. Lâý VD nếu bạn chọn Nguyễn Văn A để sửa thì nó tìm trong sheet có khoảng 15 người Nguyễn Văn A, làm sao biết sửa người nào, vã lại cái khó nửa là Nếu bạn sửa tên Nguyễn Văn A bằng tên mới thì nó tìm tên mới đó (lúc này chưa có tên này trong sheet) không có thì dựa vào cái gì để sửa đây. Tốt nhất bạn nên cho mỗi người một mã số (Mã số sẽ không trùng giống như số CMND) vậy khi sửa nó sẽ dựa vào mã này để sửa (Nhớ chỉ sửa thông tin cá nhân không sửa được mã số).

 

[ThaiDieuAnh]

Trước hết, muốn sửa dữ liệu thì bạn phải dựa vào tiêu chí nào để sửa. Lâý VD nếu bạn chọn Nguyễn Văn A để sửa thì nó tìm trong sheet có khoảng 15 người Nguyễn Văn A, làm sao biết sửa người nào, vã lại cái khó nửa là Nếu bạn sửa tên Nguyễn Văn A bằng tên mới thì nó tìm tên mới đó (lúc này chưa có tên này trong sheet) không có thì dựa vào cái gì để sửa đây. Tốt nhất bạn nên cho mỗi người một mã số (Mã số sẽ không trùng giống như số CMND) vậy khi sửa nó sẽ dựa vào mã này để sửa (Nhớ chỉ sửa thông tin cá nhân không sửa được mã số).

Em đã sửa lại thông tin, mong bác giúp đỡ ạ

 

[HieuCD]

Em có 1 form chứa listbox, khi nhấp đúp chuột trái hiện lên form để sửa dữ liệu, tuy nhiên em chỉ save được dữ liệu đã sửa xuống form mà không xuất được xuống sheet chứa dữ liệu. Mong các anh chị hoàn thiện giúp, xin cảm ơn!

Dùng tạm

Private Sub CommandButton1_Click()
  Range("A4").Resize(ListBox1.ListCount, ListBox1.ColumnCount) = ListBox1.List
End Sub
Private Sub UserForm_Initialize()
  Me.ListBox1.List = Range("A4:B" & Range("A65500").End(xlUp).Row).Value
End Sub

 

[viettho]

Mình gởi file bạn xem thử nhé