Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

filtrare una combobox

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

filtrare una combobox

Postdi cd7019 » 08/05/14 21:21

Ciao,
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
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Sponsor
 

Re: filtrare una combobox

Postdi scossa » 08/05/14 22:06

cd7019 ha scritto:Ma, secondo Voi, esiste un metodo più semplice o più furbo?


Direi di sì, ma dovresti allegare il file.
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 424
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: filtrare una combobox

Postdi cd7019 » 09/05/14 17:10

EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38


Torna a Applicazioni Office Windows


Topic correlati a "filtrare una combobox":

combobox
Autore: bradice
Forum: Applicazioni Office Windows
Risposte: 8

Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti