tạo dự đoán nhập trong combobox bằng userform

Mình có file quản lí thiết bị, mình có tạo userform nhập liệu => mình muốn khi nhập 1 ký tự hoặc 2 ký tự, nó sẽ xổ xuống danh sách rồi mình click chọn

hiện tại nó cũng có dự đoán, nhưng không xổ danh sách xuống

Mình có làm một form này dùng lâu rồi, phần bên phải giống nhu cầu bạn đang hỏi, định chia sẻ thì thấy bạn như vậy nên không còn hứng thú nữa, tiếc quá.
1629

Một số link cho bạn tham khảo : www.one-tab.com/page/WUk_ky1tR_yU_lbnN3EfcA

1631

Private Sub ComboBox1_Change()
    ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim arrIn As Variant, arrOut As Variant
    Dim i As Long, j As Long

arrIn = Sheets("list").Range("b6:b1000")

ReDim arrOut(1 To UBound(arrIn), 1 To 1)

For i = 1 To UBound(arrIn)
        If arrIn(i, 1) Like ComboBox1.Text & "*" Then
            j = j + 1
            arrOut(j, 1) = arrIn(i, 1)
        End If
    Next
    ComboBox1.List = arrOut
End Sub

Sub Button1_Click()
    With UserForm1
           .ComboBox1.MatchEntry = fmMatchEntryNone ' <--| set this just before showing userform
           .Show
    End With
    'UserForm1.ComboBox1.MatchEntry = fmMatchEntryNone.Show
End Sub

www.giaiphapexcel.com/diendan/threads/t%E1%BA%A1o-d%E1%BB%B1-%C4%91o%C3%A1n-nh%E1%BA%ADp-trong-combobox-b%E1%BA%B1ng-userform.163740/

Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học