Dette er godt, hvis du kan lide at bruge udsagn som Range ("A1") i stedet for celler (1,1).
Så for eksempel ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV osv.
3) ColLetter (kolonnummer) => sender kolonne Letter tilbage.
Offentlig funktion ColLetter (kolonnummer så længe) som streng
Hvis kolonnummer <27 Så
Hvis colNumber = 0 Så
ColLetter = "Z"
Andet
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Afslut Hvis
Andet
Hvis kolonnummer <26 2 + 27 Så
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Andet
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Afslut Hvis
Afslut Hvis
Afslut funktion