Poišči in zamenjaj funkcijo v VBA
Če vaše delo v Excelu vključuje rutinske naloge, da nekaj najdete in nadomestite z nečim, potem ta članek potrebujete za vsako ceno. Ker bi po branju tega članka z učenjem te tehnike kodiranja VBA verjetno prihranili 80% svojega časa. Najdi in zamenjaj v Excelu je pogosto uporabljeno orodje, isto pa lahko uporabimo tudi pri VBA. V prejšnjem članku »VBA Find« smo vam pokazali, kako uporabljati metodo FIND v VBA. V tem članku vam bomo pokazali, kako uporabljati metodo VBA »Poišči in zamenjaj«.
Sledite članku, če se želite naučiti te tehnike.
VBA Najdi in zamenjaj sintakso
Za uporabo metode Najdi in zamenjaj v VBA moramo slediti spodnjim korakom. Najprej smo izbrali obseg celic, zato omenite obseg celic z uporabo predmeta RANGE v VBA.
Zdaj postavite piko (.), Da se prikaže seznam IntelliSense.
Na seznamu izberite metodo Zamenjaj.
Vidimo lahko ogromen seznam parametrov metode Zamenjaj. Zdaj bomo spodaj videli razlago vsakega parametra.
- Kaj: To ni nič drugega kot tisto, kar moramo najti, da nadomestimo vrednost.
- Zamenjava: Pri najdeni vrednosti naj bo nova vrednost, ki jo je treba zamenjati.
- Poglejte: S tem želimo omeniti, ali želimo pogledati celotno vsebino ali samo njen del. Tu lahko vnesemo dva parametra "xlWhole" in "xlPart."
- Vrstni red iskanja: Tu naj omenimo vrstni red iskanja, bodisi vrstice ali stolpce. Tu lahko vnesemo dva parametra "xlByRows" in "xlByColumns."
- Primer velikih črk : Vsebina, ki jo iščemo, razlikuje med velikimi in malimi črkami. Če je argument, ki razlikuje med velikimi in malimi črkami, TRUE ali pa FALSE.
- Format iskanja: Vsebino lahko iščemo tudi po oblikovanju vrednosti, ki jo iščemo.
- Zamenjaj obliko: en format lahko nadomestimo tudi z drugim.
Primeri iskanja in zamenjave VBA v Excelu
Spodaj je nekaj primerov metode Excel VBA Find and Replace.
Primer # 1 - VBA poiščite in zamenjajte besedo
V redu, poglejmo si naslednji primer, da bomo razumeli način iskanja in zamenjave VBA. Oglejte si naslednje podatke.
1. korak: Najprej omenimo obseg celic, ki jih nadomeščamo. V tem primeru je obseg od A1 do B15, zato bo koda Range (“A1: B15”).
Koda:
Sub Replace_Example1 () Obseg ("A1: B15") Konec Sub
2. korak: Zdaj postavite piko, da se prikaže seznam IntelliSense.
3. korak: Na seznamu IntelliSense izberite metodo Zamenjaj.
4. korak: Omenite, kateri parameter je »september«.
Koda:
Obseg ("A1: B15"). Zamenjaj What: = "September"
5. korak: Nato naj bo nova vrednost, ki jo nadomestimo s parametrom, nova vrednost, ki jo nadomestimo z tj. »December«.
Koda:
Obseg ("A1: D4"). Zamenjaj What: = "September", Zamenjava: = "December"
V redu, od zdaj prezri vse ostale parametre. Zdaj zaženite kodo VBA in si oglejte nadomestni način z VBA.
Torej je ves september nadomestil z besedo "december".
Primer # 2 - Zamenjava glede na velike in male črke
Naprednejši primer metode VBA Find & Replace bo uporaba nadomestne metode, ki upošteva velike in male črke. Za ta primer sem ustvaril te vzorčne podatke, kot je prikazano na spodnji sliki.
Podatka o celicah imamo z velikimi tiskanimi črkami, "POZDRAV." Kjer koli imamo glavno besedo "HELLO", jo je treba nadomestiti z novo besedo "Hiii."
Kot običajno napišite kodo, omenite, kaj najti in kaj najprej zamenjati.
Koda:
Sub Replace_Example2 () Obseg ("A1: D4"). Zamenjaj What: = "HELLO", Replacement: = "Hiii" End Sub
Zdaj pa za naslednji argument »Match Case« napišite pogoj kot TRUE.
Koda:
Obseg ("A1: D4"). Zamenjaj What: = "HELLO", Zamenjava: = "Hiii", MatchCase: = True
Zdaj zaženite kodo. Nadomeščal bo samo veliko »HELLO« s »Hiii«.
Predstavljajte si, da v VBA niste uporabili argumenta Match Case, potem bo nadomestil vse »Hello« v »Hiii«.
Opomba: Tu sem odstranil argument Primer ujemanja. Privzeto je vrednost argumenta MATCH CASE FALSE.
Kot lahko vidimo na zgornji sliki, je vse besede "zdravo" nadomestilo s "hiii".
Torej, kadar želimo uporabiti merila MATCH CASE, moramo uporabiti argument kot »TRUE«, privzeto pa je ta vrednost »FALSE«. Tako lahko z metodo »FIND & REPLACE« poiščemo nekaj in najdeno vrednost nadomestimo z nečim drugim.
