Hiển thị các kết quả tìm kếm

[congdatfr]

chào các anh chị!tình hình là em có một file excel với những tên tài liệu dài và khó nhớ lắm, em muốn tạo một sheet tìm kiếm riêng cho tất cả các sheet còn lại. cụ thể như sau:
có tầm 8 - 9 sheet chứa danh sách công văn, quyết định,...
em muốn tạo một sheet riêng, thực hiện tìm kiếm cho một từ khóa (chẳng hạn như "biên bản kiểm tra" hoặc ngày ban hành), giả sử có 13 kết quả các đầu mục có tên chứa từ khóa đó, và em muốn hiện danh sách của 13 đầu mục đó trong cái sheet tìm kiếm đó.
em đã tìm kiếm trên mạng nguyên cả buổi sáng nhưng vẫn chưa có kết quả...
việc tìm kiếm chỉ mang tính chất tương đối, không thể tuyệt đối do khi nào cần đến văn bản nào thì tìm văn bản đấy, việc nhớ cụ thể tên thì không thể, hiện tại em phải mất tầm 1 phút để tìm một văn bản, em muốn rút ngắn thời gian này nhất có thể
anh chị nào biết cách giúp em với, em xin chân thành cảm ơn!

em xin ví dụ:
[TABLE="width: 500"]
[TR]
[TD]số thứ tự[/TD]
[TD]tên công văn[/TD]
[TD]số[/TD]
[TD]ngày ban hành[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Mời họp "Hội nghị triển khai công tác kiểm kê đất đai…"[/TD]
[TD][TABLE="width: 144"]
[TR]
[TD]320/GM-UBND[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 100"]
[TR]
[TD]12/12/2014[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]...[/TD]
[TD]...............[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]có rất nhiều em không liệt kê được, upfile thì không được phép[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]kết quả tìm kiếm giả sử em tìm 2 chữ "đất đai" được 5 văn bản và hiện tên của cả 5 VB đó lên[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

 

[chuot0106]

anh chị nào biết cách giúp em với, em xin chân thành cảm ơn!
.............................................................................
em xin ví dụ:
[TABLE="width: 500"]
[TR]
[TD]số thứ tự[/TD]
[TD]tên công văn[/TD]
[TD]số[/TD]
[TD]ngày ban hành[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Mời họp "Hội nghị triển khai công tác kiểm kê đất đai…"[/TD]
[TD][TABLE="width: 144"]
[TR]
[TD]320/GM-UBND[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 100"]
[TR]
[TD]12/12/2014[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]...[/TD]
[TD]...............[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]có rất nhiều em không liệt kê được, upfile thì không được phép[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]kết quả tìm kiếm giả sử em tìm 2 chữ "đất đai" được 5 văn bản và hiện tên của cả 5 VB đó lên[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

Tìm thấy rồi thì sao nữa bạn????

 

[congdatfr]

đúng là ngồi nhìn đấy ạ, thực ra hiện đầy đủ danh sách lên để em tìm tài liệu trong tủ tài liệu thôi, toàn bản cứng chứ không phải bản mềm, mỗi tài liệu đều được đánh số thứ tự, chỉ có điều là tìm hơi nhọc nếu không biết tìm thôi

 

[chuot0106]

đúng là ngồi nhìn đấy ạ, thực ra hiện đầy đủ danh sách lên để em tìm tài liệu trong tủ tài liệu thôi, toàn bản cứng chứ không phải bản mềm, mỗi tài liệu đều được đánh số thứ tự, chỉ có điều là tìm hơi nhọc nếu không biết tìm thôi

Đưa file giả lập nên đây!

 

[congdatfr]

em xin gửi cái mẫu này nhé, em đã sửa tên văn bản nên đừng cố đọc rồi lại bảo em hack não

 

[chuot0106]

em xin gửi cái mẫu này nhé, em đã sửa tên văn bản nên đừng cố đọc rồi lại bảo em hack não

Bạn nhập từ cần tìm vào và nhấn "Enter" xem đã đúng ý chưa nhé! Sau đó suy nghĩ áp dụng vào File thật của mình! Chúc bạn thành công!

 

[giangleloi]

Bạn nhập từ cần tìm vào và nhấn "Enter" xem đã đúng ý chưa nhé! Sau đó suy nghĩ áp dụng vào File thật của mình! Chúc bạn thành công!

Có thể nào gõ không cần dấu Tiếng Việt và có list sổ xuống các kết quả gợi ý khi gõ từ cần tìm kiếm hông ta???

 

[chuot0106]

Có thể nào gõ không cần dấu Tiếng Việt và có list sổ xuống các kết quả gợi ý khi gõ từ cần tìm kiếm hông ta???

Cái này trên diễn đàn có nhiều rồi mà bạn!

 

[giangleloi]

Cái này trên diễn đàn có nhiều rồi mà bạn!

Sẵn bạn làm thì hỏi bạn luôn, nếu bạn sẵn lòng giao lưu có thể code còn hông thì bỏ qua vậy.....

 

[congdatfr]

dạ đúng rồi đó ạ, em cảm ơn rất nhiều, nhưng anh có thể chỉ cho em cách thức làm được không ạ?

 

[hpcsonla]

Bạn nhập từ cần tìm vào và nhấn "Enter" xem đã đúng ý chưa nhé! Sau đó suy nghĩ áp dụng vào File thật của mình! Chúc bạn thành công!

Cho mình hỏi là mình áp dụng file của bạn nhưng dữ liệu của mình có khoảng 20K dòng thì code VBA trong file có phải sửa gì không bạn vì mình chưa dùng VBA bao giờ. Nếu có bạn sửa giúp mình với mình đang rất cần. Cảm ơn bạn nhiêu.

 

[hpcsonla]

Kể ra có người mời Rượu ngon mà không uống thì hơi phí...
------------------------
To chủ topic: Muốn nhanh + Gõ không dấu + gõ trực tiếp thì code chạy ra luôn thì xem thử file sau: Gõ ký tự không cần gõ dấu vào TextBox màu xanh xanh ấy...

Cho mình hỏi là thông tin tìm kiếm của mình nếu gồm cả cột B và cột C và số lượng dòng khoảng 20K dòng thì code phải sửa như thế nào vậy bạn. Cảm ơn bạn nhiều

 

[hpcsonla]

Thì bạn cứ thử đi rồi nó có chạy không rồi mới hỏi chứ? chưa thử sao hỏi???

Mình đã thử rồi thông tiin tìm kiếm ở cột B đánh thì ra. Ý mình là thông tin tìm kiếm mình muốn tìm ở cả cột C nữa ( cột số Quyết định). Ví dụ mình đánh số QĐ là 2000 (thông tin cột C) mình muốn cũng tìm được. Thanks bạn

 

[hpcsonla]

Tôi không rảnh khi nói mà không có file. Vậy muốn gì thì cứ làm vào file và úp lên...
P/s: sẽ không trả lời khi không có file/format/và kết quả theo í muốn.

Tại mình nghĩ file của bạn làm đã up lên ấy. Mình up lại. Mong bạn sửa code giúp. Thanks bạn

 

[hpcsonla]

Tại mình nghĩ file của bạn làm đã up lên ấy. Mình up lại. Mong bạn sửa code giúp. Thanks bạn

Giả sử dữ liệu của mình là 20K dòng. Thông tin tìm kiếm ở Ô tìm kiếm mình có thể đánh thông tin bất kỳ của cột B hoặc cột C trong ô tìm kiếm thì nó đều hiện ra. Thank s bạn.

 

[hpcsonla]

Tìm dòng này:

  If TV((Arr(I, 1))) Like "*" & TV(Dk) & "*" Then

Sửa thành:

If TV((Arr(I, 1))) Like "*" & TV(Dk) & "*" Or TV((Arr(I, 2))) Like "*" & TV(Dk) & "*" Then

Thanks bạn rất nhiều.

 

[hpcsonla]

Thanks bạn rất nhiều.

Cảm ơn bạn nhiều. Cho mình hỏi thêm 1 tí nữa được không. Giờ ở "sheet 2" mình muốn thêm nội dung thông tin của 1 số cột nữa. Ví dụ thêm 7 cột nữa. Thì phải sửa code thế nào để bên "sheet 1" khi tìm kiếm thông tin tự động link thêm 7 cột đó. Thanks bạn nhiều nhé.

 

[hpcsonla]

Tìm dòng này:

  If TV((Arr(I, 1))) Like "*" & TV(Dk) & "*" Then

Sửa thành:

If TV((Arr(I, 1))) Like "*" & TV(Dk) & "*" Or TV((Arr(I, 2))) Like "*" & TV(Dk) & "*" Then

Cảm ơn bạn nhiều. Cho mình hỏi thêm 1 tí nữa được không. Giờ ở "sheet 2" mình muốn thêm nội dung thông tin của 1 số cột nữa. Ví dụ thêm 7 cột nữa. Thì phải sửa code thế nào để bên "sheet 1" khi tìm kiếm thông tin tự động link thêm 7 cột đó. Thanks bạn nhiều nhé.