Šī apmācība parādīs, kā izmantot apgriešanas, LTrim un RTrim VBA funkcijas, kā arī darblapas apgriešanas funkciju.
Apgriešanas funkcija
VBA apgriešanas funkcija noņem (“apgriež”) kļūdainas atstarpes pirms un pēc teksta virknēm.
Apgrieziet atstarpes pirms un pēc teksta
Funkcija VBA apgriešana noņems atstarpes pirms un pēc teksta virknēm:
12345678910 | Apakšējais apgriešanaPiemērs_1 ()MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
Apgrieziet vairākas atstarpes pirms un pēc teksta
Tas ietver vairāku atstarpju apgriešanu pirms un pēc teksta:
12345678910 | Apakšējā apdarePiemērs_2 ()MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
VBA apgriešana nenoņems vairākas atstarpes starp vārdiem
Tomēr apgriešanas funkcija nenoņems vairākas atstarpes starp vārdiem:
12345678910 | PapildaprīkojumsPiemērs_3 ()MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
Apgriezt kā darblapas funkciju
Tomēr Excel apgriešanas darblapas funkciju var izmantot, lai noņemtu papildu atstarpes starp vārdiem:
Izmantojiet darblapas apgriešanas funkciju VBA
Lai izmantotu Excel apgriešanas funkciju VBA, izsauciet to, izmantojot darblapas funkciju:
12345678910 | Apakšējais apgriešanaPiemērs_4 ()Msgbox darblapas funkcija.Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox WorksheetFunction.Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox WorksheetFunction.Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
Atšķirība starp WorksheetFunction.Trim un VBA Trim
Tas parādīs atšķirības starp apgriešanu un darblapas funkciju. Trim:
1234567891011121314151617 | Apakšējā apdarePiemērs_5 ()Msgbox darblapas funkcija.Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox WorksheetFunction.Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox WorksheetFunction.Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Msgbox Trim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
Izmantojiet VBA, lai diapazonā pievienotu apgriešanas funkciju
Funkciju Apgriezt darblapu var pievienot diapazonā, izmantojot rekvizītu. Formula:
123 | PapildaprīkojumsPiemērs_6 ()ThisWorkbook.Worksheets ("Sheet1"). Diapazons ("B1"). Formula = "= apdare (A1)"Beigu apakš |
Funkcija LTrim
Funkcija LTrim noņem atstarpes tikai no vārda kreisās puses:
12345678910111213141516171819 | Apakšējais apgriešanaPiemērs_7 ()MsgBox LTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox LTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox LTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox LTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox LTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox LTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
RTrim funkcija
Funkcija RTrim noņem atstarpes tikai no vārda labās puses:
12345678910111213141516171819 | Apakšējā apdarePiemērs_8 ()MsgBox RTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox RTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox RTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox RTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox RTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"MsgBox RTrim ("Es mīlu Excel")Rezultāts: "Man patīk Excel"Beigu apakš |
Trim, Ltrim un Rtrim nenoņem atstarpes starp vārdiem.
No teksta noņemiet visas atstarpes
Apgriešana noņems tikai papildu atstarpes starp vārdiem, bet, lai noņemtu visas atstarpes teksta virknē, varat izmantot funkciju Aizstāt:
1234 | Sub aizstātPiemērs ()MsgBox Replace ("I love excel", "", "")Rezultāts: "Iloveexcel"Beigu apakš |