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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление СКРЫТЫХ листов в книги по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление СКРЫТЫХ листов в книги по условию (Иное)
Удаление СКРЫТЫХ листов в книги по условию
Erik Дата: Воскресенье, 09.06.2013, 13:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Привет всем гуру excel! Нужна ваша помошь в решение задачи. Подскажите как можно сделать следующие задачи:
1) удалить макросом СКРЫТЫЕ листы в книги по условию заданного в ячейки. Пример представлен ниже.
2) вход по паролю
3) скрыть отобразить строки по нажатию кнопки)
К сообщению приложен файл: 0296897.rar (98.5 Kb)
 
Ответить
СообщениеПривет всем гуру excel! Нужна ваша помошь в решение задачи. Подскажите как можно сделать следующие задачи:
1) удалить макросом СКРЫТЫЕ листы в книги по условию заданного в ячейки. Пример представлен ниже.
2) вход по паролю
3) скрыть отобразить строки по нажатию кнопки)
Автор - Erik
Дата добавления - 09.06.2013 в 13:43
KuklP Дата: Воскресенье, 09.06.2013, 15:27 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
1, При таком к-ве сообщений, пора бы уже с Правилами ознакомиться(п.4 особенно).
2. Для таких ТЗ есть на форуме раздел "Работа".
3. Ждем модеров.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение1, При таком к-ве сообщений, пора бы уже с Правилами ознакомиться(п.4 особенно).
2. Для таких ТЗ есть на форуме раздел "Работа".
3. Ждем модеров.
Автор - KuklP
Дата добавления - 09.06.2013 в 15:27
Erik Дата: Воскресенье, 09.06.2013, 16:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

1) удалить макросом СКРЫТЫЕ листы в книги по условию заданного в ячейки. Пример представлен ниже.
Может хотя бы это можно?
 
Ответить
Сообщение1) удалить макросом СКРЫТЫЕ листы в книги по условию заданного в ячейки. Пример представлен ниже.
Может хотя бы это можно?
Автор - Erik
Дата добавления - 09.06.2013 в 16:36
Erik Дата: Воскресенье, 09.06.2013, 18:03 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Цитата (Serge_007)
Это где?

Приложил . В книге листы скрыты
К сообщению приложен файл: 3275243.rar (98.5 Kb)
 
Ответить
Сообщение
Цитата (Serge_007)
Это где?

Приложил . В книге листы скрыты
Автор - Erik
Дата добавления - 09.06.2013 в 18:03
Erik Дата: Воскресенье, 09.06.2013, 18:43 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

[vba]
Код

Sub Ìàêðîñ1()
Sheets("ÀÁ").Visible = True
Sheets("ÝÀ").Visible = True
Sheets("Ðåçþìå").Visible = True
Sheets("Micro").Visible = True
Sheets("Lombard").Visible = True
Sheets("Small").Visible = True
On Error Resume Next 'åñëè òàêîãî ëèñòà â êíèãå íåò
With ActiveWorkbook
.Sheets("Micro").Delete
.Save
End With
End Sub
[/vba]
Что нужно прописать чтоб не выскакивала окошко с подтверждением об удалении листа?


Сообщение отредактировал Erik - Воскресенье, 09.06.2013, 18:45
 
Ответить
Сообщение[vba]
Код

Sub Ìàêðîñ1()
Sheets("ÀÁ").Visible = True
Sheets("ÝÀ").Visible = True
Sheets("Ðåçþìå").Visible = True
Sheets("Micro").Visible = True
Sheets("Lombard").Visible = True
Sheets("Small").Visible = True
On Error Resume Next 'åñëè òàêîãî ëèñòà â êíèãå íåò
With ActiveWorkbook
.Sheets("Micro").Delete
.Save
End With
End Sub
[/vba]
Что нужно прописать чтоб не выскакивала окошко с подтверждением об удалении листа?
Автор - Erik
Дата добавления - 09.06.2013 в 18:43
Erik Дата: Воскресенье, 09.06.2013, 18:50 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Цитата (KuklP)
2. Для таких ТЗ есть на форуме раздел "Работа".

В общем спс, сам догнал и не надо тут ТЗ писать...
[vba]
Код

Sub Ìàêðîñ1()
Application.DisplayAlerts = False
Sheets("ÀÁ").Visible = True
Sheets("ÝÀ").Visible = True
Sheets("Ðåçþìå").Visible = True
Sheets("Micro").Visible = True
Sheets("Lombard").Visible = True
Sheets("Small").Visible = True
On Error Resume Next 'åñëè òàêîãî ëèñòà â êíèãå íåò
With ActiveWorkbook
.Sheets("Micro").Delete
.Sheets("Lombard").Delete
.Save
End With
Application.DisplayAlerts = True
End Sub
[/vba]
Код нужно вставлять между тэгами, а не после них! (модератор)
 
Ответить
Сообщение
Цитата (KuklP)
2. Для таких ТЗ есть на форуме раздел "Работа".

В общем спс, сам догнал и не надо тут ТЗ писать...
[vba]
Код

Sub Ìàêðîñ1()
Application.DisplayAlerts = False
Sheets("ÀÁ").Visible = True
Sheets("ÝÀ").Visible = True
Sheets("Ðåçþìå").Visible = True
Sheets("Micro").Visible = True
Sheets("Lombard").Visible = True
Sheets("Small").Visible = True
On Error Resume Next 'åñëè òàêîãî ëèñòà â êíèãå íåò
With ActiveWorkbook
.Sheets("Micro").Delete
.Sheets("Lombard").Delete
.Save
End With
Application.DisplayAlerts = True
End Sub
[/vba]
Код нужно вставлять между тэгами, а не после них! (модератор)
Автор - Erik
Дата добавления - 09.06.2013 в 18:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление СКРЫТЫХ листов в книги по условию (Иное)
  • Страница 1 из 1
  • 1
Поиск:

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