로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2015.01.20 20:11
굿한넘님..
엑셀 올려주시면 좋겠네요..
어느 수준으로 답변을 드려야할지 감이 잘 안옵니다.
매크로(VBA라고 부르는게 더 정확할 것 같습니다)를 기본적인 것은 다룰 줄 안다고 가정하고 답변 드리겠습니다.
1. Find메소드를 사용해서 녹색인 것 아이들을 rngResult라는 영역 변수에 모아서.. EntireRows를 Delete해주시면 될 것 같습니다.
With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
For문으로 하나씩 찾으면서 rngResult라는 셀 영역에 추가하면 되겠죠..
set rngResult = UNION( rngResult, 찾은셀 )
2. 현재 시트의 사용 중인 셀들을 하나씩 검사해서 한줄씩 삭제해주는 방법도 있을 수 있겠지만..
추천할만하지 않지요.. 위에 Find 메소드를 사용하시는게 좋습니다.
도움이 되셨기를..
새 창으로
선택한 기호
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별
굿한넘님..
엑셀 올려주시면 좋겠네요..
어느 수준으로 답변을 드려야할지 감이 잘 안옵니다.
매크로(VBA라고 부르는게 더 정확할 것 같습니다)를 기본적인 것은 다룰 줄 안다고 가정하고 답변 드리겠습니다.
1. Find메소드를 사용해서 녹색인 것 아이들을 rngResult라는 영역 변수에 모아서.. EntireRows를 Delete해주시면 될 것 같습니다.
With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
For문으로 하나씩 찾으면서 rngResult라는 셀 영역에 추가하면 되겠죠..
set rngResult = UNION( rngResult, 찾은셀 )
2. 현재 시트의 사용 중인 셀들을 하나씩 검사해서 한줄씩 삭제해주는 방법도 있을 수 있겠지만..
추천할만하지 않지요.. 위에 Find 메소드를 사용하시는게 좋습니다.
도움이 되셨기를..