Visual Basic for Applications (VBA ) ist eine Programmiersprache, die von Microsoft entwickelt, die die Entwicklung von benutzerdefinierten Funktionen und die Automatisierung bestimmter Prozesse und Berechnungen ermöglicht . VBA bietet eine gemeinsame Sprache für die Anpassung von Microsoft-Anwendungen . Er hat zwei Funktionen namens "text ", und sie sind beide in Excel. Eine Text -Funktion ist Teil der " WorksheetFunctions " Objekt, das eine Sammlung von Formeln in der " Formeln" Registerkarte . Die andere Funktion ist ein Mitglied der Comment-Eigenschaft , die die Kommentare in einer Zelle einer Tabelle darstellt. Das Verständnis der " WorksheetFunction " Text -Funktion können Sie Format Zahlen als Währung , Termine und viele andere Formate. Das Verständnis der Comment-Eigenschaft Text- Funktion können Sie Kommentare hinzufügen , um Zellen . Übersicht WorksheetFunction Text
Das Arbeitsblatt Text Funktion wandelt eine Zahl in einen String im Format Sie angeben. Zum Beispiel, wenn Sie eine Zahl als Prozentsatz angezeigt werden soll, könnten Sie eine Aussage wie " formattedString = WorksheetFunction.Text ( someNumber , " 0% " ) . " Wenn die Variable " someNumber " gleich 3 , dann " formattedString " halten " 300% " nach dem Ausführen dieses Text -Funktion. Das zweite Argument dieser Funktion hält das gewünschte Format , um zum ersten Argument gelten . Sie können eine Liste der gültigen Formatierungszeichenfolgen indem Sie auf die "Custom "-Kategorie der "Nummer" auf der Registerkarte " Zellen formatieren " Dialogfeld .
Beispielprogramm für WorksheetFunction Text
Verwenden Sie einen Beispiel-Programm , um zu verstehen , wie die WorksheetFunction.Text Funktion arbeitet . Die folgende Programm formatiert eine Zahl, die Sie als Prozentsatz angeben . Führen Sie das Programm durch Einfügen seine Aussagen in den VBA -Programmierumgebung , dann die Taste "F5 ".
Public Sub texttest () Dim
numStr As String Dim
InputNumber
InputNumber = InputBox (" Geben Sie eine Zahl zu formatieren als Prozentsatz . " )
numStr = WorksheetFunction.Text ( InputNumber , "0%" )
MsgBox " Die formatierte Zahl wird " & numStr
End Sub
Übersicht Kommentieren Text Funktion
Die Text -Funktion des Comment-Eigenschaft können Sie einen Text Kommentar zu einer Zelle . Bevor Sie diese Funktion verwenden Sie die AddComment Methode, um einen Kommentar Eigentum zu schaffen . Beachten Sie, dass keines dieser Funktion drei Argumente benötigt werden. In der Praxis jedoch , geben Sie eine Zeichenfolge für den ersten Wert auf den gewünschten Text für den Kommentar anzuzeigen.
Beispielprogramm zum Kommentieren Text Funktion
Erfahren Sie , wie Sie mit die Text -Funktion des Comment-Eigenschaft , indem Sie versuchen ein Beispielprogramm . Das folgende Programm fügt einen Kommentar zu der aktuell ausgewählten Zelle im aktiven Arbeitsblatt , dann nutzt die Text -Funktion , Text in diesem Kommentar einfügen .
Sub AddComment ()
ActiveCell.AddComment
ActiveCell.Comment.Text " Diese Zelle wurde mit den" Least Squares "-Methode berechnet . "
End Sub
