Еще одна статья по мотивам комментариев к статье «Конвертация числа в различные системы исчисления в 1С» (спасибо пользователю kuzyara).
Функции для получения имени и номера столбцов Excel в 1С.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | &НаКлиенте Функция ExcelColumnNameToNumber(тИмяКолонки) тЛатАлфавит = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; тДлинаНомера = СтрДлина(тИмяКолонки); тНомерКолонки = 0; Для тСчет = 1 По тДлинаНомера Цикл тПоз = Найти(тЛатАлфавит, Сред(тИмяКолонки, (тДлинаНомера + 1 - тСчет), 1)); тНомерКолонки = тНомерКолонки + тПоз * Pow(26, тСчет - 1); КонецЦикла; Возврат тНомерКолонки; КонецФункции &НаКлиенте Функция NumberToExcelColumnName(Знач тНомерКолонки) тЛатАлфавит = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; тИмяКолонки = ""; Пока тНомерКолонки > 0 Цикл тОстаток = (тНомерКолонки - 1)%26; тБуква = Сред(тЛатАлфавит, тОстаток + 1, 1); тИмяКолонки = тБуква + тИмяКолонки; тНомерКолонки = Цел((тНомерКолонки - тОстаток)/26); КонецЦикла; Возврат тИмяКолонки; КонецФункции |
Если Вы нашли ошибку или неточность, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.
Спасибо большое! То что надо, сэкономили мне время