Die Umrechnung zwischen Spaltennummern und Spaltenreferenzen mit VBA in Microsoft Excel
In diesem Artikel werden zwei benutzerdefinierte Funktionen erstellt, eine Funktion zum Konvertieren von Spaltennummern in Spaltenreferenzen und eine andere Funktion zum Konvertieren von Spaltenreferenzen in Spaltennummern.
Die Rohdaten für dieses Beispiel bestehen aus zwei Beispieldaten, ein Beispiel enthält zufällige Spaltennummern und die zweiten Beispieldaten enthalten zufällige Spaltenreferenzen.
Wir haben zwei benutzerdefinierte Funktionen „ColNoToColRef“ und „ColRefToColNo“ erstellt. Mit der Funktion „ColNoToColRef“ werden Spaltennummern in Spaltenreferenzen konvertiert. Es werden ganzzahlige Werte als Eingabe verwendet.
In ähnlicher Weise wird die Funktion „ColRefToColNo“ verwendet, um Spaltenreferenzen in Spaltennummern zu konvertieren.
Code Erklärung
Zellen (1, ColNo) .Adresse (Richtig, Falsch, xlA1)
Der obige Code wird verwendet, um die Adresse der angegebenen Zelle abzurufen.
Links (ColNoToColRef, InStr (1, ColNoToColRef, „$“) – 1)
Der obige Code wird verwendet, um das Zeichen auf der linken Seite des Symbols „$“ zu extrahieren.
Bitte folgen Sie unten für den Code
Option Explicit Function ColNoToColRef(ColNo As Long) As String If ColNo < 1 Or ColNo > Columns.Count Then ColNoToColRef = "Invalid input value" Else 'Finding the address of cell in the first row based on the specified column number ColNoToColRef = Cells(1, ColNo).Address(True, False, xlA1) 'Extracting the column name from the address ColNoToColRef = Left(ColNoToColRef, InStr(1, ColNoToColRef, "$") - 1) End If End Function Function ColRefToColNo(ColRef As String) Dim Rng As Range On Error GoTo LastPart 'Assigning cell in the first row of the specified column reference as range Set Rng = Range(ColRef & "1") 'Getting the column number of the specified range ColRefToColNo = Rng.Column Exit Function LastPart: ColRefToColNo = "Invalid input value" End Function
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]