Bạn xem thử đúng ý chưa
Tạo danh sách truy tìm theo 1 ký tự
- Thread starter thaibinh_excel
- Ngày gửi
- Tham gia
- 4/11/07
- Bài viết
- 14,396
- Được thích
- 37,035
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Sửa code như vầy là hết nhúc nhích bậy bạ nè:
PHP:
Sub worksheet_selectionchange(ByVal target As Range)
If target.Column = 5 Then Calculate
End Subthaibinh_excel
Thành viên hoạt động
- Tham gia
- 18/10/07
- Bài viết
- 127
- Được thích
- 29
- Nghề nghiệp
- Bán Hàng
Cám ơn boyxin. It s ok lắm. Bạn có thể giúp mình giải thích nội dung của câu lệnh này không ?
=RIGHT(TRIM(Profile!$E4),LEN(TRIM(Profile!$E4))-MAX((MID(TRIM(Profile!$E4),ROW(INDIRECT("1:"&LEN(TRIM(Profile!$E4)))),1)=" ")*ROW(INDIRECT("1:"&LEN(TRIM(Profile!$E4))))))
Mình chưa hiểu rõ lắm cách nó hoạt động
Best Regards,
TB
boyxin
Members actively
- Tham gia
- 10/3/08
- Bài viết
- 1,664
- Được thích
- 2,335
Bạn xem tại đây
Bạn xem đã đúng ý chưa
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,946
Cái này dùng công thức mà, đâu thể tùy biến cao như VBA đựoc!
Công thức dựa trên cơ sở hàm CELL... còn code VBA trong file chẳng qua chỉ là Calculate cho nó cập nhật row hiện hành... Vì thế muốn vẹn cả đôi đàng thì sửa lại code 1 chút:
PHP:
Sub worksheet_selectionchange(ByVal target As Range)
If target.Column = 5 Then Calculate
End Subthaibinh_excel
Thành viên hoạt động
- Tham gia
- 18/10/07
- Bài viết
- 127
- Được thích
- 29
- Nghề nghiệp
- Bán Hàng
Thanks Letin nhieu, nhưng cách của bạn không apply cho file minh được vì yêu cầu của mình là danh sách lọc hiện ra như kiểu của Điện Thoại di động ý, bạn có thể xem qua file cua Boyxin.
Cám ơn bạn rất nhiều,
Chúc vui,
TB
- Tham gia
- 6/8/06
- Bài viết
- 3,260
- Được thích
- 3,786
Lần chỉnh sửa cuối:
- Tham gia
- 6/8/06
- Bài viết
- 3,260
- Được thích
- 3,786
Vâng, em xóa Commandbutton mà quên không xóa các Code liên quan đi
Còn cái Sub Ma_moi_Click() thì không cần thiết vì em chỉ VD về việc tìm kiếm thôi.
EM đã up lại File rồi ạ, cảm ơn bác.
Thân!
- Tham gia
- 4/11/07
- Bài viết
- 14,396
- Được thích
- 37,035
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Thuyền Tào đã kết, tướng giỏi đã trá hàng, hỏa cụ đã sẵn, gió Đông đã thổi, mình góp cái hộp quẹt ga: (hông có zippo)
Nên đổi form - property Showmodal thành False để dùng nhiều lần
Mã:
Private Sub Ma_moi_Click()
Dim RngA As Range
Set RngA = Selection
If RngA.Count > 1 Then MsgBox "Chon 1 o thoi": Exit Sub
If IsNull(Me.LB) Then MsgBox "Phai chon 1 dong": Exit Sub
ActiveCell = Me.LB
ActiveCell.Offset(0, 1) = Me.LB.Column(1)
End SubNên đổi form - property Showmodal thành False để dùng nhiều lần
- Tham gia
- 6/8/06
- Bài viết
- 3,260
- Được thích
- 3,786
Bác cứ đùa, Bàng Thống bạn bác, Cam Ninh là em bác, Chu Du là chiến hữu của bác, Lăng Thống là đệ tử của bác, và Khổng Minh lại là . . . em cột chèo của bác.
vậy chắc bác là . . ai nhỉ ??? Bác chính là :Chú bé Rồng!
Cái chiêu RngA.Count > 1 rất hay, vậy mà em cứ phải đi đường vòng (Phải làm 2 dòng)
Cảm ơn bác!
Bài của Boyxin hay lắm , nhưng nếu có 2 người trùng cả tên lẫn họ, thì bạn xem lại có đúng không
boyxin
Members actively
- Tham gia
- 10/3/08
- Bài viết
- 1,664
- Được thích
- 2,335
- boyxin chi làm phần List -> cứ gõ một vài chữ cái đẩu của tên cần tìm thì List vẫn hiện lên đầy đủ những người thỏa mãn yêu cầu trong List (cho dù có bao nhiêu người trùng tên)
- Còn các phần khác do tác giả làm (boyxin cũng hổng hiểu tác giả làm gì)
- Muốn hiện thông tin bên dưới chuẩn xác cho từng người khi có nhiều người trùng tên thì phải thay đổi chút xíu về thuật toán
Vừa rồi mình thử thế này :
- boyxin chi làm phần List -> cứ gõ một vài chữ cái đẩu của tên cần tìm thì List vẫn hiện lên đầy đủ những người thỏa mãn yêu cầu trong List (cho dù có bao nhiêu người trùng tên)
- Còn các phần khác do tác giả làm (boyxin cũng hổng hiểu tác giả làm gì)
- Muốn hiện thông tin bên dưới chuẩn xác cho từng người khi có nhiều người trùng tên thì phải thay đổi chút xíu về thuật toán
Trong danh sách có 2 người trùng họ và tên ,thì trong list chỉ có hiện ra tên ấy 1 lần ,giả sử có 2 lần thì tác giả yêu cầu bài này dùng Vlookup cũng chỉ có thể tìm thấy người thứ nhất thôi
boyxin
Members actively
- Tham gia
- 10/3/08
- Bài viết
- 1,664
- Được thích
- 2,335
Xin được nhắc lại: boyxin chỉ làm phần list
bạn nhập 1 hoặc 2 chữ cái đầu của người trùng tên (không nhập đủ tên) rồi kiểm tra lại xem list có bao nhiêu người trùng tên?
Phần còn lại hoặc làm không đúng yêu cầu thì kết quả sai là chuyện thường
thaibinh_excel
Thành viên hoạt động
- Tham gia
- 18/10/07
- Bài viết
- 127
- Được thích
- 29
- Nghề nghiệp
- Bán Hàng
Chuyện trùng tên họ quả đúng là 1 chuyện rất nhức đầu. Vlookup thì mình thua xiền luôn. Letin và boyxin có gợi ý gì cho vấn đề này không?
boyxin
Members actively
- Tham gia
- 10/3/08
- Bài viết
- 1,664
- Được thích
- 2,335
theo mình: khi quản lý hồ sơ, nhiều khi càn trích lọc các thông tin liên quan (lý lịch trích ngang, ...) thì nên quản lý theo mã (có thể tự nhập hoặc lập cách tính tự động tạo mã) công thức trích lọc sẽ đơn giản mà lại tránh được vấn đề trùng lặp khi trích lọc
Tất nhiên có thể còn nhiều cách khác hay hơn, nhưng boyxin hay dùng cách này
thaibinh_excel
Thành viên hoạt động
- Tham gia
- 18/10/07
- Bài viết
- 127
- Được thích
- 29
- Nghề nghiệp
- Bán Hàng
Đúng rồi, mình cũng quản lý hồ sơ của mình theo mã code, như vậy là đơn giản và nhanh nhất vì không trùng lắp, nhưng mình cũng phải back up thêm 1 tracking khác vì có nhiều trường hợp KH không nhớ mã code thành ra nên phải khổ thế đấy !
Chúc vui.
Bài viết mới nhất
- Dán lên cao
- Question
