Tämä opetusohjelma osoittaa, kuinka Trim-, LTrim- ja RTrim VBA -toimintoja sekä Trim -laskentataulukkotoimintoa käytetään.
Leikkaustoiminto
VBA -leikkaustoiminto poistaa (”leikkaa”) virheelliset välilyönnit ennen tekstimerkkijonoja ja niiden jälkeen.
Leikkaa välilyöntejä ennen ja jälkeen tekstin
VBA -leikkaustoiminto poistaa välilyöntejä ennen tekstimerkkijonoja ja niiden jälkeen:
| 12345678910 | AlaleikkausEsimerkki_1 ()MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
Leikkaa useita välilyöntejä ennen ja jälkeen tekstin
Tämä sisältää useiden välilyöntien leikkaamisen ennen ja jälkeen tekstin:
| 12345678910 | AlaleikkausEsimerkki_2 ()MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
VBA Trim EI poista useita välilyöntejä sanojen välillä
Leikkaustoiminto ei kuitenkaan poista useita välilyöntejä sanojen välistä:
| 12345678910 | AlaleikkausEsimerkki_3 ()MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox Trim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
Leikkaa laskentataulukko -funktiona
Excel Trim -laskentataulukkotoimintoa voidaan kuitenkin käyttää sanojen välisten ylimääräisten välilyöntien poistamiseen:
Käytä laskentataulukon leikkaustoimintoa VBA: ssa
Jos haluat käyttää Excel -leikkaustoimintoa VBA: ssa, kutsu se käyttämällä WorksheetFunction -toimintoa:
| 12345678910 | AlaleikkausEsimerkki_4 ()Msgbox WorksheetFunction.Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox WorksheetFunction.Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox WorksheetFunction.Trim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
Oletko kyllästynyt etsimään esimerkkejä VBA -koodista? Kokeile AutoMacroa!
Ero WorksheetFunction.Trim ja VBA Trim
Tämä osoittaa Trim- ja WorksheetFunction -toimintojen väliset erot.
| 1234567891011121314151617 | AlaleikkausEsimerkki_5 ()Msgbox WorksheetFunction.Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox WorksheetFunction.Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox WorksheetFunction.Trim ("I love excel")"Tulos on:" Rakastan exceliä "Msgbox Trim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
Käytä VBA: ta trimmaustoiminnon lisäämiseen alueelle
Leikkaa laskentataulukko -toiminto voidaan lisätä alueeseen käyttämällä ominaisuutta.
| 123 | AlaleikkausEsimerkki_6 ()ThisWorkbook.Worksheets ("Sheet1"). Alue ("B1"). Formula = "= trim (A1)"End Sub |
LTrim -toiminto
LTrim -toiminto poistaa välilyönnit vain sanan vasemmalta puolelta:
| 12345678910111213141516171819 | AlaleikkausEsimerkki_7 ()MsgBox LTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox LTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox LTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox LTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox LTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox LTrim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
RTrim -toiminto
RTrim -toiminto poistaa välilyönnit vain sanan oikealta puolelta:
| 12345678910111213141516171819 | AlaleikkausEsimerkki_8 ()MsgBox RTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox RTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox RTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox RTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox RTrim ("I love excel")"Tulos on:" Rakastan exceliä "MsgBox RTrim ("I love excel")"Tulos on:" Rakastan exceliä "End Sub |
Trim, Ltrim ja Rtrim eivät poista sanojen välistä välilyöntejä.
Poista kaikki välilyönnit tekstistä
Leikkaus poistaa vain ylimääräiset välilyönnit sanojen välistä, mutta voit poistaa kaikki välilehdet tekstimerkkijonosta käyttämällä Korvaa -toimintoa:
| 1234 | Osa KorvaaEsimerkki ()MsgBox Replace ("I love excel", "", "")'Tulos: "Iloveexcel"End Sub |
