Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос переименовать новый лист
 
#1
01.02.2013 11:52:37
Всем добрый день.
Ребята, помогите доделать макрос, не могу понять как.
Есть Док с листом шаблон, я его макросом копирую, и мне нужно его переименовать порядковым номером 1, 2, 3, 4 и т.д., после этого я вставляю в нужную ячейку дату и в нужную ячейку имя этого уже переименованного листа. У меня сложность именно с переименованием листов на 1, 2, 3... также хотелось бы чтоб если к примеру создали лист 4 и удалили его, то при создании нового он стал опять таки 4, тоесть отслеживать имя последнего листа в книге и делать +1

Код
Sub SheetAddRename()
ActiveSheet.Copy After:=ActiveSheet
Range("D16") = DateValue(Now)
Range("G15") = ActiveSheet.name
End Sub
Изменено: marker_mc - 01.02.2013 11:56:53
 
 
 
#2
01.02.2013 11:59:28
Можно заменить
Код
ActiveSheet.name = ActiveSheet.Range("A1")
на
Код
ActiveSheet.name = ThisWorkbook.Sheets.Count


Это код согласно прописанному в файле.
Изменено: SkyShark - 01.02.2013 12:01:29
 
 
 
#3
01.02.2013 12:04:43
О!!! Класс)) спасибо Вам, только я в конце добавил еще минус 1, чтоб нумерация начиналась с первого. Большое спасибо за оперативность
 
 
 
#4
01.02.2013 12:23:01
конечный итог приобрёл такой вид:

Код
Sub SheetAddRename()
    Sheets("шаблон").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    'ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.name = ThisWorkbook.Sheets.Count - 1
    Range("D16") = DateValue(Now)
    Range("G15") = ActiveSheet.name
End Sub
 
 
 
#5
24.05.2015 07:17:11
Нужна помощь срочно, буду крайне признателен.

Нужен макрос для массовой переименовки названия листов.
У меня в книге начиная с 4 листа(название лист14) листы называются по разному ( лист14, следующий лист98 и т.д. ) необходимо с листа4(он же лист14) изменить все названия листов на Лист1 .... Лист2000 по порядку
 
 
 
#6
24.05.2015 09:06:14
Код
Sub bb()
Dim i&
For i = 4 To Sheets.Count
  Sheets(i).Name = "Лист" & i - 3
Next
End Sub
 
 
 
#7
03.02.2024 15:57:30
Добрый день!
Понравился вопрос, но возможно ли копируя этим макросом лист менять его число?
К примеру, если я копирую лист с названием "лист 99", чтобы у нового листа было имя "лист 100" или чтобы "лист 9" был "лист 10".
То есть что бы менял число в названии листа на +1?
 
 
 
Страницы: 1
Читают тему
Наверх