Nájsť a nahradiť funkciu vo VBA
Ak vaša práca v programe Excel zahŕňa rutinné úlohy, ako niečo nájsť a nahradiť niečím, potom tento článok potrebujete za každú cenu. Pretože po prečítaní tohto článku by ste pravdepodobne naučením tejto techniky kódovania VBA ušetrite 80% svojho času. Vyhľadanie a nahradenie v programe Excel je často používaný nástroj a to isté môžeme implementovať aj s VBA. V našom staršom článku „Vyhľadanie VBA“ sme vám ukázali, ako používať metódu FIND vo VBA. V tomto článku si ukážeme, ako používať metódu VBA „Nájsť a nahradiť“.
Postupujte podľa článku a naučte sa túto techniku.
VBA Nájsť a nahradiť syntax
Ak chcete vo VBA použiť metódu Nájsť a nahradiť, musíme postupovať podľa nasledujúcich krokov. Najskôr sme vybrali rozsah buniek, tak spomeňme rozsah buniek pomocou objektu RANGE vo VBA.
Teraz vložte bodku (.), Aby ste videli zoznam IntelliSense.
V zozname vyberte metódu Nahradiť.
Vidíme obrovský zoznam parametrov metódy Replace. Teraz uvidíme vysvetlenie každého parametra nižšie.
- Čo: Toto nie je nič iné ako to, čo musíme nájsť, aby sme nahradili hodnotu.
- Nahradenie: S nájdenou hodnotou by mala byť nová hodnota nahradená.
- Pozrite sa na: Toto je zmienka o tom, či sa chceme pozrieť na celý obsah alebo iba na jeho časť. Tu môžeme dodať dva parametre „xlWhole“ a „xlPart.“
- Poradie hľadania: Toto je zmienka o poradí hľadania, či už v riadkoch alebo stĺpcoch. Tu môžeme dodať dva parametre „xlByRows“ a „xlByColumns.“
- Rozlišovať malé a veľké písmená : V obsahu, ktorý hľadáme, sa rozlišujú malé a veľké písmená. Ak je argument citlivý na veľké a malé písmená TRUE alebo FALSE.
- Formát vyhľadávania: Môžeme tiež prehľadávať obsah podľa formátovania hodnoty, ktorú hľadáme.
- Nahradiť formát: Jeden formát môžeme nahradiť tiež iným formátom.
Príklady hľadania a nahradenia VBA v programe Excel
Ďalej uvádzame niekoľko príkladov metódy Excel VBA na vyhľadanie a nahradenie.
Príklad č. 1 - Nájdenie a nahradenie slova VBA
Dobre, pozrime sa na nasledujúci príklad, aby sme pochopili metódu vyhľadávania a nahradenia VBA. Zoznámte sa s nasledujúcimi údajmi.
Krok 1: Najskôr uveďte rozsah buniek, ktoré nahrádzame. V tomto príklade je Rozsah od A1 do B15, takže kód bude Range („A1: B15“).
Kód:
Sub Replace_Example1 () Range ("A1: B15") End Sub
Krok 2: Teraz vložte bodku, aby ste videli zoznam IntelliSense.
Krok 3: Vyberte metódu Nahradiť zo zoznamu IntelliSense.
Krok 4: Uveďte, aký parameter je „september“.
Kód:
Rozsah („A1: B15“). Nahradiť Čo: = „September“
Krok 5: Ďalej, Nahradiť parametrom by mala byť naša nová hodnota, ktorú nahradíme napr. „December“.
Kód:
Rozsah („A1: D4“). Čo nahradiť: = „september“, Výmena: = „december“
Ok, odteraz ignorujte všetky ostatné parametre. Teraz spustite kód VBA, aby ste videli spôsob výmeny za VBA.
Celý september teda nahradil slovom „december“.
Príklad č. 2 - Výmena malých a veľkých písmen
Pokročilejším príkladom metódy VBA Find & Replace bude použitie metódy výmeny veľkých a malých písmen. Pre tento príklad som vytvoril tieto vzorové údaje, ako je znázornené na nasledujúcom obrázku.
Máme dve údaje o bunkách veľkými písmenami „AHOJ.“ Kdekoľvek máme veľké slovo „AHOJ“, malo by sa nahradiť novým slovom „Hiii“.
Ako obvykle napíšte kód, najskôr uveďte, čo treba nájsť a čo nahradiť.
Kód:
Sub Replace_Example2 () Range ("A1: D4"). Replace What: = "HELLO", Replacement: = "Hiii" End Sub
Teraz pre ďalší argument „Zhoda veľkých a malých písmen“ napíšte podmienku ako PRAVDA.
Kód:
Rozsah ("A1: D4"). Nahradiť Čo: = "AHOJ", Nahradiť: = "Hiii", MatchCase: = Pravda
Teraz spustite kód. Nahradí iba hlavné mesto „HELLO“ výrazom „Hiii“.
Predstavte si, že ste vo VBA nepoužili argument Match Case, ktorý nahradí všetky výrazy „Dobrý deň“ výrazom „Hiii“.
Poznámka: Tu som odstránil argument Match Case. Predvolene je hodnota argumentu MATCH CASE FALSE.
Ako vidíme na obrázku vyššie, nahradil všetky slová „ahoj“ slovami „hiii“.
Takže kedykoľvek chceme použiť kritériá MATCH CASE, mali by sme použiť argument ako „TRUE“ a v predvolenom nastavení je hodnota tohto argumentu „FALSE“. Takto môžeme pomocou metódy „NÁJDIŤ A VYMENIŤ“ niečo nájsť a nahradiť nájdenú hodnotu niečím iným.
