abyul.com > Excel > Question & Answer - 특정색 행 삭제 메크로 배워보고 싶습니다~

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

글 수 113

VBA 조회 수 5793 추천 수 0 2015.01.12 14:09:03

첨부사진에 초록색으로 된 행을 자동으로 인식해서

지울수 있는 메크로를 만드는 방법을 배워보고 싶습니다~

2015.01.20 19:01:34
*.148.179.173

없나요? ㅠㅁ ㅜ

2015.01.20 20:11:46
*.132.210.135

굿한넘님..

엑셀 올려주시면 좋겠네요..

어느 수준으로 답변을 드려야할지 감이 잘 안옵니다.

매크로(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 메소드를 사용하시는게 좋습니다.

도움이 되셨기를..

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)

비밀글 기능

List of Articles

번호	제목	글쓴이	날짜	조회 수
공지	공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..	아별	2015-04-23	52287
13	VBA 사용자 정의 폼 관련 [2]	고수가되고파	2012-10-16	2657
12	VBA vba 메세지 창 제어 [4]	고수가되고파	2012-10-10	2583
11	VBA sub과function차이 [4]	snail0513	2012-08-07	2483
10	VBA vba 에러처리 [2]	고수가되고파	2012-09-23	2445
9	VBA 개체와 컬렉션 [2]	고수가되고파	2012-09-26	2386
8	VBA 빠른실행도구모음 외 [2]	고수가되고파	2012-09-26	2371
7	VBA 셀병합 효과 [2]	고수가되고파	2012-10-19	2354
6	VBA vba속도 관련 외 [2]	고수가되고파	2012-09-12	2256
5	VBA 액셀 아르바이트 좀 해주세요 [2]	구삼이	2012-10-08	2157
4	VBA 셀 병합 관련 [2]	고수가되고파	2012-10-11	2046
3	VBA 시트와 차트에 따라 다른 함수 실행? [4]	고독한나그네	2012-07-14	1998
2	VBA 데이터 유효성 질문.. 리스트에서 항목 선택하면 기존 항목에 더해져서 표시되게 하기 [1]	미소가인	2012-12-22	43
1	VBA 도움을 요청드립니다~	비베초보	2014-07-29	1