Очистить лист при помощи checkbox

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить лист при помощи checkbox (Макросы/Sub)

parovoznik

Дата: Вторник, 23.09.2014, 13:48 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Добрый день форумчане.
На форме имеется чекбокс. По нажатию на чекбокс должна происходит очистка листа 1 если есть данные, Если на листе нет ничего , то появляется сообщение "На листе нет данных для очистки". Сейчас код работает некорректно.
Как подкорректировать код?
Спасибо.

К сообщению приложен файл: 4216887.xls (46.0 Kb)

Ответить

_Boroda_

Дата: Вторник, 23.09.2014, 14:11 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Если на листе ничего нет, то Вам все равно, чистите Вы его или не чистите. Следовательно, проверку на наличие данных на листе делать не нужно. Тогда код можно написать так:
[vba]

Код

Private Sub CheckBox1_Click()
     If CheckBox1.Value = True Then
         If MsgBox("Вы действительно хотите очистить этот лист", 36, "Подтверждение очистки") = 6 Then
             ActiveSheet.Cells.Clear
             MsgBox " Данные  с листа1 успешно очищены ", 64, "Подтверждение очистки"
         End If
     End If
End Sub

[/vba]

К сообщению приложен файл: 4216887_1.xls (44.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

parovoznik

Дата: Вторник, 23.09.2014, 14:26 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, cпасибо.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить лист при помощи checkbox (Макросы/Sub)

Страница 1 из 1
1