Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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
Адрес: Kazakhstan
Сообщений: 562
Репутация: 16
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование строк таблицы по условию одной ячейки из Лист 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 16:48
Скрыть Листы по условию valerij Microsoft Office Excel 15 20.04.2010 19:32
скрыть лист или защитить паролем cub Microsoft Office Excel 9 15.02.2010 00:00


23:29.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru