Тема: Navision & Excel
Показать сообщение отдельно
Старый 14.01.2010, 15:04   #13  
Storkich is offline
Storkich
Участник
 
149 / 10 (1) +
Регистрация: 08.03.2007
Оффтоп, но выкладываю чтоб было
Функция перевода координат из 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 !