Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Začnite zadaním nasledujúceho vytvoriť nový čiastkové postup VBA :
Private Sub cleanString ( )
2
vytvoriť a definovať premenné s reťazcami :
Dim StrVar As String
StrVar = " 2Remove čísla a znaky 432 * % z tohto string.33 "
3
Typ nasledujúce odstrániť medzery na začiatku a na konci reťazca :
StrVar = Trim ( StrVar )
Zadajte nasledujúce odstrániť " 33 " od konca reťazca :
StrVar = Left ( StrVar , Ľan ( StrVar ) - 2 )
4
Zadajte nasledujúci odstrániť " 2 " od začiatku reťazca :
StrVar = Right ( StrVar , Ľan ( StrVar ) - 1 )
5
Zadajte nasledujúci odstrániť " 432 * % " z reťazca :
StrVar = Nahradiť ( StrVar , " 432 * % " , " " )
6
Zadajte nasledujúce nahradiť dvojité medzery s jediným priestorom v reťazci :
StrVar = nahradiť ( StrVar , " " , " " )
7
Zobrazí okno s finálnou reťazec zadaním nasledujúceho :
MsgBox StrVar
klipart 8
typu " End Sub " na ukončiť postup a stlačte " F5 " spustiť kód VBA .