Ovo je dobro ako volite koristiti izraze poput Raspon ("A1") umjesto ćelija (1,1).
Tako, na primjer, ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV itd.
3) ColLetter (broj stupca) => vraća slovo natrag u stupac.
Javna funkcija ColLetter (colNumber As Long) As String
Ako je colNumber <27 Tada
Ako je colNumber = 0 Tada
ColLetter = "Z"
Drugo
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Završi ako
Drugo
Ako je colNumber <26 2 + 27 Tada
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", POD (broj broja / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Drugo
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", POD ((broj broja - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Završi ako
Završi ako
Završna funkcija