Оффтоп, но выкладываю чтоб было
Функция перевода координат из X Y в A1
Код:
RC(Row : Integer;Col : Integer) : Code[10]
// 65 - код символа 'A' , 64 - код символа '@'
Col -= 1;
// Col - смещение относительно символа 'A'
Ch2 := 65 + Col MOD 26;
Ch1 := 64 + Col DIV 26;
EXIT(DELCHR(STRSUBSTNO('%1%2%3',Ch1,Ch2,Row),'=','@'));
Ни единого IF !