색칠된 셀의 행 삭제하기
문서를 검토하다 보면 특정 조건에 따라 셀에 색을 칠하는 경우가 많다.
- 노가다이든, 조건부 서식이든..
그 다음이 문제다.
색 구분 해놓은걸 처리를 해야할 경우,
다시 일일이 선택해서 뭔가를 해야하는 경우가 많다.
대부분의 경우, 선택한걸 삭제하는 경우가 많으므로, 삭제하는 코드로 짯다.
간단하다.
선택 영역 내에서 기본 설정색(마치 흰색으로 보이는 아무것도 없는 색)이 아니면 행을 지우게 해놨다
의외로 유용하다.
** 단, 조건부 서식에서 설정된 색은 먹히지 않는다!!!!
[코드샘플]
Sub row_del_COLOR()
Dim myRNG As Range
Dim i As Integer
Dim CmyRNG As Integer
On Error Resume Next
Application.DisplayAlerts = False
Set myRNG = Application.InputBox("영역", , , , , , , 8)
Application.DisplayAlerts = True
CmyRNG = myRNG.Count
For i = CmyRNG To 1 Step -1
If myRNG(i).Interior.ColorIndex <> -4142 Then
myRNG(i).EntireRow.Select
Selection.Delete
End If
Next
On Error Resume Next
Application.DisplayAlerts = False
myRNG(1).Activate
Application.DisplayAlerts = True
End Sub