Questo è utile se ti piace usare istruzioni come Range ("A1") invece di celle (1,1).
Quindi, per esempio LetteraLettera(1) = A, LetteraLettera(2) = b,… , LetteraLettera(100) = CV, ecc.
3) ColLetter(numero di colonna) => passa indietro la lettera di colonna.
Public Function Colletter(colNumber As Long) As String
Se colNumber < 27 Allora
Se colNumber = 0 Allora
Colletta = "Z"
Altro
ColleLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Finisci se
Altro
Se colNumber < 26 2 + 27 Allora
ColleLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR(colNumber / 26), 1)
ColleLetter = ColleLetter & ColleLetter(colNumber Mod 26)
Altro
ColleLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR((colNumber - 26) / 676), 1)
LetteraCol = LetteraCol & LetteraCol(NumeroCol - FLOOR((NumeroCol - 26) / 676) * 676)
Finisci se
Finisci se
Fine funzione