Сервисы поддержки / Примеры / Библиотеки разработчика / Как преобразовать номер колонки в Екселе в ее тектовое обозначение

Как преобразовать номер колонки в Екселе в ее тектовое обозначение

Автор:Izmajlov
Дата:09.02.2012
Просмотров:3434
Скачиваний:2264
Оценка:

, Оценок - 2

Сохранить в файле

Обсудить в форуме

Описание

Понадобилось тут преобразовать цифру к номеру колонки в виде "AZ".
Если нет константы - количества колонок, а есть переменная, то возникает необходимость преобразовать число в строку "XYZ"
К примеру - надо выравнивать Range("A:??").EntireColumn.AutoFit;
?? = неизвестная цифра..

Текст примера

 Пример..
str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
strItog="";
Macro MakeColumn(d)
	i=0;
	While(d>26) d=d-26;i=i+1; end;
	if(i>26) 
		MakeColumn(i); 
	else
		strItog = SubStr(str,i,1)+strItog;
	end;
	strItog = strItog+SubStr(str,d,1);
	return strItog;
end;

println(MakeColumn(dd));