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

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

Очистить лист при помощи checkbox (Макросы/Sub)

parovoznik

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

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

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

Сообщений: 449

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

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

Excel 2013

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

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

Ответить

_Boroda_

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

Группа: Админы

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

Сообщений: 16957

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

Замечаний: ±

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

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

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

Сообщений: 449

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

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

Excel 2013

_Boroda_, cпасибо.

Ответить

Очистить лист при помощи checkbox (Макросы/Sub)

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