Chỉnh sửa thông tin nhân viên bằng Userform

[jackylai]

Mình có một danh sách nhân viên (đính kèm phía dưới), và muốn chỉnh sửa thông tin qua userform, không dùng cách làm trực tiếp nữa.
Mong anh em chỉ giáo vài đường

 

[Hai Lúa Miền Tây]

Mình có một danh sách nhân viên (đính kèm phía dưới), và muốn chỉnh sửa thông tin qua userform, không dùng cách làm trực tiếp nữa.
Mong anh em chỉ giáo vài đường

Không cần dùng nút load, đưa nó thẳng vào luôn sau khi cập nhật vào Combobox
Bạn thử code sau nhé:

Private Sub cmdUpdate_Click()
Dim c As Range
With Sheet1.Range("a2:a" & Sheet1.[a56536].End(xlUp).Row)
    Set c = .Find(MANV, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        c.Offset(0, 0) = MANV.Text
        c.Offset(0, 1) = HOTEN.Text
        c.Offset(0, 2) = NGAYSINH.Text
        c.Offset(0, 3) = CMND.Text
        c.Offset(0, 4) = DCTT.Text
        
    End If
End With
End Sub

Private Sub MANV_AfterUpdate()
HOTEN.Text = MANV.Column(1)
NGAYSINH.Text = MANV.Column(2)
CMND.Text = MANV.Column(3)
DCTT.Text = MANV.Column(4)
End Sub

Xem thêm file

 

[jackylai]

Cảm ơn anh domfootwear nhiều, ngay phần load mình cũng vừa nghĩ ra cách load dữ liệu lên bằng đoạn code sau:
"
Me.HOTEN.Value = WorksheetFunction.VLookup(Me.MANV.Value, ws.Range("A2:E11"), 2, 0)
Me.NGAYSINH.Value = WorksheetFunction.VLookup(Me.MANV.Value, ws.Range("A2:E11"), 3, 0)
Me.CMND.Value = WorksheetFunction.VLookup(Me.MANV.Value, ws.Range("A2:E11"), 4, 0)
Me.DCTT.Value = WorksheetFunction.VLookup(Me.MANV.Value, ws.Range("A2:E11"), 5, 0)
"
Nút Update của anh chạy rất hay, thanks

 

[sealand]

Mình tham gia 1 chút:
1/Cách load của Dom. nhanh hơn và gọn gàng hơn.
2/Textbox NGAYSINH:
+ Khi load: NGAYSINH.Text = Format(MANV.Column(2), "dd/mm/yyyy")

+Khi Update: c.Offset(0, 2) = DateSerial(Right(NGAYSINH, 4), Mid(NGAYSINH, 4, 2), Mid(NGAYSINH, 1, 2))

 

[jackylai]

Thanks anh Sealand, mình cũng vừa mới update code của textbox ngày sinh giống anh nhưng chưa post lên, (^_^).
Nếu không dùng format thì nó sẽ mặc định dạng number khi load lên.

 

[liro]

Anh Doomfootwear cho em hỏi 1 chút :

Em mới học về VBA . Trong phần file đính kèm của anh phần Combobox sao em không tìm thấy phần khai báo sự kiện Initialize . Mong anh chỉ bảo

 

[ndu96081631]

Anh Doomfootwear cho em hỏi 1 chút :

Em mới học về VBA . Trong phần file đính kèm của anh phần Combobox sao em không tìm thấy phần khai báo sự kiện Initialize . Mong anh chỉ bảo

ComboBox làm gì có sự kiện Initialize (chỉ UserForm mới có sự kiện này thôi)
Mà bạn định làm gì? Chắc ý muốn nói đến sự kiện ban đầu dùng để nạp dữ liệu cho ComboBox chăng?
Nếu đúng thế thì trong file trên người ta đã nạp sẳn bằng Name rồi còn gì

 

[liro]

Anh chị nào biết có thể hướng dẫn em về cách khai báo sự kiện dữ liệu cho hộp Combobox dựa vào name được không. Phần này em thấy trong giáo trình không có.

 

[Hai Lúa Miền Tây]

Anh chị nào biết có thể hướng dẫn em về cách khai báo sự kiện dữ liệu cho hộp Combobox dựa vào name được không. Phần này em thấy trong giáo trình không có.

Sao lại không có bạn, điều này là căn bản vì không nạp dữ liệu thì làm sao thực hiện được.
Mời bạn xem đoạn phim nhé.

 

[anhchanghamhoc]

Chỉnh sửa thông tin !

Anh domfootwear ơi anh làm ơn xem dùm em cái file này em chỉnh sửa trên "phiếu chi "nhưng trong sheet "TongHop" nó không chạy, anh xem hộ em cai nha! Thank!

 

[liro]

Anh chi nào xem hộ em file Ho so này với . Em đã thử áp dụng theo bài của anh Doom nhưng ko biet sai ở đâu mà khi nhấn nút update thì phần thì cập nhật phần thì không.