Inverse CHR-Funktion in Excel VBA: Anwendungsbeispiele und Methodenbeschreibung

Visual Basic Applications (VBA) in Excel bietet eine Vielzahl von Funktionen, mit denen Sie Daten verwalten und verschiedene Operationen für Zellen und Bereiche ausführen können. Eine solche Funktion ist die CHR-Funktion, eine umgekehrte ASCII-Zeichenidentifikation.

Die Funktion CHR akzeptiert einen ganzzahligen Wert als Argument und gibt ein Zeichen zurück, das dieser Zahl in einer ASCII-Tabelle entspricht. Das Ergebnis der Funktion ist eine Zeichenfolge.

In diesem Artikel werden wir Beispiele für die Verwendung der CHR-Funktion in VBA Excel betrachten und ihre Methoden ausführlich beschreiben. Wir werden lernen, wie man die Funktion CHR verwendet, um eine Zahl in ein Zeichen zu konvertieren und sie für verschiedene Datenverarbeitungsaufgaben anzuwenden.

Wenn wir zum Beispiel einen numerischen Wert in das Zeichen "A" konvertieren und zu einer bestimmten Zelle hinzufügen müssen, können wir die Funktion CHR verwenden.

In diesem Artikel erfahren Sie, wie Sie die CHR-Funktion in Excel VBA verwenden und welche Methoden sie für die Datenverarbeitung anbietet. Wir werden auch praktische Beispiele für die Verwendung der CHR-Funktion zur Lösung verschiedener Aufgaben in Excel betrachten.

Beispiele für die Verwendung der umgekehrten CHR-Funktion in Excel VBA

Die umgekehrte CHR-Funktion in Excel VBA ermöglicht es Ihnen, den Zeichencode als numerischen Wert abzurufen. Dies kann nützlich sein, wenn Sie den Code eines bestimmten Zeichens kennen oder bestimmte Operationen basierend auf seinem Code ausführen möchten.

Hier sind einige Beispiele für die Verwendung der umgekehrten CHR-Funktion:

Beispiel 1:

Angenommen, Sie möchten den Zeichencode "A" kennen. Dazu können Sie den folgenden Code verwenden:

Dim code As Integercode = Asc("A")MsgBox "Код символа A: " & code

Das Ergebnis ist eine Nachricht, die den Zeichencode "A" enthält, der 65 ist.

Beispiel 2:

Wenn Sie eine Liste von Zeichencodes in einem bestimmten Bereich abrufen müssen, können Sie eine For-Schleife verwenden:

Dim i As IntegerFor i = 65 To 90MsgBox "Код символа: " & i & ", Символ: " & Chr(i)Next i

Dieser Code gibt die Zeichencodes und die Zeichen selbst von A bis Z nacheinander aus.

Beispiel 3:

Wenn Sie bestimmte Operationen basierend auf dem Zeichencode ausführen müssen, können Sie die Select Case-Anweisung verwenden:

Dim code As Integercode = Asc("X")Select Case codeCase 65 To 90MsgBox "Символ X - заглавная буква"Case 97 To 122MsgBox "Символ X - строчная буква"Case ElseMsgBox "Символ X - не является буквой"End Select

In diesem Beispiel wird der Zeichencode "X" auf die Zugehörigkeit zu Groß- oder Kleinbuchstaben überprüft.

Daher ist die umgekehrte CHR-Funktion in Excel VBA sehr nützlich, wenn Sie mit Zeichen und deren Codes arbeiten. Es hilft Ihnen, den Zeichencode zu erhalten und verschiedene Operationen basierend auf diesem Code durchzuführen.

Beschreibung der umgekehrten CHR-Funktionsmethode in Excel VBA

Die umgekehrte Funktion CHR nimmt ein Zeichen als Parameter an und gibt seinen numerischen Wert zurück. Dazu wird die AscW-Methode verwendet, die den Zeichencode in Unicode zurückgibt.

Betrachten Sie ein Beispiel für die Verwendung der umgekehrten Funktion CHR:

Sub ReverseCHR()Dim symbol As StringDim code As Longsymbol = "A"code = AscW(symbol)MsgBox "Числовое значение символа " & symbol & " равно: " & codeEnd Sub

In diesem Beispiel nimmt die umgekehrte Funktion CHR das Zeichen "A" an und gibt seinen numerischen Wert zurück. Dieser Wert wird dann mit der MsgBox-Funktion in der Nachricht angezeigt.

Die Verwendung der umgekehrten CHR-Funktion ermöglicht es daher, den numerischen Wert des Unicode-Tabellenzeichens in VBA Excel abzurufen. Dies kann nützlich sein, wenn Sie mit Textinformationen und Symbolen in verschiedenen Kontexten arbeiten, z. B. beim Verarbeiten von Zeichenfolgen, beim Verschlüsseln von Daten oder beim Ausführen anderer Operationen im Zusammenhang mit Symbolen und deren Codes.

Beispiele für die Verwendung der umgekehrten CHR-Funktion in Excel VBA

Beispiel 1:

Die umgekehrte CHR-Funktion in Excel VBA ermöglicht es Ihnen, ein Zeichen anhand seines Unicode-Codes zu erhalten. Im Folgenden finden Sie ein Beispiel für die Verwendung dieser Funktion, um ein Zeichen mit Code 65 zu erhalten:

Sub Example1()Dim symbol As Stringsymbol = Chr(65)MsgBox symbolEnd Sub

Das Ergebnis der Ausführung dieses Codes zeigt das Zeichen "A" im Meldungsfeld an.

Beispiel 2:

Die Funktion CHR kann auch verwendet werden, um mit Unicode-Sonderzeichen wie Zeilenumbrüchen oder Tabulatoren zu arbeiten. Die folgenden Beispiele sind:

Sub Example2()Dim newLine As StringnewLine = Chr(10)MsgBox "Hello" & newLine & "World!"End SubSub Example3()Dim tab As Stringtab = Chr(9)MsgBox "Hello" & tab & "World!"End Sub

In Beispiel 2 wird ein Zeilenumbruch verwendet, der der Zeichenfolge "Hello" und "World!" hinzugefügt wird." in einem Meldungsfeld, um sie in zwei Zeilen aufzuteilen. Und in Beispiel 3 wird ein Tabulatorzeichen verwendet, um einen Einzug zwischen den Wörtern "Hello" und "World!" im Meldungsfeld.

Beispiel 3:

Die umgekehrte CHR-Funktion kann auch zum Erstellen von Strings mit mehreren Zeichen verwendet werden. Hier ist ein Beispiel, in dem die Zeilen "Hello" und "World!" kombiniert mit einer Funktion:

Sub Example4()Dim hello As StringDim world As StringDim helloWorld As Stringhello = Chr(72) & Chr(101) & Chr(108) & Chr(108) & Chr(111)world = "World!"helloWorld = hello & " " & worldMsgBox helloWorldEnd Sub

Das Ergebnis dieses Codes lautet "Hello World!" im Meldungsfeld.

Beispiel 4:

Die CHR-Funktion kann bei der Arbeit mit Nicht-Unicode-Codierungen nützlich sein. Es folgt ein Beispiel, in dem die Funktion verwendet wird, um ein Zeichen mit der Windows-1251-Codierung 98 zu erhalten:

Sub Example5()Dim symbol As Stringsymbol = Chr(98)MsgBox symbolEnd Sub

Das Ergebnis dieses Codes zeigt das Zeichen "b" im Meldungsfeld an, da in Windows-1251 das Zeichen mit dem Code 98 mit dem Buchstaben "b" kodiert ist.