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.

ArrowMain

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.

ArrowOutput

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]