Jest to dobre, jeśli chcesz używać instrukcji takich jak Range("A1") zamiast komórek (1,1).
Na przykład ColLetter(1) = A, ColLetter(2) = b,… , ColLetter(100) = CV itd.
3) ColLetter(numer kolumny) => cofa kolumnę Letter.
Funkcja publiczna ColLetter(colNumber As Long) As String
Jeśli numer kolumny < 27 Wtedy
Jeśli numerkolumny = 0 Wtedy
ColLitter = "Z"
W przeciwnym razie
LiteraKolumny = Środek("ABCDEFGHIJKLMNOPQRSTUVWXYZ", numerkolumny, 1)
Zakończ, jeśli
W przeciwnym razie
Jeśli liczba_kolumn < 26 2 + 27 to
Litera_kolumny = Środek("ABCDEFGHIJKLMNOPQRSTUVWXYZ", PODŁOGA(Numer_kolumny / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
W przeciwnym razie
Litera Kol = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR((Numer Kol - 26) / 676), 1)
ColLetter = ColLetter & ColLetter(colNumber - FLOOR((colNumber - 26) / 676) * 676)
Zakończ, jeśli
Zakończ, jeśli
Koniec funkcji