Giúp em về listbox excel 2010 (1 người xem)

[duong0090]

Em có 1 danh sách listbox nhưng khi click để chọn thì danh sách quá nhiều, khiến em tìm kiếm rất lâu và mất thời gian.
Giờ em muốn các anh chị giúp em: sao cho khi em đánh chữ cái đầu tiên, thì trong listbox của em sẽ hiện ra danh sách có chữ cái em cần tìm.
VD: khi em cần tìm danh sách có vần H đầu tiên, thì em đánh chữ "H" trong cell box, list tự động hiện tất cả danh sách có vần H.

Cho em hỏi thêm nữa là giờ em muốn cái box của em dài hơn để nhìn danh sách được nhiều hơn, đỡ rối mắt thì làm ntn.
box của em làm mặc định nên nó hơi ngắn.
Em có file đính kèm (hoidap1.xlsx), nhờ các anh chị giúp em với, e đang cần lắm
cảm ơn trước ạ

 

[phucbugis]

Em có 1 danh sách listbox nhưng khi click để chọn thì danh sách quá nhiều, khiến em tìm kiếm rất lâu và mất thời gian.
Giờ em muốn các anh chị giúp em: sao cho khi em đánh chữ cái đầu tiên, thì trong listbox của em sẽ hiện ra danh sách có chữ cái em cần tìm.
VD: khi em cần tìm danh sách có vần H đầu tiên, thì em đánh chữ "H" trong cell box, list tự động hiện tất cả danh sách có vần H.

Cho em hỏi thêm nữa là giờ em muốn cái box của em dài hơn để nhìn danh sách được nhiều hơn, đỡ rối mắt thì làm ntn.
box của em làm mặc định nên nó hơi ngắn.
Em có file đính kèm (hoidap1.xlsx), nhờ các anh chị giúp em với, e đang cần lắm
cảm ơn trước ạ

mình trả lời vấn đề khó trước ,

Xem file mới để lý là bạn đang hỏi Data Validation, bạn mở file đính kèm nhập ký tự vào ô B3 -> Enter, rồi chọn lại ô đó để xem kết quả.
Link: https://www.mediafire.com/?bs68dw4f6088at0

và muốn Pro hơn thì vào xem tiếp bài này:
[Help] Search trong Filter (#4)

'- - -
còn nếu dùng Userform cho 1 bảng dữ liệu phức tạp thì bạn vào link sau bác HTN đã làm code khá hoàn chỉnh rồi đó.
Nhờ các bạn cải thiện tốc độ search dữ liệu trên listbox! (#28)

 

[duong0090]

Thanks a
Đúng cái em đang cần,
hehe.
anh có thể chỉ rõ cho em cách làm cụ thể đưuọc không

 

[phucbugis]

Thanks a
Đúng cái em đang cần,
hehe.
anh có thể chỉ rõ cho em cách làm cụ thể đưuọc không

chẳng biết bạn đang hỏi cái nào (file đính kèm đó hay là 2 link mình đã gửi )

 

[duong0090]

chẳng biết bạn đang hỏi cái nào (file đính kèm đó hay là 2 link mình đã gửi )

Cái link anh gửi cho em đấy

 

[phucbugis]

Cái link anh gửi cho em đấy

bạn tải lại file hoi dap (2) HTN, vào Sheet1 (2) - tìm kiếm tại ô B3 xem có phải vậy ko?
Link: https://www.mediafire.com/?qvt4lg5ha1h127q

 

[duong0090]

bạn tải lại file hoi dap (2) HTN, vào Sheet1 (2) - tìm kiếm tại ô B3 xem có phải vậy ko?

Đúng rồi bác ơi, bác chỉ em cách làm đi

 

[phucbugis]

Đúng rồi bác ơi, bác chỉ em cách làm đi

có thể file thực tế của bạn nó khác,

hiện tại Sheet1 (2) có 1 combobox1, nó thuộc ActiveX Controls và sẽ bị ẩn đi khi bạn kích hoạt Macro, chỉ hiện ra khi bạn tìm kiếm thông tin tại ô B3.

code của file đó khá nhiều, theo mình bạn chỉ cần để ý các dòng sau:

ở Private Sub Worksheet_SelectionChange
tại Set SearchRange = Intersect(Target, Range("B3")) ---> nếu ô tìm kiếm ko phải là B3 thì sửa B3 -> ô khác.

nhóm này sẽ tìm kiếm dữ liệu từ row 4 trở xuống.

Set pri_RangeFilter = Range(Cells(3, c), Cells(LastRow, c))
ArrFilter = Range(Cells(4, c), Cells(LastRow, c))

nhóm bên dưới -> xác định thuộc tính cho Combobox1 sau khi tìm kiếm.
(Target ở đây là ô bạn đang chọn)

With ComboBox1
            .Visible = False
            .Text = ""
            .List = pri_ArrFilter
            .Top = Target.Top
[COLOR=#ff0000]            .Left = Target.Offset(, 1).Left[/COLOR]
[COLOR=#ff0000]            .Width = Target.Offset(, 1).Width[/COLOR]
            .Height = Target.Height
            .Visible = True
            .Activate
End with

- nếu ko biết làm nữa thì bạn Up file thực tế lên + yêu cầu search ntn thì mình sẽ chỉnh giúp cho,
- còn giải thích từng dòng 1 của code trong file đó thì chắc chỉ có bác HTN mới giải thích giùm bạn được.