Типичная задача. Есть много листов названия которых нас не устраивают. Мы хотим их переименовать. Делать это вручную очень долго.

C надстройкой ЁXCEL это сделать легко.

Перейдите во вкладку "ЁXCEL" главного меню, нажмите кнопку "Листы", в выпавшем списке выберите пункт "Получить список листов книги":

В открывшемся диалоговом окне установите переключатель в положение "Простой список листов (все листы)" и нажмите "ОК":

Программа создаст в активной книге новый лист на который выведет названия всех листов:

Как быстро переименовать листы?

Исключите из списка листы, которые вы не хотите переименовывать, а напротив оставшихся введите новые названия, чтобы получилось так:

kak-bystro-pereimenovat-listy_2.png

Выделите диапазон со старыми и новыми названиями листов, перейдите во вкладку "ЁXCEL" главного меню, нажмите кнопку "Листы" и выберите команду "Переименовать листы из списка":

kak-bystro-pereimenovat-listy_3.png

В открывшемся диалоговом окне нажмите "ОК":

kak-bystro-pereimenovat-listy_4.png

Указанные листы будут переименованы.

Комментарии  

# РоманК 29.01.2021 13:22
У меня при нажатии переименовать листы из списка выскакивает ошибкf method or data member not found
Ошибка вот в этой строке
Me.RefEdit1.Value = "'" & ActiveSheet.Nam e & "'!" & Selection.Addre ss
Ответить | Ответить с цитатой | Цитировать
# Хвостов Сергей 29.01.2021 14:13
Роман, добрый день!
На первый взгляд кажется, что у вас проблема с библиотекой refedit.dll. Она отсутствует. Решение такое:
1. Через проводник запустите поиск файла refedit.dll на ПК.
2. Если файл на ПК не найден, то его необходимо скачать и положить в соответствующую папку (для разных офисов она разная, при скачивании, обычно пишут для какой версии в какую папку помещать).

Просто наберите в поисковике: "скачать refedit.dll"
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 14:46
Цитирую Хвостов Сергей:
Роман, добрый день!
На первый взгляд кажется, что у вас проблема с библиотекой refedit.dll. Она отсутствует. Решение такое:
1. Через проводник запустите поиск файла refedit.dll на ПК.
2. Если файл на ПК не найден, то его необходимо скачать и положить в соответствующую папку (для разных офисов она разная, при скачивании, обычно пишут для какой версии в какую папку помещать).

Просто наберите в поисковике: "скачать refedit.dll"

Библиотека найдена на ПК по пути C:\Program Files (x86)\Microsoft Office\Office14
Ответить | Ответить с цитатой | Цитировать
# Хвостов Сергей 29.01.2021 16:00
Еще вариант - есть несколько файлов этой библиотеки.
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 16:25
Цитирую Хвостов Сергей:
Еще вариант - есть несколько файлов этой библиотеки.

Сергей я сам когда писал VB для Excel сейчас правда стал 1с ником я зашел в проектVB у меня на форме "Переименовать листы" в конструкторе VB нет поля с диапазоном листов.
Ответить | Ответить с цитатой | Цитировать
# Хвостов Сергей 29.01.2021 16:31
Ну значит проблема в RefEdit. Надо подключить библиотеку. Выберите в редакторе VBA ЁXCEL.xlam, перейдите в меню TOOLS -> References, в списке найдите Ref Edit Control и отметьте его галочкой. Можно еще попробовать снести RefEdit.dll совсем.
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 16:41
Цитирую Хвостов Сергей:
Ну значит проблема в RefEdit. Надо подключить библиотеку. Выберите в редакторе VBA ЁXCEL.xlam, перейдите в меню TOOLS -> References, в списке найдите Ref Edit Control и отметьте его галочкой. Можно еще попробовать снести RefEdit.dll совсем.

Снести тоже не помогает.
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 16:36
Цитирую Хвостов Сергей:
Ну значит проблема в RefEdit. Надо подключить библиотеку. Выберите в редакторе VBA ЁXCEL.xlam, перейдите в меню TOOLS -> References, в списке найдите Ref Edit Control и отметьте его галочкой. Можно еще попробовать снести RefEdit.dll совсем.

Сергей через Tools подключал не помогло.
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 16:09
Цитирую Хвостов Сергей:
Еще вариант - есть несколько файлов этой библиотеки.

Сергей файл один у меня.
Ответить | Ответить с цитатой | Цитировать
# Хвостов Сергей 29.01.2021 16:25
Киньте мне файл со списком, я посмотрю. Может с названиями что не так. Почта тут: https://e-xcel.ru/index.php/kontakty
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 16:42
Цитирую Хвостов Сергей:
Киньте мне файл со списком, я посмотрю. Может с названиями что не так. Почта тут: https://e-xcel.ru/index.php/kontakty

Файл отправил.
Ответить | Ответить с цитатой | Цитировать
# Хвостов Сергей 29.01.2021 16:24
А какая версия Windows, Office?
Ответить | Ответить с цитатой | Цитировать
# РоманК 29.01.2021 16:27
Цитирую Хвостов Сергей:
А какая версия Windows, Office?

Windows 7? MS Office 2010
Ответить | Ответить с цитатой | Цитировать

Добавить комментарий