초기화함수 관련 질문

VBA
작성자
달타냥
작성일
2020-11-20 12:56
조회
30

강의를 듣고 질문 드립니다.

최근 크롤링 올려주신 부분 강의 잘 듣고 많이 부분 참조하여 응용하고 있습니다.

먼저 감사드립니다.

근데 마지막 초기화 코드에서 모든 이미지를 지우는 부분이 있는데, 약간의 문제가 발생했습니다.

데이터 유효성 "목록보기" 로 입력처리를 하였고 초기화 코드를 실행하여 모든 이미지를 삭제하였는데,

간혹 목록보기 옆 화살표가 없어지는 증상이 발생하더군요?

이 부분 약간의 버그인가요? 아니면 버튼처럼 목록보기도 예외처리를 해야 하는지요?

만약 예외처리를 해야 한다면 어떻게 하는지요?

 

Sub Football_init()
Dim Shp As Shape

For Each Shp In Sheet3.Shapes
If Left(Shp.Name, 6) <> "Button" Then Shp.Delete      '버튼을 제외하고 삭제, 하지만 목록보기 버튼? 까지 삭제가 됩니다.
Next

With Sheet3
.Range(.Cells(4, 1), .Cells(23, 11)).ClearContents
.Range(.Cells(4, 1), .Cells(23, 11)).RowHeight = 30
End With

End Sub

 

 

 

 

 

 

 

 

 
달타냥
회원등급 : 가지3단계
포인트 : 675 EP
총질문 : 5 개 (마감율 : 0%)
채택답변 : 0 개
전체 3

  • 2020-11-20 16:14

    안녕하세요.

    목록보기 버튼의 도형 이름에 "Button" 이 포함되도록 변경해주시면 됩니다.^^


  • 2020-11-26 12:53

    안녕하세요? 답변 감사드립니다.

    직접 만든 도형이나, 셀 같은 경우에는 Shp.Name이 변경 하여 제외 시켰는데,

    엑셀에서 제공해주는 "목록보기 버튼"의 아래삼각형 버튼은 어떻게 이름을 바꿔야 하는지 모르겠습니다. ???


  • 2020-11-26 14:03

    debug.print Shp.Name  해보니, 목록보기 버튼이 지워질때 에러를 띄우네요.

    Shp

    응용 프로그램 정의 오류 또는 개체 정의 오류입니다

     
    목록버튼 드롭다운버튼 이미지는 저장을 하면 다시 생성 되더라구요..


