엑셀 고급필터 자동화서식 초기화

함수/공식
작성자
골드라벨
작성일
2021-12-29 21:03
조회
82
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

다름이아니라 고급필터 자동화서식을 배워서 잘쓰고 있습니다.

고급필터자동화서식으로  다른시트에 불러오기해서 검색 초기화 를 사용하고잇는데 원본시트에 있는 조건부서식 색조까지  그대로

불러와지고 검색시트에서 초기화 하면 색조는  안지워지는데 어떻게하면 될까요?ㅠㅠ

검색시트에 어떻게하면 조건부서식 색조 도 같이 지워질까요 ?ㅠㅠ

 

Sub 초기화()

Dim r As Range

Application.ScreenUpdating = False

Set r = Selection
sheet2.Range("초기화범위").Select
Selection.ClearContents
r.Select
ClearContentsBelow sheet2.Range("C14"), "M"

Application.ScreenUpdating = True

End Sub
Sub ClearContentsBelow(startRng As Range, Optional ColNo, Optional BaseCol As Long = 0)

Dim WS As Worksheet: Dim lastRow As Long: Set WS = startRng.Parent
If IsMissing(ColNo) Then ColNo = WS.Cells(startRng.Row, WS.Columns.Count).End(xlToLeft).Column
If Not IsNumeric(ColNo) Then ColNo = Range(ColNo & 1).Column
If BaseCol = 0 Then BaseCol = startRng.Column
lastRow = WS.Cells(WS.Rows.Count, BaseCol).End(xlUp).Row
If lastRow < startRng.Row Then Exit Sub
WS.Range(startRng, WS.Cells(lastRow, ColNo)).ClearContents

End Sub
Sub SortToClick(Rng As Range)

If Rng.Rows.Count = Rng.Parent.Rows.Count Then Exit Sub

Dim r As Range: Dim rh As Range: Dim rs As Range

Set r = Rng.CurrentRegion
Set rh = Cells(r.Row, Rng.Column)

If Not (Right(rh.Value, 2) = " ▼" Or Right(rh.Value, 2) = " ▲") Then
r.Sort Rng, xlAscending, Header:=xlYes
rh.Value = rh.Value & " ▲"
Else
If Right(rh.Value, 2) = " ▲" Then
r.Sort Rng, xlDescending, Header:=xlYes
rh.Value = Replace(rh.Value, " ▲", " ▼")
Else
r.Sort Rng, xlAscending, Header:=xlYes
rh.Value = Replace(rh.Value, " ▼", " ▲")
End If
End If

For Each rs In r.Rows(1).Cells
If (Right(rs.Value, 2) = " ▼" Or Right(rs.Value, 2) = " ▲") And rs.Column <> Rng.Column Then
rs.Value = Left(rs.Value, Len(rs.Value) - 2)
End If
Next

End Sub

Sub RemoveChrs(Rng As Range, Chrs As String)

Dim r As Range
Dim va As Variant: Dim v As Variant

va = Split(Chrs, ",")

For Each r In Rng
For Each v In va
If InStr(r.Value, v) > 0 Then r.Value = Replace(r.Value, v, "")
Next
Next

End Sub

