Переименовать книги

Вход

Регистрация

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

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

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

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

Переименовать книги (Макросы/Sub)

Переименовать книги

4nagriga

Дата: Четверг, 23.09.2021, 15:34 | Сообщение № 1

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

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

Сообщений: 2

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

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

Здравствуйте! Есть документ с большим количеством книг. Не соображу, как переименовать каждую книгу тремя последовательными номерами "1,2,3","4,5,6" и далее по порядку.

К сообщению приложен файл: 3011647.png (4.6 Kb)

Ответить

Erjoma1981

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

Группа: Проверенные

Ранг: Участник

Сообщений: 66

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

Замечаний: 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]

Ответить

Nic70y

Дата: Четверг, 23.09.2021, 16:11 | Сообщение № 3

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

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

Сообщений: 9005

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

Замечаний: 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

Ответить

4nagriga

Дата: Четверг, 23.09.2021, 16:32 | Сообщение № 4

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

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

Сообщений: 2

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

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

Erjoma1981, Nic70y, большое-большое спасибо Вам

Ответить

Переименовать книги (Макросы/Sub)

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