ho creato una macro per filtrare una combobox, man mano che inserisco un testo.
Funziona,
Ma, secondo Voi, esiste un metodo più semplice o più furbo?
combobox=CB12
Grazie
- Codice: Seleziona tutto
Private Sub UserForm_Initialize()
CB12.Clear
MATERIALE = Array("", "100Cr6", "16CrNi4", "18NiCrMo5", "25CrMoS4", "301", "303", "316", "31CrMo", "38CrAlMo7", "38NiCrMo4", "39NiCrMo3", "39NiCrMo3 Bon.", _
"39NiCrMo3 Bon.Traf.", "40CrMo4", "40NiCrMo7", "42CrMo4", "42CrMo4V", "42NiCrMo7", "A2", "A4", "ACC.", "AISI 301", "AISI 303", "AISI 304", "AISI 316", _
"AISI 316 Ti", "AISI 316L", "AISI 317L", "AISI 420", "AISI 430", "AISI 431", "AL6060", "AL6063-T6", "AL6082-T6", "All#20", "All#25", "Alluminio", _
"B14", "B-CuSn", "Bronal", "Bronzo", "BsPb10", "C10", "C16", "C20", "C40", "C40 Bon.", "C45", "C45 Bon.", "C45-Zn", "C50", _
"C70", "C100", "Duralluminio", "EN-GJL-250", "EN-GJS-400", "G15", "G25", "G30", "G35", "G40", "GHISA", "Gomma", "IGLIDUR", "INOX", "Legno", _
"Neoprene", "Nitrile", "Nylon", "Ottone", "Piombo", "Plastica", "Poliammide", "Poliuretano", "PTFE", "PVC", "Rame", "Resina", _
"Resina Epossidica", "S235J2", "S235J2G3", "S235JR", "S235JRG2", "S275J2", "S275JR", "S355J0", "S355J2", "S355J2G2", "S355J2G3", _
"S355JR", "Silicone", "Teflon", "Vetro", "X210Cr", "ZINC.")
CB12.List = MATERIALE
LMAT = UBound(MATERIALE)
End Sub
- Codice: Seleziona tutto
Private Sub CB12_Change()
Dim MATERIALE1(150)
I1 = 0
For I = 1 To LMAT
If MATERIALE(I) Like (CB12.Text & "*") Then
I1 = I1 + 1
MATERIALE1(I1) = MATERIALE(I)
End If
Next I
CB12.List = MATERIALE1
CB12.ListRows = I1 + 2
CB12.DropDown
End Sub