|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.10.2010, 12:34 | #1 |
Регистрация: 03.10.2010
Сообщений: 6
|
Удаление листов
Это все для меня ново, так что не бейте. Суть заключается в том, чтобы написать макрос, который бы удалял листы и именем "Лист!".
Sub DeleteSheets() Dim aSheet As Object For Each aSheets In ThisWorkbook If InStr(1, Worksheets(1).Name, "!", vbTextCompare) = 0 Then Worksheets(1).Delete End If Next aSheet End Sub Помогите, пожалуйста! |
03.10.2010, 12:59 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Код:
|
03.10.2010, 13:15 | #3 |
Регистрация: 03.10.2010
Сообщений: 6
|
А с использованием InStr() ?
|
03.10.2010, 14:06 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
If sh.Name Like "*!*" Then sh.Delete
или If InStr(1, sh.Name, "!") = 0 Then sh.Delete |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сравнение 2 листов | hloppel | Microsoft Office Excel | 22 | 12.05.2010 16:38 |
Скрытие листов. | frozzy_16 | Microsoft Office Excel | 7 | 18.03.2010 17:57 |
Удаление листов в книге по определённым условиям | inside9 | Microsoft Office Excel | 2 | 07.08.2009 13:37 |
сортировка листов | cheshiki1 | Microsoft Office Excel | 2 | 29.05.2009 17:48 |
Cравнения 2 листов | anju | Microsoft Office Excel | 8 | 08.09.2008 14:46 |