Я хочу выполнить поиск по списку в соответствии со списком в выпадающем списке для поиска в текстовом поле, и оно отобразится в списке. У меня есть мой код, но только 1 & 2 столбец будет доступен для поиска; остальные не.
Private Sub UserForm_Activate()
Me.ComboBox1.Clear
Me.ComboBox1.AddItem "Customer"
Me.ComboBox1.AddItem "Request No."
Me.ComboBox1.AddItem "Purchased Request"
Me.ComboBox1.AddItem "New Raised PR"
Me.ComboBox1.AddItem "Material Reservation"
Me.ComboBox1.AddItem "Service Request"
Me.ComboBox1.AddItem "Call Off P.O."
Me.ComboBox1.AddItem "P.O."
Me.ComboBox1.AddItem "GRN"
End Sub
Private Sub cmdSearch_Click()
If Me.txtSV.Value = "" Then
MsgBox "PLease enter the search value.", vbOKOnly + vbInformation, "Search"
Exit Sub
End If
Call CustomerName
End Sub
Private Sub ComboBox1_Change()
If Me.EnableEvents = False Then Exit Sub
If Me.ComboBox1.Value = "All" Then
Call Reset
Else
Me.txtSV.Value = ""
Me.txtSV.Enabled = True
Me.cmdSearch.Enabled = True
End If
End Sub