Tämä opetusohjelma osoittaa, kuinka Korvaa VBA -toimintoa käytetään tekstimerkkijonojen korvaamiseen.
Vaihda toiminto
VBA -korvaustoiminto palauttaa merkkijonon, jossa on tehty korvauksia. Valinnaisia parametreja käyttämällä uusi merkkijono voi alkaa alun määrittämästä kohdasta ja päättyy alkuperäisen merkkijonon loppuun.
VBA Korvaa Korvaa alimerkkijono
VBA -korvaustoimintoa voidaan käyttää korvaamaan mikä tahansa löydetty osajono, joka löytyy.
| 12345678910111213141516 | Osa KorvaaExample_1 ()MsgBox Replace ("ABCABCABC", "A", "!")'Tulos: "! EKr. EKr. EKr."MsgBox Replace ("Pidän vaaleanpunaisesta, punaisesta ja mustasta", "vaaleanpunainen", "violetti")"Tulos on:" Pidän violetista, punaisesta ja mustasta "MsgBox Replace ("A, B, C, A, B, C, A, B, C", ",", ",")'Tulos: "ABCABCABC"MsgBox Replace ("ABCABCABC", "ABC", "!")'Tulos on: "!!!"MsgBox Replace ("ABCABCABC", "ABc", "!")'Tulos on: "ABCABCABC"MsgBox Replace ("ABCABCABC", "ZBC", "!")'Tulos: "ABCABCABC"End Sub |
VBA Korvaa aloitusasento
VBA -korvaustoimintoa voidaan käyttää korvaamaan mikä tahansa löydetty osajono, joka löytyy. Jos annamme aloituspaikan, tulos olisi alkuperäisen merkkijonon osa tämän aloituspisteen jälkeen.
| 12345678910111213 | Ala KorvaaExample_2 ()MsgBox Replace ("ABCABCABC", "A", "123") 'Tulos on: "123BC123BC123BC"MsgBox Replace ("ABCABCABC", "A", "123", 2) 'Tulos: "BC123BC123BC"MsgBox Replace ("ABCABCABC", "A", "123", 7) 'Tulos on: "123BC"MsgBox Replace ("ABCABCABC", "A", "123", 8) 'Tulos: "BC"MsgBox Replace ("ABCABCABC", "ABC", "!@") 'Tulos on: "!@!@!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 2) 'Tulos on: "BC!@!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 6) 'Tulos: "C!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 7) 'Tulos on: "!@"MsgBox Replace ("ABCABCABC", "ABC", "!@", 8) 'Tulos: "BC"End Sub |
VBA Korvaa vain harvat esiintymät
VBA -korvaustoimintoa voidaan käyttää korvaamaan mikä tahansa löydetty osajono, joka löytyy. Voimme vaihtoehtoisesti päättää, kuinka monta esiintymää tulisi korvata.
| 123456789101112 | Sub ReplaceExample_3 ()MsgBox Replace ("ABCABCABC", "A", "12") 'Tulos: "12BC12BC12BC"MsgBox Replace ("ABCABCABC", "A", "12",, 1) 'Tulos on: "12BCABCABC"MsgBox Replace ("ABCABCABC", "A", "12",, 2) 'Tulos on: "12BC12BCABC"MsgBox Replace ("ABCABCABC", "A", "12",, 3) 'Tulos on: "12BC12BC12BC"MsgBox Replace ("ABCABCABC", "A", "12",, 5) 'Tulos on: "12BC12BC12BC"MsgBox Replace ("ABCABCABC", "A", "12", 3, 1)'Tulos: "C12BCABC"'Vaihdoimme A: n 12 kertaa 1 kerran alkuperäisen merkkijonon kohdasta 3 alkaen.End Sub |
VBA Korvaa kirjainkoko
Oletuksena VBA -korvaustoiminto erottaa isot ja pienet kirjaimet. Voit muuttaa tämän käyttäytymisen kirjainkoolla erottamattomaksi käyttämällä valinnaista parametria (vbTextCompare). Tässä tapauksessa sinun on myös määritettävä haun aloituskohta.
| 12345678910111213 | Sub ReplaceExample_4 ()MsgBox Replace ("ABcABCABc", "ABc", "12")'Tulos: "12ABC12"MsgBox Replace ("ABcABCABc", "ABc", "12",,, vbTextCompare)Tulos: "121212"'Kun käytämme vbTextCompare -ohjelmaa, meidän on lisättävä kaksi muuta valinnaista argumenttia:'aloita ja laskeMsgBox Replace ("ABcABCABcABc", "ABc", "12", 3, 1)'Tulos on: "cABC12ABc"'Aloitettiin paikasta 3 ja korvattiin ABC vain kerran.End Sub |
Voit myös suorittaa kirjainkoolla merkityksettömän korvaamisen lisäämällä Option Vertaa tekstiä -moduulin yläosaan:
| 1 | Vaihtoehto Vertaa tekstiä |
VBA Korvaa kaksoislainaukset
VBA -korvaustoiminto voi korvata lainausmerkin, jota käytetään merkkijonon alun ja lopun rajaamiseen.
VBA Chr -toiminto voi palauttaa merkin sen numerosarjasta.
| 1 | MsgBox Chr (34) 'Tulos on: " |
Tai
| 1 | MsgBox Chr (64) 'Tulos: @ |
Lainausmerkkejä voidaan käyttää VBA Replace -toiminnon sisällä käyttämällä ”” ”” tai VBA -toimintoa Chr (34).
| 12345678910111213 | Sub ReplaceExample_5 ()Dim StrEx merkkijononaStrEx = "AB" "AB" ""MsgBox StrExin tulos on: AB "AB"MsgBox Korvaa (StrEx, Chr (34), "12")'Tulos: AB12AB12MsgBox Replace (StrEx, "" "", "DQ")"Tulos on:" ABDQABDQ "End Sub |
VBA Korvaa katkoviiva solussa
VBA -korvaustoiminto voi löytää solun katkoviivan erikoismerkin ja poistaa sen tai korvata sen välilyönnillä. Katkoviivan erikoismerkki voidaan syöttää soluun näppäimistön pikanäppäimellä Alt+Enter, ja sitä voidaan käyttää VBA -koodissa sen merkkijoukon numeron kanssa käyttämällä VBA -toimintoa Chr (10).
| 1234567891011121314 | Sub ReplaceExample_6 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttuja'Lue solun A2 arvo laskentataulukon taulukosta 1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Alue ("A2"). Arvo'Alt+Enter -näppäimellä syötetty katkoviivan merkki on Chr (10) ja se on näkymätön.'Tämä koodirivi korvaa merkin välilyönnilläStrEx = Korvaa (StrEx, Chr (10), "")'Kirjoita korvattu arvo taulukon 1 taulukon soluun B2ThisWorkbook.Worksheets ("Sheet1"). Alue ("B2"). Arvo = StrExEnd Sub |
