Tìm kiếm nhanh trong drop down list

[Hoàng Trọng Nghĩa]

Cái này nên sử dụng UserForm với ComboBox phụ thuộc nha bạn, Chọn tỉnh sẽ chỉ xuất hiện huyện của tỉnh đó, chọ huyện sẽ xuất hiện số xã của huyện đó.

Người ta thích đơn giản, chứ cái này dùng Name và Dropdown List (Validation) phụ thuộc nhau là được.

 

[vanthinh3101]

Em cần làm nhiều list tại các cột tô màu, nhưng khi chọn cột nào trước thì các cột khác lại ra kết quả như nhau. Nhờ hướng dẫn giúp

Tôi có thêm chút mắm muối trên nền code cũ.
Bạn tham khảo nhé!

 

[ngmcuongbl]

File của bạn còn thiếu danh mục tỉnh thành, danh mục quận huyện. Bạn bổ sung luôn đi tôi làm cho bạn luôn một lần.

Dạ nó nằm trong Sheet PL03 đó, giúp em nhé.

 

[Hoàng Trọng Nghĩa]

Dạ nó nằm trong Sheet PL03 đó, giúp em nhé.

Chắc bạn chưa làm hành chính bao giờ nhỉ? Cái sheet bạn nói chỉ đúng với danh mục Phường Xã mà thôi, còn danh mục Quận huyện và danh mục Tỉnh thành hoàn toàn không phải vậy nha bạn!

 

[ngmcuongbl]

Tôi có thêm chút mắm muối trên nền code cũ.
Bạn tham khảo nhé!

Đã làm được, xin cám ơn anh

 

[Phan Thi Kieu Diem]

Không hiểu máy tôi có vấn đề gì không, mà khi đặt con trỏ vào TextBox, bấm nút TAB 2 lần thì nó bị như thế này (xem hình). Các bạn thử test xem sao.

Dear Anh Nghĩa,
Nhờ anh làm giúp em file này với ạ.
Tìm kiếm tên và mã dự án ở cột em tô vàng sheet kế hoạch ạ.
Dữ liệu được cập nhật ở sheet danh mục.
Em cảm ơn anh nhiều ạ.

 

[Hoàng Trọng Nghĩa]

Dear Anh Nghĩa,
Nhờ anh làm giúp em file này với ạ.
Tìm kiếm tên và mã dự án ở cột em tô vàng sheet kế hoạch ạ.
Dữ liệu được cập nhật ở sheet danh mục.
Em cảm ơn anh nhiều ạ.

Tôi chẳng biết làm gì cho bạn trong cái topic này nữa! Bạn nói chi tiết, cụ thể như thế nào.

 

[skydoan]

Em thấy code của a Nghĩa, khi thêm mới mã ở danh mục hoặc sửa lại tên, khi chọn không thấy tự động cập nhật luôn (vẫn thông tin cũ hoặc chưa có mã bổ sung). Chỗ này phải tắt file đi rồi mở lại mới cập nhật thêm thông tin

 

[ntp168911]

Bài của bạn đây! Đơn giản hơn file kia rất là nhiều.

Chào anh, cho em hỏi là khi em copy code vào file excel khác thì không chạy được, cho em hỏi mình cần phải cài đặt gì nữa không ạ

 

[truongvan86dh]

Ch

Với sheet2 tại cột B và C, bạn thử chọn 1 ô tại 2 cột đó, từ hàng 3 trở đi sẽ thấy nó.

Gõ từ khóa chúng sẽ hiện ra tương ứng, không nhất thiết phải gõ từ đầu câu, chỉ cần gõ bất kỳ cụm từ nào trong đó và không phân biệt chữ thường hoặc chữ hoa.

Ví dụ: Chuỗi là Hoang Trong Nghia, bạn chỉ cần gõ trong (Trong, TRONG, ...), hoặc gõ oang (OANG, oAng, ...) thì những mục có chứa các từ đó sẽ hiển thị để bạn chọn.

Đây là toàn bộ code của bài này (code trong Module của Sheet2):

