Tämä on hyvä, jos haluat käyttää lauseita, kuten Range ("A1") solujen (1,1) sijasta.
Joten esimerkiksi ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV jne.
3) ColLetter (sarakkeen numero) => siirtää sarakkeen Letter takaisin.
Julkinen toiminto ColLetter (sarakkeen numero niin pitkä) kuin merkkijono
Jos sarakkeen numero <27 Sitten
Jos colNumber = 0 Sitten
ColLetter = "Z"
Muu
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", sarakkeen numero, 1)
Loppu Jos
Muu
Jos sarakkeen numero <26 2 + 27 Sitten
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (sarakenumero / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Muu
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", LATTIA ((sarakenumero - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Loppu Jos
Loppu Jos
Lopeta toiminto