Имя листов из диапозона ячеек, более 31 символа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Имя листов из диапозона ячеек, более 31 символа (Макросы/Sub)

DAN123

Дата: Среда, 04.09.2019, 23:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день!

Написал макрос, при запуске которого создается книга с наименованием листов из диапазона ячеек. Но возникает ошибка "1004". Так как в некоторых ячейках из которых строится наименование - количество символов более 31.

Как с помощью макроса можно решить проблему, не меняя текст в ячейках указанного диапазона.

Можно ли ограничить в коде количество символов например до 20 из текста в ячейках для имя листа.

Пожалуйста, подскажите, как можно допилить код, чтобы корректно создавались имена листов в данном случае.

К сообщению приложен файл: 6832929.xlsm (17.4 Kb)

Сообщение отредактировал DAN123 - Четверг, 05.09.2019, 11:01

Ответить

китин

Дата: Четверг, 05.09.2019, 08:04 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

DAN123, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

bmv98rus

Дата: Четверг, 05.09.2019, 13:26 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

у вас еще ошибки есть но не суть
[vba]

Код

        For i = 1 To UBound(NameSh, 2)
            r = 1
            If i > wb.Worksheets.Count Then Worksheets.Add After:=wb.Sheets(i - 1)    'ïðîâåðÿåì åñòü ëè åù¸ ñâîáîäíûå ëèñòû
            Sheets(i).Name = Left(NameSh(1, i), 20)
               r = r + 1

        Next i

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Имя листов из диапозона ячеек, более 31 символа (Макросы/Sub)

Страница 1 из 1
1