전체 7

  • 2021-12-30 19:32
    채택된 답변

    Selection.ClearContents를  Selection.Clear로 변경해서 내용, 서식등 모두 지우시면 될듯합니다.

     


    • 2021-12-30 19:51

      @쿠쿠 님 Selection.Clear 변경을 했는데... 안되네요 ㅠㅠ


  • 2021-12-30 19:57

    밑에 구문보니까 ClearContents들이 있네요.

    아래 구분으로 해보실래요?

    Sub 초기화()

    Dim r As Range

    Application.ScreenUpdating = False

    Set r = Selection
    sheet2.Range("초기화범위").Select
    Selection.Clear
    r.Select
    ClearBelow sheet2.Range("C14"), "M"

    Application.ScreenUpdating = True

    End Sub
    Sub ClearBelow(startRng As Range, Optional ColNo, Optional BaseCol As Long = 0)

    Dim WS As Worksheet: Dim lastRow As Long: Set WS = startRng.Parent
    If IsMissing(ColNo) Then ColNo = WS.Cells(startRng.Row, WS.Columns.Count).End(xlToLeft).Column
    If Not IsNumeric(ColNo) Then ColNo = Range(ColNo & 1).Column
    If BaseCol = 0 Then BaseCol = startRng.Column
    lastRow = WS.Cells(WS.Rows.Count, BaseCol).End(xlUp).Row
    If lastRow < startRng.Row Then Exit Sub
    WS.Range(startRng, WS.Cells(lastRow, ColNo)).Clear

    End Sub
    Sub SortToClick(Rng As Range)

    If Rng.Rows.Count = Rng.Parent.Rows.Count Then Exit Sub

    Dim r As Range: Dim rh As Range: Dim rs As Range

    Set r = Rng.CurrentRegion
    Set rh = Cells(r.Row, Rng.Column)

    If Not (Right(rh.Value, 2) = " ▼" Or Right(rh.Value, 2) = " ▲") Then
    r.Sort Rng, xlAscending, Header:=xlYes
    rh.Value = rh.Value & " ▲"
    Else
    If Right(rh.Value, 2) = " ▲" Then
    r.Sort Rng, xlDescending, Header:=xlYes
    rh.Value = Replace(rh.Value, " ▲", " ▼")
    Else
    r.Sort Rng, xlAscending, Header:=xlYes
    rh.Value = Replace(rh.Value, " ▼", " ▲")
    End If
    End If

    For Each rs In r.Rows(1).Cells
    If (Right(rs.Value, 2) = " ▼" Or Right(rs.Value, 2) = " ▲") And rs.Column <> Rng.Column Then
    rs.Value = Left(rs.Value, Len(rs.Value) - 2)
    End If
    Next

    End Sub

    Sub RemoveChrs(Rng As Range, Chrs As String)

    Dim r As Range
    Dim va As Variant: Dim v As Variant

    va = Split(Chrs, ",")

    For Each r In Rng
    For Each v In va
    If InStr(r.Value, v) > 0 Then r.Value = Replace(r.Value, v, "")
    Next
    Next

    End Sub


    • 2021-12-30 20:03

      @쿠쿠 님 오!! 됬어요!! ㅎㅎ 정말 감사합니다 ^^!! 우아....어떤명령문일까요 ?ㅠㅠ

       


      • 2021-12-30 20:05

        @골드라벨 님 Selection.ClearContents 이명령어랑 Selection.Clear 명령어 차이가 무슨차이 일까요 ?


  • 2021-12-30 20:13

    참고하세요.

    223123.jpg


    • 2021-12-31 19:10

      @쿠쿠 님 감사합니다 ^^


