Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос: удалить все листы которые следуют после 7 листа
 
#1
08.11.2019 12:38:22
Привет

Друзья подскажите макрос который бы удалил все листы после 7 листа (которые справа от него)
 
 
 
#2
08.11.2019 12:57:44
Код
Sub DelSh()
    Application.DisplayAlerts = False
    Dim i As Long
    For i = Sheets.Count To 8 Step -1
        Sheets(i).Delete
    Next
    Application.DisplayAlerts = True
End Sub
 
 
 
#3
08.11.2019 12:58:23
Как то так -
Код
Sub Del6()
Application.DisplayAlerts = 0
For i = ActiveWorkbook.Worksheets.Count To 8 Step -1
  ActiveWorkbook.Worksheets(i).Delete
Next i
Application.DisplayAlerts = -1
End Sub
Изменено: Апострофф - 08.11.2019 12:59:16
 
 
 
#4
08.11.2019 14:22:59
Код
Sub main()
    Application.DisplayAlerts = False
    Do While Sheets.Count > 7
        Sheets(Sheets.Count).Delete
    Loop
    Application.DisplayAlerts = True
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1
Наверх