Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
изменение стандартных имен листов
 
При создании новой книги листам присваиваются имена Лист1 и т.д. Я хочу задать собственные имена, чтобы при открытии новой книги у листов были имена Статья1, Статья2 и т.д.
Как это сделать.
У меня в книге д.б. 160 листов. Вручную переименовывать утомительно.
 
В модуль книги
Код
Option Explicit
Sub RenameSheets()
Dim Sht As Worksheet
Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Name = "Статья_" & i
    Next
End Sub

Изменено: Kuzmich - 29 Авг 2013 23:03:33
 
спасибо за макрос. Но я надеялась, что можно где-то в настройках поменять.
Но макрос - тоже хороший выход.
Спасибо.
Изменено: OdriH - 29 Авг 2013 23:16:27 (добавила)
 
В настройках никак нельзя. Так же как и имя книги, диаграммы, фигуры и т.д.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
спасибо, The_Prist.
буду пользоваться макросом. Потом его удалю из книги
Страницы: 1
Читают тему (гостей: 1)