Dit is goed als u uitspraken als Range("A1") wilt gebruiken in plaats van cellen (1,1).
Dus bijvoorbeeld ColLetter(1) = A, ColLetter(2) = b,… , ColLetter(100) = CV, etc.
3) ColLetter (kolomnummer) => geeft kolom Letter terug.
Publieke functie ColLetter(colNumber As Long) As String
Als colNumber < 27 Dan
Als colNumber = 0 Dan
ColLetter = "Z"
Anders
ColLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Stop als
Anders
Als colNumber < 26 2 + 27 Dan
ColLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR(colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Anders
ColLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter(colNumber - FLOOR((colNumber - 26) / 676) * 676)
Stop als
Stop als
Functie beëindigen