Hỏi cách tạo combo box thông minh

[titanic]

chào các anh/chị
em có thử tạo 1 combo box nhưng không đúng ý em lắm cho em hỏi trong excel mình có combox tự tìm ra các từ gần giống với yêu ký tự mình đánh vào dòng combox không . như mình đánh chữ "g" đi ( nó sẽ hiện ra 1 bảng từ 4 tới 5 lựa chon có chữ cái bắt đầu từ chữ "g" )
em có gửi ảnh minh họa . mọng các anh chỉ giúp cảm ơn nhiều

 

[ndu96081631]

chào các anh/chị
em có thử tạo 1 combo box nhưng không đúng ý em lắm cho em hỏi trong excel mình có combox tự tìm ra các từ gần giống với yêu ký tự mình đánh vào dòng combox không . như mình đánh chữ "g" đi ( nó sẽ hiện ra 1 bảng từ 4 tới 5 lựa chon có chữ cái bắt đầu từ chữ "g" )
em có gửi ảnh minh họa . mọng các anh chỉ giúp cảm ơn nhiều

Thật ra cũng chỉ là bài toán LỌC CÓ ĐIỀU KIỆN thôi
Nếu là tôi thì tôi không dùng ComboBox mà kết hợp giữa TextBox với ListBox: Gõ từ khóa vào TextBox, ListBox sẽ hiện những phần tử gần đúng
Dạng này cũng đã post nhiều trên diễn đàn rồi

 

[titanic]

em gửi file mô tả chi tiết anh chỉ dùm em với hoặc chỉ cho em cách tìm bài tương tự em cám ơn

 

[Quang_Hải]

em gửi file mô tả chi tiết anh chỉ dùm em với hoặc chỉ cho em cách tìm bài tương tự em cám ơn

Làm thử cho bạn thế này rồi tính tiếp

 

[titanic]

cảm ơn anh cái file anh gửi thật là hơn cả tuyệt vời , nhưng làm phiền anh hướng dẫn chi tiết giúp em với . tại e trước giờ chưa dùng lập trình lần nào . em xin hậu tạ

 

[lee chung]

Mình nhờ các bạn làm giúp text box hay listbox ... để khi mình click vào ô gỏ vài ký tự ví dụ gỏ ng nó sổ ra danh sách có chử ng cho mình chọn lựa,sau khi chọn xong click vào danh sách đó nó sẻ gán tên đó vào ô luôn. Mình có gởi file để các bạn xem giúp.

 

[LienDong]

Mình nhờ các bạn làm giúp text box hay listbox ... để khi mình click vào ô gỏ vài ký tự ví dụ gỏ ng nó sổ ra danh sách có chử ng cho mình chọn lựa,sau khi chọn xong click vào danh sách đó nó sẻ gán tên đó vào ô luôn. Mình có gởi file để các bạn xem giúp.

Bài này có thể giúp bạn
http://www.giaiphapexcel.com/forum/...ng-Validation-trong-tối-ưu-hóa-việc-nhập-liệu

 

[lee chung]

Cám ơn bạn LienDong nhe, link bạn giới thiệu không phải là điều mình cần, cái mình cần có nêu rỏ trong file đính kèm nghĩa là mình muốn có được chức năng nhập liệu giống file Copy of xin huong dan chi cach tạo listbox.rar của bạn quanghai1969 , nhưng file của bạn quanghai1969 có nhược điểm là chỉ sổ ra list những từ có ký tự được gỏ vào sort ở từ đầu tiên thôi ví dụ khi gỏ chử t thì chỉ có xuất ra những từ có chử t đầu là

thanh phương
tuấn anh ag
tuấn anh mp
tuấn anh me

mà lại không xuất luôn tên người khác cũng có chử t ở những từ kế tiếp đó là :

nhật thiện
hoàng thiện

 

[Quang_Hải]

Cám ơn bạn LienDong nhe, link bạn giới thiệu không phải là điều mình cần, cái mình cần có nêu rỏ trong file đính kèm nghĩa là mình muốn có được chức năng nhập liệu giống file Copy of xin huong dan chi cach tạo listbox.rar của bạn quanghai1969 , nhưng file của bạn quanghai1969 có nhược điểm là chỉ sổ ra list những từ có ký tự được gỏ vào sort ở từ đầu tiên thôi ví dụ khi gỏ chử t thì chỉ có xuất ra những từ có chử t đầu là

thanh phương
tuấn anh ag
tuấn anh mp
tuấn anh me

mà lại không xuất luôn tên người khác cũng có chử t ở những từ kế tiếp đó là :

nhật thiện
hoàng thiện

Bạn mở Module2 trong file ra, thay đoạn code này vào là được như ý rồi

Sub loc()
Dim kq(1 To 10000, 1 To 1), dl(), i, j
With Sheet2
   dl = .Range(.[a2], .[a65536].End(3)).Value
End With
For i = 1 To UBound(dl)
   If dl(i, 1) <> "" Then
      If dl(i, 1) Like "*" & Sheet1.TextBox1.Value & "*" Then
         j = j + 1
         kq(j, 1) = dl(i, 1)
      End If
   End If
Next
If j Then Sheet1.ListBox1.List = kq
End Sub

 

[Hong.Van]

Bạn mở Module2 trong file ra, thay đoạn code này vào là được như ý rồi

Sub loc()
Dim kq(1 To 10000, 1 To 1), dl(), i, j
With Sheet2
   dl = .Range(.[a2], .[a65536].End(3)).Value
