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

Вход

Регистрация

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

 

= Мир MS Excel/Переименование листа с наименованием по умолчанию на свое. - Мир MS Excel

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

Excel 2010
Добрый день форумчане!
Прошу помочь. Программа при выводе отчетов в Excel 2003 именует единственный лист отчета "REP-1953-1" при выводе во второй раз "REP-1953-2" и т.д. у других коллег вместо 1953 свой номер.
Может есть у кого макрос, который переименовывает активный лист книги с наименованием по умолчанию на лист с наименованием например "Исходник"? Премного благодарен.
 
Ответить
СообщениеДобрый день форумчане!
Прошу помочь. Программа при выводе отчетов в Excel 2003 именует единственный лист отчета "REP-1953-1" при выводе во второй раз "REP-1953-2" и т.д. у других коллег вместо 1953 свой номер.
Может есть у кого макрос, который переименовывает активный лист книги с наименованием по умолчанию на лист с наименованием например "Исходник"? Премного благодарен.
Автор - olegus
Дата добавления - 27.04.2016 в 12:52
Manyasha Дата: Среда, 27.04.2016, 13:01 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
olegus, так можно
[vba]
Код
Sub renameSheet()
    For Each sh In ThisWorkbook.Sheets
        If sh.Name Like "REP-*-?" Then
            On Error Resume Next
            sh.Name = "Исходник"
            If Err Then MsgBox "Уже есть такой лист"
            Exit For
        End If
    Next sh
End Sub
[/vba]
ну и повесить этот макрос на открытие книги или активацию

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеolegus, так можно
[vba]
Код
Sub renameSheet()
    For Each sh In ThisWorkbook.Sheets
        If sh.Name Like "REP-*-?" Then
            On Error Resume Next
            sh.Name = "Исходник"
            If Err Then MsgBox "Уже есть такой лист"
            Exit For
        End If
    Next sh
End Sub
[/vba]
ну и повесить этот макрос на открытие книги или активацию
Автор - Manyasha
Дата добавления - 27.04.2016 в 13:01
Апострофф Дата: Среда, 27.04.2016, 13:03 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 123 ±
Замечаний: 0% ±

Excel 1997
[vba]
Код
sub макрос
if activesheet.name like "REP-*-*"then activesheet.name="Исходник"
end sub
[/vba]

Цитата olegus, 27.04.2016 в 12:52, в сообщении № 1
при выводе во второй раз "REP-1953-2"

При десятом выводе
Цитата
Like "REP-*-?"
не сработат.


Сообщение отредактировал Апострофф - Среда, 27.04.2016, 13:06
 
Ответить
Сообщение[vba]
Код
sub макрос
if activesheet.name like "REP-*-*"then activesheet.name="Исходник"
end sub
[/vba]

Цитата olegus, 27.04.2016 в 12:52, в сообщении № 1
при выводе во второй раз "REP-1953-2"

При десятом выводе
Цитата
Like "REP-*-?"
не сработат.
Автор - Апострофф
Дата добавления - 27.04.2016 в 13:03
olegus Дата: Среда, 27.04.2016, 13:08 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
спасибо manyasha а если я в строке "If sh.Name Like "REP-*-?" Then" "?" на "*" заменю работать будет? а то у меня отчетов больше 9.
 
Ответить
Сообщениеспасибо manyasha а если я в строке "If sh.Name Like "REP-*-?" Then" "?" на "*" заменю работать будет? а то у меня отчетов больше 9.
Автор - olegus
Дата добавления - 27.04.2016 в 13:08
olegus Дата: Среда, 27.04.2016, 13:13 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата olegus, 27.04.2016 в 13:08, в сообщении № 4
if activesheet.name like "REP-*-*"then activesheet.name="Исходник"

для себя на будущее... а заменить name like "REP-*-*" на name like "*" можно?
 
Ответить
Сообщение
Цитата olegus, 27.04.2016 в 13:08, в сообщении № 4
if activesheet.name like "REP-*-*"then activesheet.name="Исходник"

для себя на будущее... а заменить name like "REP-*-*" на name like "*" можно?
Автор - olegus
Дата добавления - 27.04.2016 в 13:13
Manyasha Дата: Среда, 27.04.2016, 13:25 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Цитата olegus, 27.04.2016 в 13:08, в сообщении № 4
отчетов больше 9.

напишите, как у Владимира(Апострофф): "REP-*-*"
Цитата olegus, 27.04.2016 в 13:13, в сообщении № 5
like "REP-*-*" на name like "*" можно?

Звездочка отвечает за любой набор символов, т.е. макрос переименует любой лист в "Исходник"

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
Цитата olegus, 27.04.2016 в 13:08, в сообщении № 4
отчетов больше 9.

напишите, как у Владимира(Апострофф): "REP-*-*"
Цитата olegus, 27.04.2016 в 13:13, в сообщении № 5
like "REP-*-*" на name like "*" можно?

Звездочка отвечает за любой набор символов, т.е. макрос переименует любой лист в "Исходник"
Автор - Manyasha
Дата добавления - 27.04.2016 в 13:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименование листа с наименованием по умолчанию на свое. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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