Ako používať text do stĺpca na viacerých stĺpcov v jazyku VBA

Použitie programu Excel VBA záznam makra vytvoriť program , ktorý rozdelí jeden stĺpec do viacerých stĺpcov znamená nie viac ako jediným kliknutím myši . Rozdelenie viac stĺpcov predstavuje problém , separácia v prvom stĺpci bude prepísať text , ktorý chcete rozdeliť do nasledujúcich stĺpcoch . Z tohto dôvodu bude funkcia " TextToColumn " zobrazí chybové hlásenie , skôr ako rozdeliť stĺpec . Omračujúce obsah musí byť rozdelený na viac riadkov , môžete tomu zabránili . Pokyny dovolená 1

Kliknite na tlačidlo " Visual Basic " na karte Vývojár sa vstúpiť do programovacieho prostredia VBA , ktorý vám umožní písať a ladiť programy VBA .
2

Kliknite " Vložiť " kartu je " Modul " položku , ktorú chcete vytvoriť nové okno pre zadanie programov . VBA vytvorí okno .
3

vložte nasledujúci program do okna . Tento program používa " TextToColumns funkciu " rozdeliť text , oddelené medzerami . Argument " dátový typ " hovorí funkciu , ktorú chcete rozdeliť text na základe určitého znaku v texte , skôr než na fixný počet znakov na stĺpce . Argument " priestor " tejto funkcie je nastavená na hodnotu " To je pravda , " čo znamená , že program Excel sa mali rozdeliť text na základe " Space " charakteru .

Public Sub TextToColumnsMultiple ( )

Dim col , x

každý sl V Selection.Columns

Set x = col

x.Select

Selection.TextToColumns Typ dát : = xlDelimited , _

TextQualifier : = xlDoubleQuote , ConsecutiveDelimiter : = tRUE , Tab : = False , _

bodkočiarku : = False , Comma : = False , Space : = true , Ostatné : = False , TrailingMinusNumbers : = _

Sk True

Ďalšie

End Sub
4

Kliknite na ikonu " Excel " na paneli úloh systému Windows sa vráťte do programu Excel , zadajte veta s najmenej dvoma priestorovo oddelené slov v každom liste bunku . Zadajte ďalšie takú vetu v bunke , ktorá je raz dole a jeden napravo od prvej bunky .
5

Kliknite na prvú bunku , vyberte ho a potom stlačte a podržte kláves Ctrl povedať Excel chcete vybrať viac ako jednu bunku .
6

Kliknite na tlačidlo " Developer " kartu je " Visual Basic " , zobrazí sa zoznam programov . Double - kliknite na " TextToColumnsMultiple " položku , ktorú chcete spustiť tento program . Vety ste zadali , sú teraz rozdelené do viacerých stĺpcov , s jedným stĺpcom za slovom .

• Predchádzajúca strana: Ako Spustiť HTA súbor z VBScript 
• Ďalšia strana: Ako si vyrobiť Keygen vo VB6