동적범위 시용하여 완성된 콤보박스를 ACTIVE-X콤보박스로 변환하는 법

VBA
작성자
마운틴
작성일
2021-09-06 02:33
조회
51
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10


오빠두 선생님 동영상을 보고

1.유효성 2단계 검사 콤보박스 및  2. 유효성 부분일치 검색 콤보박스를 민들었습니다

그런데 콤보박스의 글씨가 너무 적어 ACTIVE-,X 콤보상자를 다시 만들려 하니 기존에 동적범위를 이용해 이미 만들어 둔

제가 콤보박스를 VBA에서 어떻게 바꾸어 줄 지 모르겠어요

  1. 원청고객사명을 검색하기 위해 D4번 셀에 XX를 입력하고 엔터를 치면  XX가 포함된 업체이름이  D4바로 밑에 콤보상자로 나타나 업체를 선택할 수 있도록 민들었습니다
  2. (D3 개발의뢰사도 마찬가지)
  3. J3셀의 콤보상자에서 원료군을 선택하면 해당 원료군에 해당되는 원료품목만 K3 콤보상자에 나타나도록 만들었습니다

콤보상자의 글씨만 키우려고 테스트용으로 D3에 ACTIVE 콤보상자를 입력해 두기는 했는데

그 다음부터 어떻게 해야할 지 모르겠습니다

제가 VBA를 할 줄 모르지만 일반적 콤보상자는 VBA 속성에서  LISTFILLRANGE나 LINKEDCELL에 데이타를 넣어주면  된다는 건 어떻게 어떻게 알게 되었는데

아래처럼 사전에 이름을 정의하여 (원료품목검색, 원청고객사 등) 참조대상에 동적범위를

넣어둔 경우에는 어떻게 하면 ACTIVE X 콤보박스로 쉽게 변환 가능한지 고수님들 도움 부탁드립니다

 

작업파일을 첨부하였습니다

 

