Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2011, 10:42   #1
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 619
По умолчанию Скрыть или удалить лист по условию

Собственно вопросов о помощи два
1. Как скрыть если ячейка А1=0
2. Как удалить если ячейка А1=0
kzld вне форума Ответить с цитированием
Старый 05.04.2011, 11:17   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

1.
Код:
Sub tt()
Dim sh As Worksheet
For Each sh In Sheets
If sh.[a1] = 0 Then sh.Visible = xlSheetHidden
Next
End Sub
Но один лист должен остаться видимым, т.е. или ограничивайте цикл счётчиком или проверкой индекса, или заведомо один лист с значением А1<>0

2. С удалением похоже, но циклом нужно идти с конца (один лист должен остаться):

Код:
Sub ttt()
Dim i As Long
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Sheets(i).[a1] = 0 Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 05.04.2011 в 11:23.
Hugo121 вне форума Ответить с цитированием
Старый 05.04.2011, 11:29   #3
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 619
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
1.
Но один лист должен остаться видимым, т.е. или ограничивайте цикл счётчиком или проверкой индекса, или заведомо один лист с значением А1<>0
2. С удалением похоже, но циклом нужно идти с конца (один лист должен остаться):
Спасибо, буду пробовать
kzld вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование строк таблицы по условию одной ячейки из Лист 1 в Лист 2 Людвиг Microsoft Office Excel 5 25.10.2014 11:46
перенос строки на другой лист по условию TimoXEi Microsoft Office Excel 12 24.01.2013 16:21
запретить переход с листа на лист по условию Uralmaster Microsoft Office Excel 14 11.02.2011 15:48
Скрыть Листы по условию valerij Microsoft Office Excel 15 20.04.2010 19:32
скрыть лист или защитить паролем cub Microsoft Office Excel 9 14.02.2010 23:00