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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименование листа с наименованием по умолчанию на свое. (Макросы/Sub)
Переименование листа с наименованием по умолчанию на свое.
olegus Дата: Среда, 27.04.2016, 12:52 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: 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
Группа: Модераторы
Ранг: Старожил
Сообщений: 1997
Репутация: 829 ±
Замечаний: 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]
ну и повесить этот макрос на открытие книги или активацию


marinamorozova_box@mail.ru
ЯД: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 28 ±
Замечаний: 0% ±

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

при выводе во второй раз "REP-1953-2"

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


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

при выводе во второй раз "REP-1953-2"

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

Автор - Апострофф
Дата добавления - 27.04.2016 в 13:03
olegus Дата: Среда, 27.04.2016, 13:08 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
if activesheet.name like "REP-*-*"then activesheet.name="Исходник"

для себя на будущее... а заменить name like "REP-*-*" на name like "*" можно?
 
Ответить
Сообщение
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
Группа: Модераторы
Ранг: Старожил
Сообщений: 1997
Репутация: 829 ±
Замечаний: 0% ±

Excel 2010, 2016
отчетов больше 9.

напишите, как у Владимира(Апострофф): "REP-*-*"
like "REP-*-*" на name like "*" можно?

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


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
отчетов больше 9.

напишите, как у Владимира(Апострофф): "REP-*-*"
like "REP-*-*" на name like "*" можно?

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

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

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