Ako nájsť znak v reťazci v jazyku VBA

Hľadanie jeden znak v reťazci pomocou VBA je špeciálny inštancie nájsť jeden reťazec do druhého . Samotný proces používa len jedno jazyka slovo , instr , ktorý hľadá textu pre konkrétny reťazec , alebo jeden znak v tomto príklade . Treba Zvyšok kódu , aby vstup od užívateľa a zobrazenie výsledkov . Tento proces používa metódu hľadania veľké a malé písmená , to znamená , že sa to tu malé a veľké písmená . Pokyny dovolená 1

Otvorte jednu z aplikácií balíka Microsoft Office , ktoré používajú jazyk VBA ( Visual Basic for Applications ) a už obsahovať nejaký text . Kliknite na " Developer " v hornom menu a potom " Visual Basic " , ktorý bude uvedený v druhej rade možností. Tým sa otvorí okno editácie VBA .
2

Zadajte nasledujúce riadky v prázdne okno .

Sub FindCharacter ( ) Dim KnownString , SoughtCharacter , nájdený ako StringDim Umiestnenie , i , nastavte ako IntegerKnownString = InputBox ( " Zadajte alebo skopírujte a vložte text , ktorý chcete hľadať tu " ) SoughtCharacter = InputBox ( " Zadajte znak tu hľadali " ) Location = Instru ( 1 , KnownString , SoughtCharacter , vbTextCompare ) Nastavte = 10For i = 1 až ľan ( KnownString ) Ak je miesto < Nastavenie ThenAdjust = Nastavenie /5End nNejsou ak i = Umiestnenie ThenFound = Mid ( KnownString , Lokalita - Nastavte , Kotvište + Adjust ) MsgBox " Toto je prvý výskyt " & vbCrLf & SoughtCharacter & , " v kontexte " & vbCrLf & " ' " & Found & " ' " End IfNext Iend Návrat
3

Znížiť pravej strane nasledujúce linka by hľadal postavu vo veľmi krátkych úsekov texte :

Nastavte = 10

to urobiť , pretože projekt je nastavený na zobrazenie predvolený počet znakov na oboch stranách žiadané charakter . Ak reťazec je príliš krátky , program ohlási chybu .
4

Kliknite na " makrá " v sekcii pre vývojárov dokumentu programu Word a toto makro spustiť , aby videli , ako to funguje . Ak makro zlyhá , skontrolujte svoju prácu z vyššie uvedených smerov .

• Predchádzajúca strana: Ako môžem Kliknite na bunku otvoriť iný list 
• Ďalšia strana: Ako spúšťať makrá na mobilné výberu