Private priArray
Private priColumn As Long
Private priIsFocus As Boolean


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Row > 2 Then
        Dim e As Long
        Static ArrCode, ArrName
        If Target.Column = 2 Then
            If Not IsArray(ArrCode) Then
                e = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
                ArrCode = Sheet1.Range("B2:C" & e).Value2
            End If
            priColumn = 1
            priArray = ArrCode
            Call HienComboBox
        ElseIf Target.Column = 3 Then
            If Not IsArray(ArrName) Then
                Dim ArrTmp
                Dim r As Long, u As Long
                e = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
                ArrTmp = Sheet1.Range("B2:B" & e).Value2
                ArrName = Sheet1.Range("C2:C" & e).Value2
                u = UBound(ArrName)
                ReDim Preserve ArrName(1 To u, 1 To 2)
                For r = 1 To u
                    ArrName(r, 2) = ArrTmp(r, 1)
                Next
            End If
            priColumn = -1
            priArray = ArrName
            Call HienComboBox
        Else
            Call AnComboBox
        End If
    Else
        Call AnComboBox
    End If
End Sub


Private Sub ComboBox1_Change()
    If priIsFocus Then Exit Sub
    If ComboBox1.MatchFound Then
        ActiveCell.Value = ComboBox1.Text
        ActiveCell.Offset(, priColumn).Value = ComboBox1.Column(1)
    Else
        ActiveCell.Value = ""
        ActiveCell.Offset(, priColumn).Value = ""
    End If
End Sub


Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
    Case 9, 16, 17, 37 To 40
    Case 13
        ActiveCell.Offset(1).Activate
    Case Else
        Dim strValue As String
        strValue = LCase(ComboBox1.Text)
        ComboBox1.ListRows = 20
        If Trim(strValue) > "" Then
            If IsArray(priArray) Then
                Dim ArrFilter, GetRow()
                Dim c As Long, i As Long, n As Long, r As Long
                For r = 1 To UBound(priArray, 1)
                    If LCase(priArray(r, 1)) Like "*" & strValue & "*" Then
                        n = n + 1
                        ReDim Preserve GetRow(1 To n)
                        GetRow(n) = r
                    End If
                Next
                If n Then
                    Dim u As Byte
                    u = UBound(priArray, 2)
                    ReDim ArrFilter(1 To n, 1 To u)
                    For r = 1 To n
                        For c = 1 To u
                            ArrFilter(r, c) = priArray(GetRow(r), c)
                        Next
                    Next
                    ComboBox1.List = ArrFilter
                Else
                    ComboBox1.Clear
                    ComboBox1.ListRows = 0
                End If
                ComboBox1.DropDown
            End If
        Else
            If ComboBox1.ListCount <> UBound(priArray) Then
                ComboBox1.List = priArray
                ComboBox1.DropDown
            End If
        End If
    End Select
End Sub


Private Sub HienComboBox()
    priIsFocus = True
    With ComboBox1
        .Visible = False
        .Visible = True
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .ListWidth = .Width + ActiveCell.Offset(, priColumn).Width
        .ColumnWidths = .Width - 4
        .Height = ActiveCell.Height
        .List = priArray
        .Text = ""
        .Text = ActiveCell.Value
        .Activate
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
    priIsFocus = False
End Sub


Private Sub AnComboBox()
    With ComboBox1
        If .Visible Then
            .Visible = False
        End If
    End With
End Sub

Với sheet2 tại cột B và C, bạn thử chọn 1 ô tại 2 cột đó, từ hàng 3 trở đi sẽ thấy nó.

Gõ từ khóa chúng sẽ hiện ra tương ứng, không nhất thiết phải gõ từ đầu câu, chỉ cần gõ bất kỳ cụm từ nào trong đó và không phân biệt chữ thường hoặc chữ hoa.

Ví dụ: Chuỗi là Hoang Trong Nghia, bạn chỉ cần gõ trong (Trong, TRONG, ...), hoặc gõ oang (OANG, oAng, ...) thì những mục có chứa các từ đó sẽ hiển thị để bạn chọn.

Đây là toàn bộ code của bài này (code trong Module của Sheet2):

Private priArray
Private priColumn As Long
Private priIsFocus As Boolean


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Row > 2 Then
        Dim e As Long
        Static ArrCode, ArrName
        If Target.Column = 2 Then
            If Not IsArray(ArrCode) Then
                e = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
                ArrCode = Sheet1.Range("B2:C" & e).Value2
            End If
            priColumn = 1
            priArray = ArrCode
            Call HienComboBox
        ElseIf Target.Column = 3 Then
            If Not IsArray(ArrName) Then
                Dim ArrTmp
                Dim r As Long, u As Long
                e = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
                ArrTmp = Sheet1.Range("B2:B" & e).Value2
                ArrName = Sheet1.Range("C2:C" & e).Value2
                u = UBound(ArrName)
                ReDim Preserve ArrName(1 To u, 1 To 2)
                For r = 1 To u
                    ArrName(r, 2) = ArrTmp(r, 1)
                Next
            End If
            priColumn = -1
            priArray = ArrName
            Call HienComboBox
        Else
            Call AnComboBox
        End If
    Else
        Call AnComboBox
    End If