전체 1,580
번호 카테고리 제목 작성자 작성일 추천 조회
1575 문서서식
New 데이터 정렬시 걸려있는 참조셀이 바뀝니다. 첨부파일
크르릉 | 2020.11.29 | 추천 0 | 조회 13
크르릉 2020.11.29 0 13
1574 문서서식
New 이미지와 도형 출력 시 위치 오류 관련
Kichan | 2020.11.29 | 추천 0 | 조회 10
Kichan 2020.11.29 0 10
1573 함수/공식
New 기초적인 질문,., 첨부파일
선크 | 2020.11.29 | 추천 0 | 조회 14
선크 2020.11.29 0 14
1572 차트/그래프
New 그래프와 슬라이서 연동 관련 질문 있습니다.
미네시마 | 2020.11.28 | 추천 0 | 조회 18
미네시마 2020.11.28 0 18
1571 문서서식
New 같은 날짜 숨김 효과를 낼수 있는 방법이 있을까요?
미네시마 | 2020.11.28 | 추천 0 | 조회 13
미네시마 2020.11.28 0 13
1570 함수/공식
New 주간업무로 입력한 내용을 연도별, 월별, 주별, 부서별로 찾아 날짜 순서대로 나열하는 방법 첨부파일
007 | 2020.11.28 | 추천 0 | 조회 31
007 2020.11.28 0 31
1569 VBA
New 엑셀 VBA 크롤링 동영상 중 Splitter로 자르는 방법에 대해 문의드립니다.
금목서 | 2020.11.28 | 추천 0 | 조회 20
금목서 2020.11.28 0 20
1568 함수/공식
New (질문)개행으로 입력된 데이터의 가공관련문의드립니다! 엑린이를 도와주세요! 첨부파일
naver_5fc1c99def443 | 2020.11.28 | 추천 0 | 조회 19
naver_5fc1c99def443 2020.11.28 0 19
1567 함수/공식
New 영문 성/이름 검사기능 질문드립니다. 첨부파일 (1)
말보루 | 2020.11.28 | 추천 0 | 조회 24
말보루 2020.11.28 0 24
1566 VBA
New VBA 값복사 수식복사 (2)
misoindc | 2020.11.28 | 추천 0 | 조회 21
misoindc 2020.11.28 0 21
1565 함수/공식
New 월,주,일 특정 구간 산출공식 첨부파일 (1)
H.B | 2020.11.27 | 추천 0 | 조회 35
H.B 2020.11.27 0 35
1564 대시보드
New 피벗 1차가공 동적그래프 문의 첨부파일 (1)
H.B | 2020.11.27 | 추천 0 | 조회 23
H.B 2020.11.27 0 23
1563 함수/공식
New 방대한 양의 데이터를 모두 수식으로 작성한 파일에서 값으로 바뀐 항목의 갯수를 카운팅하거나 (1)
김상수 | 2020.11.27 | 추천 0 | 조회 24
김상수 2020.11.27 0 24
1562 차트/그래프
New 차트에대해 질문드립니다. 첨부파일 (1)
dasdas | 2020.11.27 | 추천 1 | 조회 17
dasdas 2020.11.27 1 17
1561 기능/도구
New 줄바꿈 제거 질문입니다. (3)
옥수수수염차 | 2020.11.27 | 추천 0 | 조회 28
옥수수수염차 2020.11.27 0 28
1560 피벗테이블
New 피벗 접기 펼치기기능 슬라이서 구현화 문의 첨부파일 (2) 답변완료
H.B | 2020.11.27 | 추천 0 | 조회 36
H.B 2020.11.27 0 36
1559 VBA
네이버 연관검색어 파일 VBA 복구하거나 제거 무슨 뜻인지? (2)
Greenpunch | 2020.11.26 | 추천 0 | 조회 18
Greenpunch 2020.11.26 0 18
1558 기능/도구
엑셀 크롤링 기능을 활용한 [품절] 항목 검색 (1)
고래 | 2020.11.26 | 추천 0 | 조회 22
고래 2020.11.26 0 22
1557 VBA
VBA 창에서 프로젝트창, 속성창 등이 고정되지 않아 넘 불편합니다. ㅠㅠ (1)
공석 | 2020.11.26 | 추천 0 | 조회 23
공석 2020.11.26 0 23
1556 차트/그래프
지도차트 관련 질문 (1)
Astroz | 2020.11.26 | 추천 0 | 조회 20
Astroz 2020.11.26 0 20
1555 VBA
VBA 사용 시트병합 강의 따라하는데 매크로 단축키 지정이 안됩니다. 해결책이 있나요? (3)
공석 | 2020.11.26 | 추천 0 | 조회 28
공석 2020.11.26 0 28
1554 함수/공식
당직근무자 자동생성 관련 / 첨부파일 (1)
naver_5f055a605ee7d | 2020.11.26 | 추천 0 | 조회 36
naver_5f055a605ee7d 2020.11.26 0 36
1553 VBA
셀단위 이미지 자동추출 문제 관련 첨부파일 (1)
ezdaily | 2020.11.26 | 추천 0 | 조회 14
ezdaily 2020.11.26 0 14
1552 함수/공식
피벗테이블로 유효성검사3가지 려고하는데 잘안되요 첨부파일 (1)
ja**** | 2020.11.26 | 추천 0 | 조회 28
ja**** 2020.11.26 0 28
1551 함수/공식
PDF로 저장할때 HYPERLINK 함수를 적용시킬수 있는 방법이 있을까요? 첨부파일 (1)
찬우아빠 | 2020.11.25 | 추천 1 | 조회 36
찬우아빠 2020.11.25 1 36
1550 문서서식
한글에서 표를 엑셀로 복사붙여넣기 할때요 (2) 답변완료
욕심없는성공v | 2020.11.25 | 추천 0 | 조회 39
욕심없는성공v 2020.11.25 0 39
1549 기능/도구
du-tool 삭제시 오류메세지 문의드립니다. 첨부파일 (1)
좐킴 | 2020.11.25 | 추천 0 | 조회 15
좐킴 2020.11.25 0 15
1548 VBA
이메일 본문에 차트 삽입 (1)
달님 | 2020.11.25 | 추천 0 | 조회 22
달님 2020.11.25 0 22
1547 VBA
vba로 인터넷 창 전환 후 크기 변경 질문 드립니다. (1)
hyuk**** | 2020.11.25 | 추천 0 | 조회 19
hyuk**** 2020.11.25 0 19
1546 기능/도구
4개 기능 함수를 다운받아 설치 후 엑셀이 에러 창이 뜹니다. 첨부파일 (1)
SM AD AMERICA | 2020.11.24 | 추천 0 | 조회 34
SM AD AMERICA 2020.11.24 0 34