Acest lucru este bun dacă doriți să utilizați declarații precum Range ("A1") în loc de celule (1,1).
Deci, de exemplu ColLetter (1) = A, ColLetter (2) = b, …, ColLetter (100) = CV etc.
3) ColLetter (numărul coloanei) => trece înapoi coloana Letter.
Funcție publică ColLetter (colNumber As Long) As String
Dacă colNumber <27 Atunci
Dacă colNumber = 0 Atunci
ColLetter = "Z"
Altfel
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
End If
Altfel
Dacă colNumber <26 2 + 27 Atunci
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ETAJ (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Altfel
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
End If
End If
Funcția de sfârșit