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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление листво в книге после заданного листа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление листво в книге после заданного листа (Макросы Sub)
Удаление листво в книге после заданного листа
igrtsk Дата: Вторник, 04.02.2014, 15:42 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 323
Репутация: 52 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток всем форумчанам!
Имеются книги, в которых разное количество листов, имена листов привязаны к текущим датам. Возможно ли средствами vba выполнить такую задачу:
- удалить все листы в книге начиная с четвертого(условно, потому как имя иное) листа включительно?
При условии, что макрос должен запускаться из личной книги макросов и работать в любой книге (все книги имеют количество листов более 4
К сообщению приложен файл: 20.02.2014-1.xls (87.5 Kb)

Инструктор по применению лосей в кавалерийских частях РККА
 
Ответить
СообщениеДоброго времени суток всем форумчанам!
Имеются книги, в которых разное количество листов, имена листов привязаны к текущим датам. Возможно ли средствами vba выполнить такую задачу:
- удалить все листы в книге начиная с четвертого(условно, потому как имя иное) листа включительно?
При условии, что макрос должен запускаться из личной книги макросов и работать в любой книге (все книги имеют количество листов более 4
Автор - igrtsk
Дата добавления - 04.02.2014 в 15:42
SkyPro Дата: Вторник, 04.02.2014, 15:47 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код

sub deleter()
dim i&
with activeworkbook
application.displayalerts = false
for i = 4 to .sheets.count
.sheets(i).delete
next
application.displayalerts = true
end with
end sub
[/vba]
Должно работать.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Вторник, 04.02.2014, 15:47
 
Ответить
Сообщение[vba]
Код

sub deleter()
dim i&
with activeworkbook
application.displayalerts = false
for i = 4 to .sheets.count
.sheets(i).delete
next
application.displayalerts = true
end with
end sub
[/vba]
Должно работать.
Автор - SkyPro
Дата добавления - 04.02.2014 в 15:47
igrtsk Дата: Вторник, 04.02.2014, 16:05 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 323
Репутация: 52 ±
Замечаний: 0% ±

Excel 2016
SkyPro, спасибо, но не срабатывает.
Макрос останавливается на строке
[vba]
Код
.Sheets(i).Delete
[/vba]

Инструктор по применению лосей в кавалерийских частях РККА
 
Ответить
СообщениеSkyPro, спасибо, но не срабатывает.
Макрос останавливается на строке
[vba]
Код
.Sheets(i).Delete
[/vba]
Автор - igrtsk
Дата добавления - 04.02.2014 в 16:05
SkyPro Дата: Вторник, 04.02.2014, 16:10 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub deleter()
Dim i&
With ActiveWorkbook
Application.DisplayAlerts = False
For i = .Sheets.Count To 4 Step -1
.Sheets(i).Delete
Next
Application.DisplayAlerts = True
End With
End Sub
[/vba]

skypro1111@gmail.com
 
Ответить
Сообщение[vba]
Код
Sub deleter()
Dim i&
With ActiveWorkbook
Application.DisplayAlerts = False
For i = .Sheets.Count To 4 Step -1
.Sheets(i).Delete
Next
Application.DisplayAlerts = True
End With
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 04.02.2014 в 16:10
igrtsk Дата: Вторник, 04.02.2014, 16:14 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 323
Репутация: 52 ±
Замечаний: 0% ±

Excel 2016
SkyPro, Великолепно работает.
Спасибо!

Инструктор по применению лосей в кавалерийских частях РККА
 
Ответить
СообщениеSkyPro, Великолепно работает.
Спасибо!
Автор - igrtsk
Дата добавления - 04.02.2014 в 16:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление листво в книге после заданного листа (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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