Einige handliche Personal Makros: Zurück Spaltenbuchstaben für die Spaltennummer.
Dies ist gut, wenn Sie Anweisungen wie Range („A1“) anstelle von Zellen (1,1) verwenden möchten.
So zum Beispiel ColLetter (1) = A, ColLetter (2) = b, …, ColLetter (100)
Lebenslauf usw.
{leer} 3) ColLetter (Spaltennummer) ⇒ gibt die Spalte Letter zurück.
Öffentliche Funktion ColLetter (colNumber As Long) As String Wenn colNumber <27 Dann If colNumber = 0 Dann ColLetter = „Z“
Sonst ColLetter = Mid („ABCDEFGHIJKLMNOPQRSTUVWXYZ“, colNumber, 1)
Ende Wenn sonst Wenn colNumber <26 ^ 2 + 27 Dann ColLetter = Mid („ABCDEFGHIJKLMNOPQRSTUVWXYZ“, FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Sonst ColLetter = Mid („ABCDEFGHIJKLMNOPQRSTUVWXYZ“, FLOOR ((colNumber – 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber – FLOOR ((colNumber – 26) / 676) * 676)
End If End If End Funktion