Wie man Text in Spalten Verwenden Sie über mehrere Spalten in VBA

Mitglieder-Login

InformationenVisual Basics Programmierung

Wie man eine Funktion in VBA aufruf… Visual Basic für Applikationen ( VBA) ist Microsofts ereignisgesteuerte Programmiersprache, die mit
Der Kodex , eine Reihe von Elemente… Ein ListBox-oder Drop-down- Menü zeigt eine Liste der Elemente in einer Gruppe . Jeder ListBox-Steue
Wie man ein Minimieren -Knopf zu ei… Die Möglichkeit, ein Formular in Visual Basic zu minimieren können Sie Ihre Anwendung noch benutzerf
Wie man einen vollständigen Pfad i… Bei der Programmierung für die Datei- Ein-und Ausgang , müssen Sie wissen, die vollständige Anwendun

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie man Text in Spalten Verwenden Sie über mehrere Spalten in VBA

Mit Excel VBA Makro-Rekorder , um ein Programm, das eine einzelne Spalte teilt sich in mehrere Spalten zu machen, bedeutet nicht viel mehr als einem einzigen Mausklick . Splitting mehrere Spalten stellt ein Problem dar , die erste Spalte Trennung werden Sie den gewünschten Text in den nachfolgenden Spalten aufgeteilt überschreiben. Aus diesem Grund wird die " TextToColumn "-Funktion eine Fehlermeldung anstatt spaltete die Spalte. Durch die Staffelung der Inhalte auf mehrere Zeilen aufgeteilt werden , verhindern Sie, dass dies geschieht . Anleitung
1

Klicken Sie auf " Visual Basic " in der Registerkarte Entwickler , um die VBA -Programmierumgebung , die Sie schreiben und debuggen VBA -Programme können in Kraft.
2

Klicken Sie auf die Registerkarte "Einfügen" die "Module" Element, um ein neues Fenster zu erstellen Programme geben . VBA schaffen das Fenster.
3

Fügen Sie das folgende Programm in das Fenster . Dieses Programm verwendet die " TextToColumns "-Funktion , um Text durch Leerzeichen voneinander getrennt sind . Die "Data Type" Argument erzählt die Funktion, die Sie Text auf einem besonderen Charakter basiert im Text aufgeteilt , anstatt auf der Grundlage einer festen Anzahl von Zeichen pro Spalte wollen . Die "Space "-Argument der Funktion wird auf "True " gesetzt, das anzeigt , dass Excel sollte den Text auf der "Space "-Zeichen , aufgeteilt .

Public Sub TextToColumnsMultiple ()

Dim col, x

For Each col In Selection.Columns

Set x = col

x.Select

Selection.TextToColumns Datentyp: = xlDelimited , _

TEXTQUALIFIER : = xlDoubleQuote , ConsecutiveDelimiter : = True , Tab: = False , _

Semikolon : = False , Comma : = False , Raum : = True , Other : = False , TrailingMinusNumbers : = _

Wahre

Weiter

End Sub
4

Klicken Sie auf den "Excel "-Symbol auf der Windows-Taskleiste , um zu Excel zurückzukehren, geben Sie dann ein Satz mit mindestens zwei durch Leerzeichen getrennte Wörter in einer Arbeitsblatt-Zelle . Geben Sie eine weitere solche Strafe in der Zelle, die eine nach unten und eine auf der rechten Seite der ersten Zelle ist .
5

Klicken Sie auf die erste Zelle , um sie auszuwählen , drücken und halten Sie die Strg-Taste , um Excel sagen, Sie wollen um mehr als eine Zelle auszuwählen.
6

Klicken Sie auf die Registerkarte "Entwicklertools" der " Visual Basic " -Taste, um eine Liste von Programmen angezeigt werden . Doppelklicken Sie auf das " TextToColumnsMultiple " Artikel , um das Programm auszuführen. Die Sätze, die Sie eingegeben haben nun in mehrere Spalten aufgeteilt , mit einer Spalte pro Wort .