Dette er bra hvis du liker å bruke utsagn som Range ("A1") i stedet for celler (1,1).
Så, for eksempel ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV, etc.
3) ColLetter (kolonnummer) => sender kolonnen Letter tilbake.
Offentlig funksjon ColLetter (colNumber As Long) As String
Hvis kolNummer <27 Da
Hvis colNumber = 0 Da
ColLetter = "Z"
Ellers
ColLetter = Midt ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Slutt om
Ellers
Hvis kolonnummer <26 2 + 27 Da
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Ellers
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Slutt om
Slutt om
Sluttfunksjon