Keletas patogių asmeninių makrokomandų: grąžinkite stulpelio numerio stulpelio raidę.

Tai gerai, jei norite naudoti tokius teiginius kaip diapazonas („A1“), o ne langelius (1,1).

Pavyzdžiui, ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV ir kt.

3) ColLetter (stulpelio numeris) => grąžina stulpelį Letter.

Viešoji funkcija ColLetter (colNumber As Long) Kaip String

Jei stulpelių skaičius <27 Tada
Jei colNumber = 0 Tada
ColLetter = "Z"
Kitas
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", stulpelio numeris, 1)
Pabaiga Jei
Kitas
Jei stulpelių skaičius <26 2 + 27 Tada
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Kitas
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((stulpelio numeris - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((col. Number - 26) / 676) * 676)
Pabaiga Jei
Pabaiga Jei

Pabaigos funkcija