회원등급 : 가지2단계
포인트 : 492 EP
총질문 : 25 개 (마감율 : 24%)
채택답변 : 0 개
전체 5

  • 2021-09-06 08:17

    저도 예전에 똑같은  내용으로 질문올린적 있어 링크 남깁니다.

    https://www.oppadu.com/question/?keyword=&uid=4186&mod=document&pageid=1


    • 2021-09-07 17:34

      네 감사합니다

      링크내용을 보니 결론은

      Private Sub Worksheet_Activate()
      
      Sheet1.ComboBox1.ListFillRange = "'" & Sheet2.Name & "'!" & Sheet2.Range("콤보범위").Address
      
      End Sub
      
      이렁게 수정하라고 오빠두액셀님이 말씀하셨는데 제가 VBA에 
      거의 까막문이라 제 경우에는 어떻게 적용해야 할 지 모르겠네요
      
      별첨 제 작업파일을 보시고 혹시 업체, 원료군, 원료품목 중 1가지만 
      예시로 VBA 구문을 짜 주실수 없을까요?
      

      • 2021-09-08 21:15

        일딴 간단하게 업체명시트에서 어떠한 셀이든 셀 값이 변하면 그에 따라 콤보박스의 리스트가 업데이트 되는 메크로를 첨부해드렸습니다.

        첨부파일 : 유효성검사-질문.Sol_.xlsm


        • 2021-09-09 23:10

          넵 감사합니다

          그런데[ 제가 원하는 것은 검색창 시트에 이미 만들어져 있는 일반 콤보상자

          (업체,원료군, 원료품목)을 ACTIVE X 콤보상자로 바꾸는 거거든요

          일반 콤보상자의 이름정의 참조대상에는 동적범위 함수가 이미 들어가 있습퓸니다  이 함수를 ACTIVE-X 콤보상자에 그대로 적용되도록 VBA를

          짜기 위해서 어떻게[ 해야하는지 몰라서 헤매고 있네요

          (일반콤보상자 업체에 이름 몇글자를 치면 그 업체이름을 토함한 업체이름이 콤보박스로 조회되고 그 중 한업체를 선택하는 식으로 함수를 만들였고

          이를 유효성검사 "원본"에  이름정의로 반영하여 동적범위 구성)

           

          * 이름정의 : 업체검색

          * 동적범위 함수 :

          * 동적범위 함수 : =OFFSET(업체명!$G$3,,,COUNTIF(업체명!G$3:G$100,"*?"))

          댓글에 구체적 사진과 설명을 추가하기 곤란하여 다시 메인 질문에 자세히 올리겠습니;다  혹시 가능하시면 보시고 도움부탁드립니다~~

          새 질문은 3910번에 올라가 있습니다

           


          • 2021-09-10 13:28

            새로 만든 콤보박스나 기존에 있던 콤보박스나 메크로는 똑같습니다.

            다만 제가 새로 콤보박스를 만들어 작업한 이유는 올려주신 이미지와 파일이 조금 다르기에 업체명 시트에 콤보박스를 하나 만들어 적용한 것입니다.

            콤보박스 리스트를 받을 때

            해당 리스트 목록이 나오는 시트이름까지 넣어줘야 동작하는점을 잊지 않으신다면 충분히 구현하실 수 있을것입니다.

             또한 저는 업체명 시트의 내용이 변동이 생길때마다 리스트가 업데이트가 되게 만들었습니다
            또한 콤보박스의 이름이 무엇인지 디자인 모드를 통해 선택 후 F4키를 눌러 속성창에서 확인하셔서 해당 콤보박스를 조정하시는 쪽으로 코딩을 하시면 됩니다.


전체 4,001
번호 카테고리 제목 작성자 작성일 추천 조회
3985 피벗테이블
New (도움바랍니다)한명의 대표가 다수의 사업장을 운영하는 경우
일랑일랑 | 11:31 | 추천 0 | 조회 1
일랑일랑 11:31 0 1
3984 함수/공식
New 함수 만들 수 있을까요?
soo | 09:47 | 추천 0 | 조회 5
soo 09:47 0 5
3983 VBA
New 엑셀 VBA에서 RemoveDuplicates 사용시 '5' 런타임 오류가 발생하여 해결 방법 문의드립니다. (1)
namonamo | 02:14 | 추천 0 | 조회 8
namonamo 02:14 0 8
3982 함수/공식
New (도와주세요) INDEX, MATCH 를 통해 만들었는데 많이 무거워요ㅠ 첨부파일 (3)
18 강영순 | 02:07 | 추천 0 | 조회 18
18 강영순 02:07 0 18
3981 VBA
New 재고관리 툴 만들기 8시간 풀영상 중 목록상자 가시성과 다중페이지에 대해 질문합니다.
나두엑셀왕 | 2021.09.18 | 추천 0 | 조회 11
나두엑셀왕 2021.09.18 0 11
3980 기능/도구
New 목록 단추 차수 조회를 피벗테이블과 연동해서 총괄표 조회 할때 에러 발생 해결 부탁드려요~~ 첨부파일 (1)
알면서 | 2021.09.18 | 추천 0 | 조회 11
알면서 2021.09.18 0 11
3979 파워쿼리/피벗
New 웹데이터 엑셀로 가져오기 (1)
yoo | 2021.09.18 | 추천 -1 | 조회 28
yoo 2021.09.18 -1 28
3978 기능/도구
New 아이콘을 매뉴에 저장하는 방법 문의 (1)
Trimman | 2021.09.18 | 추천 0 | 조회 20
Trimman 2021.09.18 0 20
3977 VBA
New 선택 행 강조 매크로 사용시 복사/붙여넣기 할 수 있는 방법 있을까요? (1)
차오 | 2021.09.17 | 추천 0 | 조회 30
차오 2021.09.17 0 30
3976 함수/공식
New index/match 함수 사용시 다중 데이터을 합산하여 데이터 합계 끌고오는 방법이 있을까요? 첨부파일 (1)
관절바람 | 2021.09.17 | 추천 0 | 조회 28
관절바람 2021.09.17 0 28
3975 VBA
New VBA 시트명을 참조하는 함수입력 매크로에서 시트명을 변수로 설정하는 방법 (1)
kimki**** | 2021.09.17 | 추천 0 | 조회 24
kimki**** 2021.09.17 0 24
3974 함수/공식
New [카운팅 함수 해결방법] 고수님들 아무쪼록 가르침을 주시면 감사하겠습니다! 첨부파일 (2) 답변완료
CreativeGil | 2021.09.17 | 추천 0 | 조회 36
CreativeGil 2021.09.17 0 36
3973 함수/공식
New 일자/품목 열 행으로 나눠져 있는 자료 끌고오기 (1)
top**** | 2021.09.17 | 추천 0 | 조회 30
top**** 2021.09.17 0 30
3972 함수/공식
New 엑셀 함수 질문 첨부파일
향기 | 2021.09.17 | 추천 0 | 조회 38
향기 2021.09.17 0 38
3971 VBA
New VBA 로 만든 임시 POS에서, 바코드 열과 날짜 추가하는 방법 문의 드립니다 첨부파일 (1)
효율 | 2021.09.17 | 추천 0 | 조회 34
효율 2021.09.17 0 34
3970 기능/도구
New 스프레드시트 복사 붙여넣기 큰따옴표 지우는법 알려주실분 (1)
제비제비 | 2021.09.17 | 추천 0 | 조회 16
제비제비 2021.09.17 0 16
3969 VBA
New 동영상 처럼 엑셀로 만들어 질까요? (1)
yoo | 2021.09.16 | 추천 0 | 조회 39
yoo 2021.09.16 0 39
3968 VBA
New 기준열로 데이터 댕겨주기 질문 첨부파일 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 34
H.B 2021.09.16 0 34
3967 기능/도구
New 다른 시트 참조 자동 계산 (1)
skyline | 2021.09.16 | 추천 0 | 조회 43
skyline 2021.09.16 0 43
3966 함수/공식
New 엑셀 함수 질문 첨부파일 (1)
향기 | 2021.09.16 | 추천 0 | 조회 25
향기 2021.09.16 0 25
3965 VBA
New 재질문 줄바꿈, 배열쪼개기 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 37
H.B 2021.09.16 0 37
3964 VBA
New 폴더내 모든파일의 '특정시트' '각 파일' 제일 앞 시트로 복사
강대국 | 2021.09.16 | 추천 0 | 조회 22
강대국 2021.09.16 0 22
3963 VBA
New 사용자지정함수 관련 문의 입니다.
Nir | 2021.09.16 | 추천 0 | 조회 22
Nir 2021.09.16 0 22
3962 파워쿼리/피벗
New 파워쿼리 열 추가 첨부파일 (2)
슝슝 | 2021.09.16 | 추천 0 | 조회 24
슝슝 2021.09.16 0 24
3961 함수/공식
"월"&"주 차별" 관련 문의 드립니다 ㅠㅠ!! 첨부파일 (2) 답변완료
송민정 | 2021.09.16 | 추천 0 | 조회 39
송민정 2021.09.16 0 39
3960 VBA
표 데이터 다른표에 복사 붙여넣기 하는 매크로 첨부파일
이도현 | 2021.09.16 | 추천 0 | 조회 21
이도현 2021.09.16 0 21
3959 VBA
Range 안에 변수 넣기 (2) 답변완료
kimki**** | 2021.09.16 | 추천 0 | 조회 37
kimki**** 2021.09.16 0 37
3958 함수/공식
시트 내 중복되는 문자열이 있을 때 표시할 수 있는 함수나 방법 (6) 답변완료
보조메일 | 2021.09.16 | 추천 0 | 조회 42
보조메일 2021.09.16 0 42
3957 VBA
썸네일 이미지 url 추출 첨부파일 (8)
넘버원 | 2021.09.16 | 추천 0 | 조회 46
넘버원 2021.09.16 0 46
3956 피벗테이블
엑셀 피벗테이블 필터에 대한 질문입니다. 첨부파일 (1)
치킨카뤠 | 2021.09.15 | 추천 0 | 조회 26
치킨카뤠 2021.09.15 0 26