End Sub


Private Sub ComboBox1_Change()
    If priIsFocus Then Exit Sub
    If ComboBox1.MatchFound Then
        ActiveCell.Value = ComboBox1.Text
        ActiveCell.Offset(, priColumn).Value = ComboBox1.Column(1)
    Else
        ActiveCell.Value = ""
        ActiveCell.Offset(, priColumn).Value = ""
    End If
End Sub


Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
    Case 9, 16, 17, 37 To 40
    Case 13
        ActiveCell.Offset(1).Activate
    Case Else
        Dim strValue As String
        strValue = LCase(ComboBox1.Text)
        ComboBox1.ListRows = 20
        If Trim(strValue) > "" Then
            If IsArray(priArray) Then
                Dim ArrFilter, GetRow()
                Dim c As Long, i As Long, n As Long, r As Long
                For r = 1 To UBound(priArray, 1)
                    If LCase(priArray(r, 1)) Like "*" & strValue & "*" Then
                        n = n + 1
                        ReDim Preserve GetRow(1 To n)
                        GetRow(n) = r
                    End If
                Next
                If n Then
                    Dim u As Byte
                    u = UBound(priArray, 2)
                    ReDim ArrFilter(1 To n, 1 To u)
                    For r = 1 To n
                        For c = 1 To u
                            ArrFilter(r, c) = priArray(GetRow(r), c)
                        Next
                    Next
                    ComboBox1.List = ArrFilter
                Else
                    ComboBox1.Clear
                    ComboBox1.ListRows = 0
                End If
                ComboBox1.DropDown
            End If
        Else
            If ComboBox1.ListCount <> UBound(priArray) Then
                ComboBox1.List = priArray
                ComboBox1.DropDown
            End If
        End If
    End Select
End Sub


Private Sub HienComboBox()
    priIsFocus = True
    With ComboBox1
        .Visible = False
        .Visible = True
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .ListWidth = .Width + ActiveCell.Offset(, priColumn).Width
        .ColumnWidths = .Width - 4
        .Height = ActiveCell.Height
        .List = priArray
        .Text = ""
        .Text = ActiveCell.Value
        .Activate
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
    priIsFocus = False
End Sub


Private Sub AnComboBox()
    With ComboBox1
        If .Visible Then
            .Visible = False
        End If
    End With
End Sub

Ở sheet 2 của file đính kèm khi em kích vào nút drop down list để chọn mã hàng mình cần, có cách nào khi mình kích vào nút xoả xuống nó sẽ hiện hộp thoại để mình gõ vào đó mặt hàng cần tìm cho nhanh hoặc mình chỉ cần gõ P01A- nó sẽ hiện ra những mặt hàng có chữ bắt đầu bằng P01A như trong nút search của filter không? Mọi người giúp em với, em cảm ơn nhiều.

Chào bạn Nghĩa.
Mình có File dữ liệu gốc tương tự bạn hướng dẫn mà mình làm mãi không được. Nhờ bạn chỉ giáo giúp mình với à. Vì mình không rành về code à. Mình có gửi kèm File có tô ô màu vàng là Ô cần hỏi à.
Xin trân trọng cám ơn
Văn Nguyễn

 

[TongDe]

Name chưa có địa chỉ:
chọn sheet DMKH_NCC,
Ô địa chỉ, type: dmkhncc

 

[truongvan86dh]

Name chưa có địa chỉ:
chọn sheet DMKH_NCC,
Ô địa chỉ, type: dmkhncc

Gửi bạn. Mình đã bổ sung ở Sheet DMKH_NCC (Ô địa chỉ, type : dmkhncc)

 

[TongDe]

Qua Sheet NHAPLIEU thử chọn cell các cột R,S,T coi được chưa...

 

[truongvan86dh]

Qua Sheet NHAPLIEU thử chọn cell các cột R,S,T coi được chưa...

được rồi bạn. vấn đề là mỗi lần bấm xổ xuống trong Filter mình gõ tìm kiếm cho nhanh đó. Còn vấn đề chèn code của bạn nghĩa mình không áp dụng được. Nếu được nhờ bạn chèn vào thử xem