Ово је добро ако волите да користите ћелије попут Ранге ("А1") уместо ћелија (1,1).
Тако, на пример ЦолЛеттер (1) = А, ЦолЛеттер (2) = б,…, ЦолЛеттер (100) = ЦВ итд.
3) ЦолЛеттер (број колоне) => враћа назад колону Леттер.
Јавна функција ЦолЛеттер (цолНумбер Ас Лонг) Ас Стринг
Ако је цолНумбер <27 Тада
Ако је цолНумбер = 0 Тада
ЦолЛеттер = "З"
Иначе
ЦолЛеттер = Мид ("АБЦДЕФГХИЈКЛМНОПКРСТУВВКСИЗ", цолНумбер, 1)
Крај Ако
Иначе
Ако је цолНумбер <26 2 + 27 Тада
ЦолЛеттер = Мид ("АБЦДЕФГХИЈКЛМНОПКРСТУВВКСИЗ", ФЛООР (цолНумбер / 26), 1)
ЦолЛеттер = ЦолЛеттер & ЦолЛеттер (цолНумбер Мод 26)
Иначе
ЦолЛеттер = Мид ("АБЦДЕФГХИЈКЛМНОПКРСТУВВКСИЗ", ФЛООР ((цолНумбер - 26) / 676), 1))
ЦолЛеттер = ЦолЛеттер & ЦолЛеттер (цолНумбер - ФЛООР ((цолНумбер - 26) / 676) * 676)
Крај Ако
Крај Ако
Завршна функција