Nhờ anh chị trên diễn đàn giúp em code tìm kiếm theo Optionbutton trên listbox với ạ. (1 người xem)

[lexuantruong]

nội dung cần anh chị giúp đỡ như trên tiêu đề ạ, chọn tìm kiếm theo " số thứ tự" hoặc theo " Họ tên", mục đích để tìm lại và sửa lại nếu như nhập sai. nhờ anh chị giúp em.
em cám ơn anh chị nhiều.

 

[SA_DQ]

Trong trang CSDL còn thiếu 1 trường/cột quan trong: Đó là mã (duy nhất) của mỗi nhân viên
Mình đề xuất luôn:

Mã    |    Họ Tên
DQS00 | Dương Quí Sữu
FTF00 | Đỗ Trọng Đức
FFF00 | Đặng Đăng Định
FJH00 | Đinh Hà  
HVH00 | Hồ Thị Việt Hồng
HVH01 | Hoàng Viết Hương

Trong thực tế bạn & nhân viên của bạn không thể nhớ số TT của mình;
Vã chăng để đề fòng sự trùng tên (cả họ đệm) ta nên xài mã

 

[lexuantruong]

Trong trang CSDL còn thiếu 1 trường/cột quan trong: Đó là mã (duy nhất) của mỗi nhân viên
Mình đề xuất luôn:

Mã    |    Họ Tên
DQS00 | Dương Quí Sữu
FTF00 | Đỗ Trọng Đức
FFF00 | Đặng Đăng Định
FJH00 | Đinh Hà  
HVH00 | Hồ Thị Việt Hồng
HVH01 | Hoàng Viết Hương

Trong thực tế bạn & nhân viên của bạn không thể nhớ số TT của mình;
Vã chăng để đề fòng sự trùng tên (cả họ đệm) ta nên xài mã

anh sửa giúp em tìm kiếm theo bài dưới được k ạ, em thấy tìm như vậy cũng hay, mà dữ liệu lại upload lên cái listbox luôn , khi xóa hết từ tìm kiếm thì dữ liệu hiện lại đầy đủ trong listbox.
http://www.giaiphapexcel.com/forum/showthread.php?111984-Form-tìm-kiếm-không-hoạt-động-ở-Sheet-khác

 

[lexuantruong]

nhờ anh chị trong diễn đàn giúp em với ạ

 

[Xuân Linh]

Chào Em.
Không ai giúp em à?
Anh theo doi em trên diễn đàn. thấy em rất Lễ phép và Lịch sự.
Anh lược trích bỏ các câu lệnh rườm rà.
Viết cho em từng Function một để em hiểu và tao được nút điều khiển mới.
Chúc em thành công.

 

[Xuân Linh]

Em cần trao đổi riêng thì viết mail cho anh. xuanlinh97@gmail.com

 

[SA_DQ]

Mình đã thay file khác đầy đủ hơn (ở bài trên) để bạn tham khảo.

 

[Xuân Linh]

Cảm ơn HYen17 - Thành viên 4 sao.
File tim kiếm của bản rất hay.
Nhưng thiếu nút sửa chữa vì minh muốn thay đổi tên hay năm sinh vv...
Minh viết thêm Fuction đó dạng PAST đè lên dòng mà chuột đang chọn SELECT rown.
Mình muốn có thêm nút "SỬA" dạng INSERT chèn thêm vào dong đang chọn mà chữa làm được.
Minh đang đinh modify cái nút "NHẬP MỚI" của bạn (Luôn luôn PAST vào dòng cuối cùng của bảng) thành INSSERT vào bất cứ chỗ nào mình muốn ở giữa bảng.nhưng chưa làm đc.

Bạn viết giúp minh nhé.
Thank you.

 

[SA_DQ]

Để có nút lệnh "Sửa", ta có thể Copy nút "Tìm" & sửa chữa lại; nội dung macro 'Sửa' có thể là:

Private Sub CmdSua_Click()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 
 Set Sh = ThisWorkbook.Worksheets("ThongKe")
 Set Rng = Sh.Range(Sh.[B5], Sh.[B5].End(xlDown))
 Set sRng = Rng.Find(TxtMa.Value, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    sRng.Offset(, 1).Value = TxtHTen
    sRng.Offset(, 2).Value = TxtNS
    sRng.Offset(, 3).Value = TxtNQ
 End If
 MsgBox "Da Sua Xong", , "GPE.COM"
End Sub

Ở đây cần khẳng định với nhau 1 điều là 1 số trường ta có thể cho fép sửa, nhưng 1 số trường ta không thể cho fép sửa được.
Các trường có thể sửa như: [HSL], [Mã ĐVị], [Chức vụ], . . . . ; Các trường này cho fép sửa thường xuyên.
Các trường không cho fép sửa, như [Mã NV]
Các trường chỉ cho fép sửa trực tiếp như [Họ & Tên], [Năm sinh], . . . .

 

[Xuân Linh]

Minh tao nút sửa theo hương dẫn của bạn =OK.
Sản phẩm = file đính kèm.

Minh đang muốn modify cái nút "NHẬP MỚI" của bạn (Luôn luôn PAST vào dòng cuối cùng của bảng) thành INSSERT vào bất cứ chỗ nào mình muốn ở giữa bảng.nhưng chưa làm đc.

 

[Xuân Linh]

Sản phẩm = file đính kèm.

 

[Xuân Linh]

tải file lên nhưng ko dc...Tải lại

 

[Xuân Linh]

tải file lên nhưng ko dc...Tải lại

Gửi file .rar xem có được không nào...

 

[SA_DQ]

Minh tao nút sửa theo hương dẫn của bạn:= file đính kèm.

Minh đang muốn modify cái nút "NHẬP MỚI" của bạn (Luôn luôn PAST vào dòng cuối cùng của bảng) thành INSSERT vào bất cứ chỗ nào mình muốn ở giữa bảng.nhưng chưa làm đc.

Để mình gơi í bạn thử tiến hành các bước sau:

(1) Kiểm tra trong CSDL có mã NV đó chưa; bằng fương thức Find() mà bạn đã thấy & biết

(2) Đếm số dòng hiện tại tại CSDL; Vì rằng tối kị trong CSDL có những dòng trống.

(3) So dòng cuối (lRw) với dòng bạn định đưa vô Rws; Nếu lRw < Rws Thì không làm gì cả

Nếu là ngược lại thì:
(*) Thêm dòng tại Rws
(*) Tiến hành copy dữ liệu từ Form vô CSDL

Rất mong bạn sẽ thành công!

 

[Xuân Linh]

(*) Thêm dòng tại Rws
ActiveCell.Select
Rows.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove.

Trên sheet exel thi được.
Nhưng trên Form thì = Không đc.