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

Вход

Регистрация

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

 

= Мир MS Excel/Переименовать книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименовать книги (Макросы/Sub)
Переименовать книги
4nagriga Дата: Четверг, 23.09.2021, 15:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте! Есть документ с большим количеством книг. Не соображу, как переименовать каждую книгу тремя последовательными номерами "1,2,3","4,5,6" и далее по порядку.
К сообщению приложен файл: 3011647.png(4.6 Kb)
 
Ответить
СообщениеЗдравствуйте! Есть документ с большим количеством книг. Не соображу, как переименовать каждую книгу тремя последовательными номерами "1,2,3","4,5,6" и далее по порядку.

Автор - 4nagriga
Дата добавления - 23.09.2021 в 15:34
Erjoma1981 Дата: Четверг, 23.09.2021, 16:08 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 66
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010, 2019
[vba]
Код
Sub ПеренумероватьЛисты()
    Dim НомерЛиста As Integer
    For НомерЛиста = 1 To Sheets.Count
       Sheets(НомерЛиста).Name = CStr(3 * (НомерЛиста - 1) + 1) & "," & CStr(3 * (НомерЛиста - 1) + 2) & "," & CStr(3 * (НомерЛиста - 1) + 3)
    Next НомерЛиста
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub ПеренумероватьЛисты()
    Dim НомерЛиста As Integer
    For НомерЛиста = 1 To Sheets.Count
       Sheets(НомерЛиста).Name = CStr(3 * (НомерЛиста - 1) + 1) & "," & CStr(3 * (НомерЛиста - 1) + 2) & "," & CStr(3 * (НомерЛиста - 1) + 3)
    Next НомерЛиста
End Sub
[/vba]

Автор - Erjoma1981
Дата добавления - 23.09.2021 в 16:08
Nic70y Дата: Четверг, 23.09.2021, 16:11 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
Документ = Книга,
то, что Вы называете книгами = Листы
[vba]
Код
Sub u_18()
    Application.ScreenUpdating = False
    For u = 1 To Sheets.Count
        Sheets(u).Name = u * 3 - 2 & "," & u * 3 - 1 & "," & u * 3
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
СообщениеДокумент = Книга,
то, что Вы называете книгами = Листы
[vba]
Код
Sub u_18()
    Application.ScreenUpdating = False
    For u = 1 To Sheets.Count
        Sheets(u).Name = u * 3 - 2 & "," & u * 3 - 1 & "," & u * 3
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 23.09.2021 в 16:11
4nagriga Дата: Четверг, 23.09.2021, 16:32 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Erjoma1981, Nic70y, большое-большое спасибо Вам
 
Ответить
СообщениеErjoma1981, Nic70y, большое-большое спасибо Вам

Автор - 4nagriga
Дата добавления - 23.09.2021 в 16:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименовать книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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