Cautare in list

[Dr.Windows]

Deja cred ca pot sa pun subiectul la "general use code"... mai ales ca acum am ajuns la versiunea "3"

Am adaugat un buton "Oriunde in text" care acum va face cautarea nu neaparat la inceputul sirului (implicit este pe "modelul vechi"):

IncrementalSearch-InStr.jpg

Si pentru a "reactiona" corect am modificat putin Sub txtlkSearch_KeyUp mai exact am "scos" codul de acolo si l-am pus intr-o procedura separata (ca sa o pot apela si atunci cand se face click pe optiunea proaspat adaugata) asa ca a rezultat o procedura de cautare "imbunatatita" (ExecIncSearch):

Cod: Selectaţi tot

Sub ExecIncSearch()
    frmlkIncrSearch.lstlkSearchList.Clear
    
    For Each oneString In myCollection
        If frmlkIncrSearch.chkInstring.Value = False Then
            If UCase(Mid(oneString, 1, Len(frmlkIncrSearch.txtlkSearch.Value))) = UCase(frmlkIncrSearch.txtlkSearch.Value) Then
                frmlkIncrSearch.lstlkSearchList.AddItem oneString
            End If
        Else
            If InStr(UCase(oneString), UCase(frmlkIncrSearch.txtlkSearch.Value)) Then
                frmlkIncrSearch.lstlkSearchList.AddItem oneString
            End If
        End If
    Next oneString
    
    frmlkIncrSearch.lstlkSearchList.SetFocus
    frmlkIncrSearch.txtlkSearch.SetFocus

End Sub

... in care nu este nimic deosebit - ci doar o bucla IF in care se face veriicarea daca este sau nu bifata optiunea "Oriunde in text" ca sa stie cum sa caute.

Atasat este exemplul complet.

[gelu.raducanu]

Multumesc, este super.

Problema cu de mai multe ori in lista se poate rezolva ?(am pus B4 de mai multe ori si mi-l arata in listbox, cand caut, tot o singura data)

[Dr.Windows]

Pai in care lista l-ai pus?... pentru ca in fereastra de cautare el iti arata valorile disponibile in lista de "Data Validation" (iar acolo ar trebui sa fie o singura data pentru ca este ilogic sa repeti valorile in lista de validare) - ca si valoare in tabelul pe care tu il completezi pe baza listei de validare poate sa apara de 1000 de ori - el il ia numai din lista de validare unde este o singura data.

[gelu.raducanu]

Corect. Stiu ca "Data Validation" asta face insa nu vreau sa folosesc "Data Validation". Vreau un cod care sa imi intoarca (in fereastra de cautare) o valoare de 5 ori daca de 5 ori e in lista.

[Dr.Windows]

Atunci doar trebuie modificata functia LoadList:

Cod: Selectaţi tot

Sub LoadList(ByVal cDVRange As String)
    Dim oneCell As Range
    Dim oneString As Variant
     
    For Each oneCell In Range(cDVRange)
        On Error Resume Next
            myCollection.Add Item:=oneCell.Value, key:=oneCell.Value
        On Error GoTo 0
    Next oneCell
     
    With frmlkIncrSearch.lstlkSearchList
        For Each oneString In myCollection
            .AddItem oneString
        Next oneString
    End With

End Sub

unde trebuie sa inlocuiesti linia

Cod: Selectaţi tot

myCollection.Add Item:=oneCell.Value, key:=oneCell.Value

cu

Cod: Selectaţi tot

myCollection.Add Item:=oneCell.Value

adica "dispare" key:=oneCell.Value care asigura "unicitatea" valorii in lista.

[adof]

cum pot apasa sageata de la lista derulantă fara mouse
ce tasta sau ce combinaţie de taste trebuie sa folosesc

[Ionel T.]

Alt+sageata jos

[adof]

multumesc
merge
şi apoi ca sa derulez merge cu sageata fara ALT

[Alyna_ct]

Sa inlocuiasca Data Validation sigur NU, asa cum a spus si Alexx, dar poate "dubla" data validation - mai exact folosit exact asa cum este modelul de mai sus poti ca pentru o celula sa ai data validation si optiunea "suplimentara" de "cautare incrementala" iar utilizatorul poate alege sa caute pana se plictiseste in lista lunga de la Data Validation sau apasa "combinatia magica" si poate cauta in ACEEASI lista putin mai repede...

Totul depinde de ce anume vrei sa faci mai exact... cum vrei sa o folosesti...

Buna seara, va rog daca se poate sa ma ajutati si pe mine sa creez aceasta " combinatie magica" pentru a selecta putin mai repede.
Mentionez ca sunt incepatoare in xls si din acest forum am invatat cate ceva

[Dr.Windows]

Pai mai rapid decat folosing varianta "ca add-in" de aici: Re: Cautare in list nu cred ca se poate - adica doar il salvezi undeva (acel fisier), il deschizi... si... gata...

Sau nu am inteles eu ce "combinatie magica" vrei sa faci?...