Detta är bra om du gillar att använda påståenden som intervall ("A1") istället för celler (1,1).
Så, till exempel ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV, etc.
3) ColLetter (kolumnnummer) => skickar tillbaka kolumn Letter.
Public Function ColLetter (colNumber As Long) As String
Om kolNummer <27 Då
Om colNumber = 0 Då
ColLetter = "Z"
Annan
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Avsluta om
Annan
Om kolNummer <26 2 + 27 Då
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Annan
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Avsluta om
Avsluta om
Avsluta funktion