Questione : script un ritrovamento della parola chiave e visualizzare i risultati dentro eccellono il foglio elettronico

Ciao gli esperti, il

I vogliono fare uno scritto/macro dentro eccellono dove cerca una parola chiave ed allora la visualizza in una cellula.

Currently ho base di dati enorme dei contatti e voglio fare funzionare una ricerca della scuola di parola chiave ed allora visualizzarlo in un campo. Così se una High School delle cellule, la scuola del nord, la scuola primaria ecc del san esso copino l'intero contenuto di questi cellula e passato esso in altra cellula. Tutti i risultati possono essere incollati in una cellula. l'aiuto del

Any notevolmente sarebbe apprezzato.

Thanks

Jedi class= del

Risposta : script un ritrovamento della parola chiave e visualizzare i risultati dentro eccellono il foglio elettronico

Questo codice restituisce la stringa a C1 (o ad una variabile di VBA). Lo lascia cambiare la colonna alla ricerca

Vedere la lima allegata

hth

Dave
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Opzione esplicita

strText di Const come stringa = “scuola„

ColSearch_DelRows secondario ()
    Rng1 fioco come gamma
    Cel fioco come gamma

    strFirstAddress fiochi come stringa
    lAppCalc fioco come lungamente
    strTmp fioco come stringa
 

    'Ottenere la gamma di funzionamento dall'utente
    Sull'errore riprendere dopo
    Regolar rng1 = Application.InputBox (“selezionare prego la gamma per cercare„ & lo strText, “selezione della gamma dell'utente„, Selection.Address (0, 0), 8)
    Sull'errore 0 di avanzamento
    Se rng1 è niente allora uscire il sommergibile



    Con l'applicazione
        lAppCalc =. Calcolo
        .ScreenUpdating = falso
        . Calcolo = xlCalculationManual
    Estremità con


    Regolar cel = rng1.Find (strText, rng1.Cells (rng1.Cells.Count), xlValues, xlPart, xlByRows, xlNext, falsi)

    Se non il cel allora è niente
        strFirstAddress = cel. Indirizzo
        strTmp = cel. Valore
        Fare
            Regolar cel = rng1.FindNext (cel)
         Se strFirstAddress <> cel. Richiamare allora lo strTmp = strTmp & vbCrLf & cel. Valore
        Collegare mentre strFirstAddress <> cel. Indirizzo
    Concluder se
    

    Con l'applicazione
        .ScreenUpdating = allineano
        . Calcolo = lAppCalc
    Estremità con
    
    strTmp di MsgBox
    [c1]. Valore = strTmp

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us