Tạo from tìm kiếm + nhập liệu (1 người xem)

[hoangtulonely]

Mình có một from nhập liệu . từ combobox 1 chon một giá trị thì combobox 2 sẽ chỉ hiển thị những giá trị tương ứng với giá trị combobox 1

vd : file đính kèm


combobox 1 chọn "van an" thì combobox 2 chỉ hiển thị " duong , bot ngot, muoi, tieu,dam"

không thấy ai giúp vậy ta??

 

[thanh_tks]

không thấy ai giúp vậy ta??

" duong , bot ngot, muoi, tieu,dam" đây nè!
(file đính kèm)

 

[ndu96081631]

" duong , bot ngot, muoi, tieu,dam" đây nè!
(file đính kèm)

File này chưa đúng đâu nha:
- Thứ nhất: Muốn tạo ra list động như yêu cầu của tác giả thì điều kiện tiên quyết là cột A phải được Sort trước
- Thứ hai: Dử liệu nhập phải đồng nhất ---> Kiểm tra thấy 1 vài cell có khoảng trắng ở cuối câu ---> Như vậy công thức sẽ tính toán sai
- Thứ ba: Người ta yêu cầu ComboBox chứ không phải Validation
- Thứ tư: Nhiều name quá đến mức không cần thiết (tối đa 3 name là đủ)
Xem file đính kèm này (đã sửa lại)

 

[thanh_tks]

Cái này không phải em làm mà là em thấy bạn đó kêu quá trời nên em tìm file tương tự copy rồi paste cho nhanh.Cám ơn anh ndu96081631 nhé!

 

[hoankha]

Trời chỉ có vậy thôi ma không ai co thể giúp bạn hả
minh thử tham gia nha
bạn vào Data --> Lít--> creat list--> Ok
roi kéo ô ra nhìn thấy dấu * click chuột vào và nhạp thôi

 

[ndu96081631]

Trời chỉ có vậy thôi ma không ai co thể giúp bạn hả
minh thử tham gia nha
bạn vào Data --> Lít--> creat list--> Ok
roi kéo ô ra nhìn thấy dấu * click chuột vào và nhạp thôi

Người ta hỏi về ComboBox mà ông đi chỉ tầm bậy tầm bạ không! Có đọc kỹ yêu cầu không vậy?

 

[hoangtulonely]

Rất cảm ơn các bạn đã giúp. nhưng do mình quên là sử dụng combobox trong from mình đã gửi lại file các bạn xem lại giúp nhé!

 

[ndu96081631]

Rất cảm ơn các bạn đã giúp. nhưng do mình quên là sử dụng combobox trong from mình đã gửi lại file các bạn xem lại giúp nhé!

Nếu là UserForm, đương nhiên có dùng đến code ---> Đã thế ta xài toàn bộ bằng code luôn
Trong Module

Function UniqueList(Range As Range)
  Dim Clls As Range, Dic
  Set Dic = CreateObject("Scripting.Dictionary")
  For Each Clls In Range
    If Not IsEmpty(Clls) And Not Dic.Exists(Clls.Value) Then
      Dic.Add Clls.Value, Clls.Value
    End If
  Next Clls
  UniqueList = Dic.Keys
End Function

Trong Form

Private Sub UserForm_Initialize()
  With Sheet1.Range("A1").CurrentRegion
    ComboBox1.List = UniqueList(.Resize(, 1).Cells)
  End With
End Sub

Private Sub ComboBox1_Change()
  Dim iRng As Range, Dic, FAdd As String
  Set Dic = CreateObject("Scripting.Dictionary")
  With Sheet1.Range("A1").CurrentRegion.Resize(, 1)
    Set iRng = .Find(ComboBox1, LookAt:=xlWhole)
    If Not iRng Is Nothing Then
      FAdd = iRng.Address
      Do
        Dic.Add iRng(, 2).Value, iRng(, 2).Value
        Set iRng = .FindNext(iRng)
      Loop While Not iRng Is Nothing And iRng.Address <> FAdd
    End If
  End With
  ComboBox2.List = Dic.Keys
End Sub

 

[hoangtulonely]

mình đã làm trên file thực tế đang làm tuy nhiên co chút vấn đề.bạn xem giúp nhé! thanks

và trên file bao bi đính kèm khi chọn combbox nhà cung ứng thì combbox item không thể hiện hết những giá trị tương ứng ---> nhờ các bạn xem giúp (ct trong define name gặp vấn đề) thanks !!!