End With
For i = 1 To UBound(dl)
   If dl(i, 1) <> "" Then
      If dl(i, 1) Like "*" & Sheet1.TextBox1.Value & "*" Then
         j = j + 1
         kq(j, 1) = dl(i, 1)
      End If
   End If
Next
If j Then Sheet1.ListBox1.List = kq
End Sub

Cho em hỏi ví dụ ta có thêm cột B "địa chỉ", Cột C " điện thọai" ở Sheet Khách hàng thì làm sao có thể khi chọn tên xong thì địa chỉ và điện thọai cùng hiện kg? (cho thuận tiện khỏi dùng hàm Vlookup)
Em cảm ơn!

 

[Quang_Hải]

Cho em hỏi ví dụ ta có thêm cột B "địa chỉ", Cột C " điện thọai" ở Sheet Khách hàng thì làm sao có thể khi chọn tên xong thì địa chỉ và điện thọai cùng hiện kg? (cho thuận tiện khỏi dùng hàm Vlookup)
Em cảm ơn!

Bên trong file có Sub này. Thêm dòng màu đỏ vào thay thế cho hàm Vlookup

Private Sub ListBox1_Click()
ActiveCell.Value = Sheet1.ListBox1.Value
[COLOR=#ff0000]ActiveCell.Offset(, 1) = Sheet2.[A:A].Find(ActiveCell).Offset(, 1)[/COLOR]
ActiveCell.Activate
Hide
End Sub

Hoăc là tạo Listbox có 2 cột
Nếu có nhiều cột thì dùng vòng lặp để lấy dữ liệu từ listbox ra

Private Sub ListBox1_Click()
ActiveCell = Sheet1.ListBox1.Column(0)
ActiveCell.Offset(, 1) = Sheet1.ListBox1.Column(1)
ActiveCell.Activate
Hide
End Sub

 

[lee chung]

Bạn mở Module2 trong file ra, thay đoạn code này vào là được như ý rồi

Sub loc()
Dim kq(1 To 10000, 1 To 1), dl(), i, j
With Sheet2
   dl = .Range(.[a2], .[a65536].End(3)).Value
End With
For i = 1 To UBound(dl)
   If dl(i, 1) <> "" Then
      If dl(i, 1) Like "*" & Sheet1.TextBox1.Value & "*" Then
         j = j + 1
         kq(j, 1) = dl(i, 1)
      End If
   End If
Next
If j Then Sheet1.ListBox1.List = kq
End Sub

Cám ơn bạn quanghai1969 nhé, bạn ơi mình muốn khi gõ từ không dấu nó vẫn xổ ra luôn những từ có dấu thì phải làm sao ?, ví dụ gỏ e thì nó xổ xuống cả từ có chữ e và cã các từ có chử ê , é , ẻ , ề .... cụ thể (trong file Copy of xin huong dan chi cach tạo listbox )gõ e thì ta được

lê lai
điền phong
tuấn anh me
nhật thiện
hoàng thiện

 

[Quang_Hải]

Cám ơn bạn quanghai1969 nhé, bạn ơi mình muốn khi gõ từ không dấu nó vẫn xổ ra luôn những từ có dấu thì phải làm sao ?, ví dụ gỏ e thì nó xổ xuống cả từ có chữ e và cã các từ có chử ê , é , ẻ , ề .... cụ thể (trong file Copy of xin huong dan chi cach tạo listbox )gõ e thì ta được

lê lai
điền phong
tuấn anh me
nhật thiện
hoàng thiện

Muốn thì có thôi mà. Xem file coi đúng chưa.

 

[lee chung]

Muốn thì có thôi mà. Xem file coi đúng chưa.

Cám ơn bạn quanghai1969 nhiều, bạn xem giúp mình copy mấy cái code của file: Copy of xin huong dan chi cach tạo listbox vào file của mình nhưng chỉ có cột khách hàng chạy được còn cột Địa điểm giao hàng không được là sao vậy bạn ?

 

[Quang_Hải]

Cám ơn bạn quanghai1969 nhiều, bạn xem giúp mình copy mấy cái code của file: Copy of xin huong dan chi cach tạo listbox vào file của mình nhưng chỉ có cột khách hàng chạy được còn cột Địa điểm giao hàng không được là sao vậy bạn ?

Mấy vụ này mình kém lắm. Thử thế này xem sao

 

[Hoàng Trọng Nghĩa]

Mấy vụ này mình kém lắm. Thử thế này xem sao

Quang Hải làm nhiều trò cũng thật thú vị đó! Dùng toán tử LIKE cũng sành điệu hen!

 

[Quang_Hải]

Quang Hải làm nhiều trò cũng thật thú vị đó! Dùng toán tử LIKE cũng sành điệu hen!

Đang khen hay chê vậy trời?

 

[Hoàng Trọng Nghĩa]

Đang khen hay chê vậy trời?

Khen thật lòng đấy chứ! Quang Hải quả là tiến bộ vượt bật đấy!

 

[lee chung]

Mấy vụ này mình kém lắm. Thử thế này xem sao

Hay quá bạn ơi đúng ý mình rồi, bạn giỏi quá, mình không hiểu tí gì về VBA code bạn làm, mình có thể học hỏi ở web nào hả bạn? cám ơn bạn rất nhiều.

 

[vanle33]

Hay quá bạn ơi đúng ý mình rồi, bạn giỏi quá, mình không hiểu tí gì về VBA code bạn làm, mình có thể học hỏi ở web nào hả bạn? cám ơn bạn rất nhiều.

Bạn học trên GPE đã là quá quá đủ rồi
Bạn học hết được các chiêu thức VBA trên GPE chắc còn dài dài nữa
Bạn tự search đi