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

Вход

Регистрация

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

 

= Мир MS Excel/Нужен макрос по удалению листа по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен макрос по удалению листа по условию (Макросы/Sub)
Нужен макрос по удалению листа по условию
IvanGen Дата: Среда, 23.12.2015, 08:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго времени суток! Нужен макрос: если ячейка А1 (лист1) равна нулю, то удаляется полностью лист1. В интернете не нашел ничего... Заранее благодарен!
 
Ответить
СообщениеДоброго времени суток! Нужен макрос: если ячейка А1 (лист1) равна нулю, то удаляется полностью лист1. В интернете не нашел ничего... Заранее благодарен!
Автор - IvanGen
Дата добавления - 23.12.2015 в 08:33
Nic70y Дата: Среда, 23.12.2015, 08:37 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9223
Репутация: 2478 ±
Замечаний: 0% ±

Excel 2010
Цитата IvanGen, 23.12.2015 в 08:33, в сообщении № 1
ячейка А1
а что в ней? формула, результат работы макроса или вручную 0 вводится?

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата IvanGen, 23.12.2015 в 08:33, в сообщении № 1
ячейка А1
а что в ней? формула, результат работы макроса или вручную 0 вводится?
Автор - Nic70y
Дата добавления - 23.12.2015 в 08:37
IvanGen Дата: Среда, 23.12.2015, 08:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Это счет-фактура. В этой ячейке считается сумма по отгрузке.
 
Ответить
СообщениеЭто счет-фактура. В этой ячейке считается сумма по отгрузке.
Автор - IvanGen
Дата добавления - 23.12.2015 в 08:40
Nic70y Дата: Среда, 23.12.2015, 08:48 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9223
Репутация: 2478 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub M_1()
    If [a1] = 0 Then
    Application.DisplayAlerts = 0
    Sheets(1).Delete
    Application.DisplayAlerts = 1
    End If
End Sub
[/vba]
поправил, добавил условие
IvanGen, я пытаюсь выяснить событие при котором должен удалится лист.

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 23.12.2015, 08:51
 
Ответить
Сообщение[vba]
Код
Sub M_1()
    If [a1] = 0 Then
    Application.DisplayAlerts = 0
    Sheets(1).Delete
    Application.DisplayAlerts = 1
    End If
End Sub
[/vba]
поправил, добавил условие
IvanGen, я пытаюсь выяснить событие при котором должен удалится лист.
Автор - Nic70y
Дата добавления - 23.12.2015 в 08:48
IvanGen Дата: Среда, 23.12.2015, 08:56 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вот пример. Здесь отталкиваться надо от ячейки D7 в каждом листе. Если D7 равна 0, то удалять этот лист.
К сообщению приложен файл: 2277808.xlsm (94.0 Kb)
 
Ответить
СообщениеВот пример. Здесь отталкиваться надо от ячейки D7 в каждом листе. Если D7 равна 0, то удалять этот лист.
Автор - IvanGen
Дата добавления - 23.12.2015 в 08:56
Nic70y Дата: Среда, 23.12.2015, 09:03 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 9223
Репутация: 2478 ±
Замечаний: 0% ±

Excel 2010
Цитата Nic70y, 23.12.2015 в 08:48, в сообщении № 4
я пытаюсь выяснить событие
Вы меня не поняли. После каких действий должны удалиться листы? Закрытие книги, после деактивации листа, сочетания клавиш или чего-то другого

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Nic70y, 23.12.2015 в 08:48, в сообщении № 4
я пытаюсь выяснить событие
Вы меня не поняли. После каких действий должны удалиться листы? Закрытие книги, после деактивации листа, сочетания клавиш или чего-то другого
Автор - Nic70y
Дата добавления - 23.12.2015 в 09:03
IvanGen Дата: Среда, 23.12.2015, 09:07 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
После активации данного макроса.
 
Ответить
СообщениеПосле активации данного макроса.
Автор - IvanGen
Дата добавления - 23.12.2015 в 09:07
IvanGen Дата: Среда, 23.12.2015, 09:14 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо огромное!!!!!!!!!!!!!!! Вставил, все работает!!!!!!!!!!!!!!!!!!!!!!
 
Ответить
СообщениеСпасибо огромное!!!!!!!!!!!!!!! Вставил, все работает!!!!!!!!!!!!!!!!!!!!!!
Автор - IvanGen
Дата добавления - 23.12.2015 в 09:14
Nic70y Дата: Среда, 23.12.2015, 09:28 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 9223
Репутация: 2478 ±
Замечаний: 0% ±

Excel 2010
см. лист образец (кнопка)
[vba]
Код
Sub M_2()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Образец" And ws.[d7] = 0 Then
i = ws.Name
    Application.DisplayAlerts = 0
Sheets(i).Delete
End If
Next
    Application.DisplayAlerts = 1
End Sub
[/vba]
К сообщению приложен файл: 6735286.xlsm (98.4 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениесм. лист образец (кнопка)
[vba]
Код
Sub M_2()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Образец" And ws.[d7] = 0 Then
i = ws.Name
    Application.DisplayAlerts = 0
Sheets(i).Delete
End If
Next
    Application.DisplayAlerts = 1
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 23.12.2015 в 09:28
IvanGen Дата: Среда, 23.12.2015, 10:19 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
а как прописать значение пусто, вместо нуля?
 
Ответить
Сообщениеа как прописать значение пусто, вместо нуля?
Автор - IvanGen
Дата добавления - 23.12.2015 в 10:19
Nic70y Дата: Среда, 23.12.2015, 10:22 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 9223
Репутация: 2478 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
[d7] = ""
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
[d7] = ""
[/vba]
Автор - Nic70y
Дата добавления - 23.12.2015 в 10:22
IvanGen Дата: Среда, 23.12.2015, 13:00 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо! Сейчас попробую.
 
Ответить
СообщениеСпасибо! Сейчас попробую.
Автор - IvanGen
Дата добавления - 23.12.2015 в 13:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен макрос по удалению листа по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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