전체 5,201
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (30)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 796
트로피 오빠두엑셀 2021.10.12 23 796
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 32 | 조회 2478
트로피 오빠두엑셀 2021.10.28 32 2478
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (3)
sunjong**** | 16:42 | 추천 0 | 조회 26
sunjong**** 16:42 0 26
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일
병욱 | 16:13 | 추천 0 | 조회 14
병욱 16:13 0 14
26339 VBA
New 많은 텍스트상자안 문자 찾기 (1)
noeu**** | 15:44 | 추천 -1 | 조회 20
noeu**** 15:44 -1 20
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (1)
말창 | 15:26 | 추천 0 | 조회 22
말창 15:26 0 22
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 15:06 | 추천 0 | 조회 22
sickp**** 15:06 0 22
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (8) 답변완료
아마테라스 | 14:49 | 추천 0 | 조회 30
아마테라스 14:49 0 30
26329 VBA
New VBA 자동으로 그룹 구분하여 sheet split 기능 행열 전환 관련 질문드립니다. 첨부파일
shon**** | 13:53 | 추천 0 | 조회 12
shon**** 13:53 0 12
26324 기능/도구
New 파일 오류로 열리지 않습니다. (2)
가을남자 | 12:48 | 추천 0 | 조회 18
가을남자 12:48 0 18
26323 함수/공식
New 불려오는 data 행 길이에 따라 자동으로 행길이 바뀌도록 하는 수식/기능 관련 첨부파일 (1)
엑초파 | 12:16 | 추천 0 | 조회 29
엑초파 12:16 0 29
26308 VBA
New pdf 로 자동 저장하고 싶습니다. 첨부파일
wan**** | 04:36 | 추천 0 | 조회 36
wan**** 04:36 0 36
26295 파워쿼리/피벗
New 피벗테이블 '각 필드에 유지할 항목 수'에서 질문입니다. (3)
월마리아 | 2022.01.23 | 추천 0 | 조회 30
월마리아 2022.01.23 0 30
26294 함수/공식
New 합계값이 일치하지 않는 값 구하기! (1)
정해인 | 2022.01.23 | 추천 0 | 조회 34
정해인 2022.01.23 0 34
26290 함수/공식
New 기간구분 IF함수 에러 원인이 뭔지 모르겠어요 (6) 답변완료
마운틴 | 2022.01.23 | 추천 0 | 조회 39
마운틴 2022.01.23 0 39
26285 함수/공식
New 이번주 시작일(월요일), 마지막일(금요일) yyyy-mm-dd 형식으로 출력하는 방법 (1)
joeee | 2022.01.23 | 추천 0 | 조회 37
joeee 2022.01.23 0 37
26284 피벗테이블
New 피벗 테이블 날짜인식 및 월별 그룹화 관련 첨부파일 (3)
baechu9 | 2022.01.23 | 추천 0 | 조회 31
baechu9 2022.01.23 0 31
26278 피벗테이블
New 피벗테이블 영상보면서 따라해보고 있는데요 잘안되요 ㅠ 첨부파일 (1)
희야맘 | 2022.01.23 | 추천 0 | 조회 23
희야맘 2022.01.23 0 23
26276 문서서식
New [조건부 서식] 아직 데이터가 입력되지 않은 칸에 조건부 서식 적용하지 않도록 하기 첨부파일
jo2 | 2022.01.23 | 추천 0 | 조회 33
jo2 2022.01.23 0 33
26268 함수/공식
New 조건부서식 내에서 INDIRECT 함수와 AND 함수를 함께 사용할 수 없나요? (10)
나는나 | 2022.01.22 | 추천 0 | 조회 67
나는나 2022.01.22 0 67
26260 함수/공식
New 각 지점별 연,월 매출의 합을 구하고 싶습니다. 첨부파일 (4) 답변완료
창이 | 2022.01.22 | 추천 1 | 조회 44
창이 2022.01.22 1 44
26246 함수/공식
New 엑셀 월 구하기 주 구하기 질문 입니다. 첨부파일 (3)
천고마비 | 2022.01.22 | 추천 0 | 조회 45
천고마비 2022.01.22 0 45
26243 함수/공식
특정 조건 행 제외 후 다른 시트에 리스트화 첨부파일 (4) 답변완료
상큼한도로시 | 2022.01.21 | 추천 0 | 조회 48
상큼한도로시 2022.01.21 0 48
26239 VBA
재고관리 프로그램에서 검색할 때 체크박스 사용하는 방법이 궁금합니다. (1)
엑셀열공 | 2022.01.21 | 추천 0 | 조회 54
엑셀열공 2022.01.21 0 54
26237 피벗테이블
시간표시막대 질문 (1)
최재영 | 2022.01.21 | 추천 0 | 조회 40
최재영 2022.01.21 0 40
26236 함수/공식
컨트롤 f (찾기) 로 함수의 결과값 검색방법이 있나요? (1)
정지훈 | 2022.01.21 | 추천 0 | 조회 34
정지훈 2022.01.21 0 34
26234 함수/공식
함수를 대량변경하고싶은데 가능한지 문의드립니다. (1)
정지훈 | 2022.01.21 | 추천 0 | 조회 42
정지훈 2022.01.21 0 42
26229 함수/공식
함수를 어떤걸 써야 될지 모르겠습니다. 첨부파일 (3) 답변완료
조커 | 2022.01.21 | 추천 0 | 조회 57
조커 2022.01.21 0 57
26223 VBA
버튼이 클릭이 되지 않습니다. 방법을 모르겠어요. 첨부파일 (5)
다르마 | 2022.01.21 | 추천 0 | 조회 43
다르마 2022.01.21 0 43
26222 VBA
자료찾기 vba 문의드립니다. (2) 답변완료
ㅈㄱㄹ | 2022.01.21 | 추천 0 | 조회 45
ㅈㄱㄹ 2022.01.21 0 45
26220 함수/공식
엑셀 셀값 동일 데이터를 순서대로 카운터 하고 싶습니다. (4) 답변완료
sickp**** | 2022.01.21 | 추천 0 | 조회 41
sickp**** 2022.01.21 0 41
26217 VBA
엑셀 매크로 렉걸림해결방법문의 (1)
dud**** | 2022.01.21 | 추천 -1 | 조회 36
dud**** 2022.01.21 -1 36