этот макрос
Код |
---|
Sub Exclusion()
Dim Base As Range, Out As Range, Adr$, SU As Boolean, DA As Boolean, EE As Boolean, CM As Long
With Application
Set Base = Selection: On Error Resume Next
Set Out = Application.InputBox("Укажите ячейки, которые следует исключить", "Видите выбранный диапазон?", Type:=8)
If Err Then Exit Sub
SU = .ScreenUpdating: .ScreenUpdating = False: CM = .Calculation: .Calculation = xlCalculationManual
DA = .DisplayAlerts: .DisplayAlerts = False: EE = .EnableEvents: .EnableEvents = False
Worksheets.Add: Range(Out.Address) = 1: Cells(Rows.Count, .Columns.Count) = 1
Adr = Range(Base.Address).SpecialCells(xlCellTypeBlanks).Address
ActiveSheet.Delete: If Not Err Then Range(Adr).Select
.ScreenUpdating = SU: .DisplayAlerts = DA: .EnableEvents = EE: .Calculation = CM
End With
End Sub |
положите в личную книгу макросов, на панель быстрого доступа выведите кнопку для его запуска (у меня она называется UnSelect)
допустим Вы выбрали диапазон с контролом, и случайно отметили не ту ячейку... в обычной ситуации нужно было повторить процесс сначала и повысить точность))
при наличии на панели быстрого доступа кнопки для запуска приведенного выше макроса, вызываете макрос, отмечаете ошибочно отмеченную ячейку (или с контролом несколько ячеек), жмете Ок. макрос снимет отметку с тех ячеек, которые нужно было разотметить