유효성검사 목록에서 셀을 선택하면 탑다운이 되면서 맨 위의 값부터 보이게 하고 싶습니다

VBA
작성자
마선생
작성일
2021-11-08 20:32
조회
45
엑셀버전 : M365

운영체제 : 윈도우10

코딩하기 전에 자동매크를 사용해서 유효성을 셀에 넣는 법을 참조 한후에

VBA코딩시에 아래와 같이 넣었습니다.

제가 알고 싶은 것은 두가지입니다.

  1. 유효성목록 셀을 선택해서 열면 맨 밑의 값 F23 셀의 값이 나옵니다. 이것을 맨위의값  F5가 먼저 나에게 하고 싶습니다.
  2. Formula1:="=DataBase!$F$5:$F23" 이렇게 넣는 부분에 변수를 적용하려면 어떻게 해야 하나요?
    KKK 라는 변수가 23이라는 값을 가지고 있을때 F23 대신에 & KKK 식으로 해서 값이 바뀌어도 변수로 처리하고 싶습니다

아래는 제가 적은 부분입니다

Set rng1 = Range("B3").Offset(1, 1).Resize(15, 7)

rng1.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DataBase!$F$5:$F23"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

전체 2

  • 2021-11-08 21:35

    똑 같이 Coding 한 결과 정확히 참조 Range의 List와 똑같이 나오는데 파일이 없어 무어라 말씀드리기 어렵군요. 아래 사진 참조하여 주시기 바랍니다.


    • 2021-11-09 14:12

      @Yukon 님 항상 친절한 답변 감사드립니다. 저도 해보니까 어쩔때는 바로 나오고 어쩔때는 맨 밑부터 나오고 그렇습니다. 뭔가 이유가 있을 것 같은데 연구중입니다.


전체 4,633
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 12 | 조회 664
트로피 오빠두엑셀 2021.10.28 12 664
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련
유지연 | 00:11 | 추천 0 | 조회 5
유지연 00:11 0 5
24098 VBA
New 워드 Format(숫자, "#,###") (1)
argus | 2021.11.28 | 추천 0 | 조회 10
argus 2021.11.28 0 10
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 12
축전 2021.11.28 0 12
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 7
가을전어 2021.11.28 0 7
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련
어루 | 2021.11.28 | 추천 0 | 조회 10
어루 2021.11.28 0 10
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 14
y**** 2021.11.28 0 14
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (1)
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 16
ㅈㄱㄹ 2021.11.28 0 16
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일
007 | 2021.11.28 | 추천 0 | 조회 25
007 2021.11.28 0 25
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 21
루s cos 개인대행 2021.11.28 0 21
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (5)
호랑이파워 | 2021.11.28 | 추천 0 | 조회 43
호랑이파워 2021.11.28 0 43
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 28
월마리아 2021.11.28 0 28
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 41
jyj6**** 2021.11.27 0 41
24060 VBA
New 메모리가 부족하다고 뜹니다. 첨부파일
선물 | 2021.11.27 | 추천 0 | 조회 25
선물 2021.11.27 0 25
24059 VBA
New 첨부파일을 서버 업로드 (1)
권원재 | 2021.11.27 | 추천 0 | 조회 24
권원재 2021.11.27 0 24
24053 파워쿼리/피벗
New 엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 2021.11.27 | 추천 1 | 조회 29
jyj6**** 2021.11.27 1 29
VBA
New Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 2021.11.27 | 추천 1 | 조회 36
Yukon 2021.11.27 1 36
피벗테이블
New Re:Re:엑셀 배열 순서를 바꾸고 싶습니다. (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 22
jyj6**** 2021.11.27 0 22
24048 VBA
New 재고관리 툴 만들기 질문이요 첨부파일 (3)
선물 | 2021.11.26 | 추천 0 | 조회 35
선물 2021.11.26 0 35
24046 함수/공식
New 날짜별로 근태 정리를 하려면 어떻게 해야할까요 첨부파일 (2)
ㅁㅁㅁㅁㅁ | 2021.11.26 | 추천 0 | 조회 49
ㅁㅁㅁㅁㅁ 2021.11.26 0 49
24042 VBA
New 한 코드를 가진 사람의 계약일자 최소값 최대값 구하기 첨부파일 (2)
seorin | 2021.11.26 | 추천 0 | 조회 31
seorin 2021.11.26 0 31
24039 함수/공식
New 다중 조건 및 가장 낮은 일시에 매칭되는 값 불러오기 첨부파일 (6)
감사하모니카 | 2021.11.26 | 추천 0 | 조회 33
감사하모니카 2021.11.26 0 33
24038 VBA
New ZAN IMAGE PRINTER 프로그램에서 JPG 파일명을 내 마음대로 (3)
goodman | 2021.11.26 | 추천 0 | 조회 22
goodman 2021.11.26 0 22
24033 문서서식
New 조건부 서식 특정열 단어포함시 해당 행의 서식 변경 방법 첨부파일 (2) 답변완료
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 31
아빠의꿈 2021.11.26 0 31
24032 함수/공식
New 함수 초보 질문있습니다. (2) 답변완료
윤태종 | 2021.11.26 | 추천 0 | 조회 31
윤태종 2021.11.26 0 31
24029 VBA
New 엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법 첨부파일 (1)
엑셀이 | 2021.11.26 | 추천 0 | 조회 37
엑셀이 2021.11.26 0 37
24014 VBA
New Private Sub Worksheet_Change(ByVal Target As Range) 조건문의 (1)
yg | 2021.11.26 | 추천 1 | 조회 35
yg 2021.11.26 1 35
24011 VBA
vba 고급필터후 인쇄 자동화 첨부파일 (1)
naver_6180ef1e63220 | 2021.11.26 | 추천 0 | 조회 39
naver_6180ef1e63220 2021.11.26 0 39
24010 문서서식
양이 많은 '병합하고 가운데 맞춤 '버튼을 눌러서 할일을 쉽게 하는방법 첨부파일 (3)
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 46
아빠의꿈 2021.11.26 0 46
24009 함수/공식
오빠두 강의 중 마지막셀 이동에 관하여 질문드립니다. (MATCH함수) (2)
월마리아 | 2021.11.25 | 추천 0 | 조회 38
월마리아 2021.11.25 0 38
24006 함수/공식
조건부 서식 함수 첨부파일 (1)
AFOPWEOI1213 | 2021.11.25 | 추천 -1 | 조회 44
AFOPWEOI1213 2021.11.25 -1 44
24005 파워쿼리/피벗
파워쿼리에서 다중조건 평균구하기 (1)
황선규 | 2021.11.25 | 추천 0 | 조회 28
황선규 2021.11.25 0 28
24002 기능/도구
엑셀 요 기능 이름이 뭐죠?ㅜㅜ (2) 답변완료
냥냥 | 2021.11.25 | 추천 0 | 조회 44
냥냥 2021.11.25 0 44