Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Массовое переименование листов на цифры - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовое переименование листов на цифры (Макросы/Sub)
Массовое переименование листов на цифры
Влад777 Дата: Четверг, 02.07.2015, 09:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!

Мне необходимо макросом переименовать все листы одного файла на цифры, начиная с 1...В итоге названия листов должны быть следующие "1", "2", "3" и т.д...

В инете нашел только массовое переименование листов с заданным на листе условием....
 
Ответить
СообщениеДобрый день!

Мне необходимо макросом переименовать все листы одного файла на цифры, начиная с 1...В итоге названия листов должны быть следующие "1", "2", "3" и т.д...

В инете нашел только массовое переименование листов с заданным на листе условием....
Автор - Влад777
Дата добавления - 02.07.2015 в 09:49
Roman777 Дата: Четверг, 02.07.2015, 09:51 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Влад777, что то типо того?
[vba]
Код
Sub НазваниеЛиста_Номер()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
sheet.Name = "1_" & sheet.Index
Next

For Each sheet In ActiveWorkbook.Worksheets
sheet.Name = sheet.Index
Next
End Sub
[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Четверг, 02.07.2015, 09:51
 
Ответить
СообщениеВлад777, что то типо того?
[vba]
Код
Sub НазваниеЛиста_Номер()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
sheet.Name = "1_" & sheet.Index
Next

For Each sheet In ActiveWorkbook.Worksheets
sheet.Name = sheet.Index
Next
End Sub
[/vba]
Автор - Roman777
Дата добавления - 02.07.2015 в 09:51
Влад777 Дата: Четверг, 02.07.2015, 09:53 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Roman777, Огромное спасибо..все работает...Класс...
 
Ответить
СообщениеRoman777, Огромное спасибо..все работает...Класс...
Автор - Влад777
Дата добавления - 02.07.2015 в 09:53
Roman777 Дата: Четверг, 02.07.2015, 10:08 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Влад777, НЗ, можно даже так:
[vba]
Код
Sub НазваниеЛиста_Номер()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
sheet.Name = sheet.Index
Next
End Sub
[/vba]
Но если у Вас уже будет лист = цифрой, при котором может быть совпадение по имени, то будет ошибка.
А по первому макросу может быть ошибка, если имя у Вас длинное, потому что он сначало изменяет наименование, добавляя "1_" вначале имени листа, чтобы исключить совпадения листа по номеру. Так вот если у Вас наименование листа +2 будет выходить >31 (вродебы) символа, то будет ошибка.

Много чего не знаю!!!!
 
Ответить
СообщениеВлад777, НЗ, можно даже так:
[vba]
Код
Sub НазваниеЛиста_Номер()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
sheet.Name = sheet.Index
Next
End Sub
[/vba]
Но если у Вас уже будет лист = цифрой, при котором может быть совпадение по имени, то будет ошибка.
А по первому макросу может быть ошибка, если имя у Вас длинное, потому что он сначало изменяет наименование, добавляя "1_" вначале имени листа, чтобы исключить совпадения листа по номеру. Так вот если у Вас наименование листа +2 будет выходить >31 (вродебы) символа, то будет ошибка.
Автор - Roman777
Дата добавления - 02.07.2015 в 10:08
Аналитик2012 Дата: Воскресенье, 28.02.2016, 07:10 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
как сделать, чтобы переименование шло со второго листа и до конца
[moder]Читаем Правила форума, создаём свою тему, прикладываем файл с примером. Эта тема закрыта[/moder]


Сообщение отредактировал Pelena - Воскресенье, 28.02.2016, 08:38
 
Ответить
Сообщениекак сделать, чтобы переименование шло со второго листа и до конца
[moder]Читаем Правила форума, создаём свою тему, прикладываем файл с примером. Эта тема закрыта[/moder]
Автор - Аналитик2012
Дата добавления - 28.02.2016 в 07:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовое переименование листов на цифры (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!