Question : script une trouvaille de mot-clé et montrer les résultats excellent dedans le bilan

Salut les experts, le

I veulent faire un manuscrit/macro excellent dedans où il recherche un mot clé et puis le montre dans une cellule. le

Currently j'ai la base de données énorme des contacts et je veux courir une recherche d'école de mot clé et puis la montrer dans un domaine. Ainsi si un lycée de cellules, l'école du nord, l'école primaire etc. de saint il copieront le contenu entier de ces cellule et passé il en une autre cellule. Tous les résultats peuvent être collés en une cellule. l'aide du

Any serait considérablement appréciée.

Thanks

Jedi class= de

Réponse : script une trouvaille de mot-clé et montrer les résultats excellent dedans le bilan

Ce code renvoie la corde à C1 (ou à une variable de VBA). Il vous laisse changer la colonne en recherche

Voir le dossier ci-joint

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 :

Option explicite

strText de Const comme corde = « école »

ColSearch_DelRows secondaire ()
    Faible rng1 comme gamme
    Faible cel comme gamme

    Faibles strFirstAddress comme corde
    Faible lAppCalc en tant que longtemps
    Faible strTmp comme corde
 

    'Obtenir la gamme fonctionnante de l'utilisateur
    Sur l'erreur reprendre après
    Placer rng1 = Application.InputBox (« choisir svp la gamme pour rechercher » et le strText, « choix de chaîne d'utilisateur », Selection.Address (0, 0), 8)
    Sur l'erreur 0 GoTo
    Si rng1 n'est rien puis sortir le sous-marin



    Avec l'application
        lAppCalc =. Calcul
        .ScreenUpdating = faux
        . Calcul = xlCalculationManual
    Extrémité avec


    Placer cel = rng1.Find (strText, rng1.Cells (rng1.Cells.Count), xlValues, xlPart, xlByRows, xlNext, faux)

    Sinon le cel n'est rien alors
        strFirstAddress = cel. Adresse
        strTmp = cel. Valeur
        Faire
            Placer cel = rng1.FindNext (le cel)
         Si strFirstAddress <> cel. Adresser alors le strTmp = le strTmp et le vbCrLf et le cel. Valeur
        Faire une boucle tandis que les strFirstAddress <> cel. Adresse
    Finir si
    

    Avec l'application
        .ScreenUpdating = rectifient
        . Calcul = lAppCalc
    Extrémité avec
    
    strTmp de MsgBox
    [c1]. Valeur = strTmp

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us