Frage : script eine Entdeckung des Schlüsselwortes und Resultate übertreffen innen Verteilungsbogen anzeigen

Hallo möchten Experten,

I einen Index/ein Makro tun übertreffen innen, wo es nach einem Schlüsselwort sucht und es dann in einer Zelle anzeigt.

Currently habe ich sehr große Datenbank der Kontakte und ich möchte eine Suche nach Schlüsselwortschule laufen lassen und sie in einem Feld dann anzeigen. So, wenn eine Highschool der Zelle, Nordschule, Heilig-Primärschule usw. es den gesamten Inhalt dieser Zelle und Vergangenheit es in einer anderen Zelle kopieren. Alle Resultate können in einer Zelle geklebt werden.

Any Hilfe geschätzt sehr.

Thanks

Jedi

Antwort : script eine Entdeckung des Schlüsselwortes und Resultate übertreffen innen Verteilungsbogen anzeigen

Dieser Code zurückbringt die Schnur zu C1 Schnur (oder zu einer VBA Variable). Er lässt Sie die Spalte zur Suche ändern

Angebrachte Akte sehen

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Wahl ausdrücklich

Const strText als Schnur = „Schule“

VorColSearch_DelRows ()
    Schwaches rng1 als Strecke
    Schwacher cel als Strecke

    Schwache strFirstAddress als Schnur
    Schwaches lAppCalc als lang
    Schwaches strTmp als Schnur
 

    'Arbeitsstrecke vom Benutzer erhalten
    Auf Störung zunächst wieder.aufnehmen
    Einstellen rng1 = Application.InputBox („Strecke, um nach zu suchen“ u. strText bitte vorwählen, „Benutzerstreckenvorwähler“, Selection.Address (0, 0), 8)
    Auf Störung Goto- 0
    Wenn rng1 nichts dann ist, Unterseeboot herausnehmen



    Mit Anwendung
        lAppCalc =. Berechnung
        .ScreenUpdating = falsch
        . Berechnung = xlCalculationManual
    Ende mit


    Einstellen cel = rng1.Find (strText, rng1.Cells (rng1.Cells.Count), die xlValues, xlPart, xlByRows, xlNext, falsch)

    Wenn nicht cel nichts dann ist
        strFirstAddress = cel. Adresse
        strTmp = cel. Wert
        Tun
            Einstellen cel = rng1.FindNext (cel)
         Wenn strFirstAddress <> cel. Dann strTmp = strTmp u. vbCrLf u. cel adressieren. Wert
        Schlingen während strFirstAddress <> cel. Adresse
    Beenden wenn
    

    Mit Anwendung
        .ScreenUpdating = ausrichten en
        . Berechnung = lAppCalc
    Ende mit
    
    MsgBox strTmp
    [c1]. Wert = strTmp

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us