Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Макрос для очистки

Автор Сергей Калинин, 26.02.2014, 23:18

« назад - далее »

Сергей Калинин

Добрый день.
Пытаюсь создать тесты в екселе(2007) но наткнулся на одну беду.
Нужен макрос очищающий значение флажков, переключателей и списков(Проверка данных, списки) во всех листах в книге.

Staniiislav

#1
Sub clear()
Dim i%, RowMax&, rng As Range
If MsgBox("Очистить ячейки?", vbYesNo, "Подтверждение") = vbNo Then Exit Sub
On Error Resume Next
    For i = 1 To ThisWorkbook.Sheets.Count
        With ThisWorkbook.Sheets(i)
            RowMax = .Range("B:V").Find("укажите символ для поиска и очистки", , , xlWhole, xlByRows, xlPrevious).Row
            Set rng = .Range("укажите диапазон" & CStr(RowMax))
            rng.SpecialCells(xlCellTypeConstants).ClearContents
            Set rng = Nothing
        End With
    Next
End Sub

Сергей Логинов

то что нужно! как раз это искал, спасибо!