Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос на добавления листов из шаблона, Макрос на добавления листов из шаблона присваимая имя по порядку
 
#1
02.04.2018 15:53:07
Всем привет!!! Народ подскажите пожалуйста что тут неправильно?
Код
Sub Copy1()
    Dim shRes As Worksheets
    Set shRes = Sheets("лист 1").Copy(Before:=ActiveSheet)
    If shRes.Index = 1 Then
        shRes.Name = 1
    Else
        shRes.Name = shRes.Previous.Name + 1
    End If
End Sub
 
 
 
#2
02.04.2018 16:18:22
Zloy-Ramses, метод sheet.copy НЕ возвращает ссылку на лист. Но новый лист становится активным, поэтому
Код
Sub Copy1()
     Sheets("лист 1").Copy Before:=ActiveSheet
    If ActiveSheet.Index = 1 Then
        ActiveSheet.Name = 1
    Else
        ActiveSheet.Name = ActiveSheet.Previous.Name + 1
    End If
End Sub
 
 
 
#3
02.04.2018 16:25:35
а и такая конструкция не исключит ошибку
Код
If ActiveSheet.Index = 1 Then  
ActiveSheet.Name = 1

если в следующий раз запустим макрос с активного созданного листа, соответственно, с именем "1", мы получим новый лист с индексом 1, которому попытаемся присвоить существующее имя листа "1"

и объявление переменной вроде не

Код
Dim shRes As Worksheets

а

Код
Dim shRes As Worksheet
Изменено: yozhik - 02.04.2018 16:26:20
 
 
 
#4
02.04.2018 16:35:24
может так надо?
Код
Sub Copy1()
 Sheets("лист 1").Copy Before:=ActiveSheet
 ActiveSheet.Name = ThisWorkbook.Worksheets.Count - 1
End Sub
 
 
 
Страницы: 1
Наверх