VBA 범위 입력 소스 문의 합니다.

VBA
작성자
파란맥
작성일
2022-07-02 08:36
조회
124
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

아래의 범위는 Range("F13:U40") 전체의 범위 입니다.

전체의 범위가 아닌 구분하여 범위를 설정 하고 싶습니다.

Range("F13:F40"), Range("K13:K40"), Range("P13:P40"), Range("U13:U40")

이렇게 범위를 설정 하려면 어떻게 해야 하나요.

도움 주시면 고맙겠습니다.

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
On Error Resume Next

'
Application.EnableEvents = False

'<-- 선택된 셀의 행/열 번호를 받아옵니다. -->
Dim r As Long: r = Target.Row
Dim c As Long: c = Target.Column

'<-- 선택된 셀이 지정한 범위 안의 셀일 경우 명령문을 실행합니다. -->
If Not Intersect(Target, Range("F13:U40")) Is Nothing Then '범위를 입력합니다.
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
'명령문 작성
Target.Value = 1
End If
End If

Cancel = True
Application.EnableEvents = True

End Sub

전체 6

  • 2022-07-02 10:27

    @파란맥 님 Union으로 묶으시면 됩니다.

    Union(Range("F13:F40"), Range("K13:K40"), Range("P13:P40"), Range("U13:U40"))

    수고하세요.


  • 2022-07-02 11:30

    @파란맥 님 Set Rng = Range("F13:F40, K13:K40, P13:P40, U13:U40")
    If Not Intersect(Target, Rng) Is Nothing Then~

     


  • 2022-07-02 15:04

    바법의손 님

    아래와 같이 입력하니 오류가 납니다.

    '<-- 선택된 셀이 지정한 범위 안의 셀일 경우 명령문을 실행합니다. -->

    If Not Intersect(Target, Set Rng = Range("F13:F40, K13:K40, P13:P40, U13:U40"))))) Is Nothing Then '범위를 입력합니다.

    If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then


    • 2022-07-02 15:08
      채택된 답변

      @파란맥 님 그렇게 하면 안되죠..-_-

      If Not Intersect(Target, Range("F13:F40, K13:K40, P13:P40, U13:U40")) Is Nothing Then   '범위를 입력합니다.

      If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then

       

       


      • 2022-07-02 15:58

        @마법의손 님 마법의손 님

        정말 진심으로 감사의 마음 전합니다.

        vba 초기 입문하려고 집에서 시간 있을 때 회사 업무와 관련된

        자료를 가지고 연습하고 있습니다.

        3일 동안 해결 못한 부분을 마법의손 님께서 해결해 주셔서 정말 감사합니다.

        마지막 한다계 남았는데 문의 드리며 많은 도움 주시면 감사하겠습니다.

        즐거운 주말 보내세요.


        • 2022-07-02 16:34

          @파란맥 님 많이 생각해도 모를 땐 질문하고 고수님들의 답변들으면 엄청 레벨업 잘됩니다...^^ 많이 생각하시고 질문도 많이 하십시오..~

           


전체 7,312
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 7 | 조회 896
오빠두엑셀 2022.07.31 7 896
공지사항 함수/공식
New [신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 3 | 조회 64
오빠두엑셀 2022.08.04 3 64
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 116 | 조회 5981
오빠두엑셀 2021.10.28 116 5981
41024 VBA
New 무엇을 공부해야 만들 수 있을까요?? 첨부파일
뚝이 | 18:47 | 추천 0 | 조회 13
뚝이 18:47 - 13
41023 함수/공식
New 엑셀 반입 반출 list를 만들고 싶습니다. 근데 어떻게 해야할지 감이 안옵니다. 엑셀파일첨부파일
| 17:46 | 추천 1 | 조회 14
17:46 1 14
41017 함수/공식
New 카운트 관련 추가질의 드립니다. 엑셀파일 (1)
Thekey_guy | 16:31 | 추천 0 | 조회 25
Thekey_guy 16:31 - 25
41013 VBA
New 특정 셀에서 데이터 찾아내어 다른시트로 복사
itaci | 15:17 | 추천 -2 | 조회 22
itaci 15:17 -2 22
41010 문서서식
New 사용자 서식 지정 된 셀을 보이는 값 그대로 입력값을 바꾸고 싶어요/ 또는 중간 숫자를 셀서식없이 바꾸고 싶어요 첨부파일 (6)
바람개비 | 14:40 | 추천 0 | 조회 23
바람개비 14:40 - 23
41007 VBA
New 체크박스를 이용한 PDF파일 저장 문제관련 엑셀파일
qkznl**** | 14:17 | 추천 0 | 조회 23
qkznl**** 14:17 - 23
41003 함수/공식
New 다른 셀값 복사된 셀에 내용을 추가 입력하는 방법 첨부파일 (3)
마운틴 | 13:34 | 추천 0 | 조회 22
마운틴 13:34 - 22
41002 함수/공식
New 월별 제품 판매 수량과 제품별 사용 부품을 통한 월별 부품 사용 수량 구하기 엑셀파일 (2)
SELIA | 13:04 | 추천 0 | 조회 22
SELIA 13:04 - 22
40995 함수/공식
New 해당 요일이 주말일 경우 평일로 날짜를 출력하는 방법 첨부파일 (2)
juyoun**** | 10:49 | 추천 0 | 조회 34
juyoun**** 10:49 - 34
40994 함수/공식
New 다른 시트의 품목을 불러와 그 값을 비교하는 방법 (6) 답변완료
콕콕이 | 09:30 | 추천 1 | 조회 40
콕콕이 09:30 1 40
40993 함수/공식
New 다른시트 데이터 가져오기 엑셀파일 (1)
포에버하윤둥이 | 09:17 | 추천 0 | 조회 42
포에버하윤둥이 09:17 - 42
40987 VBA
New 선택한 셀 근처에 차트 나타내기 엑셀파일첨부파일 (1)
eexcell | 2022.08.08 | 추천 0 | 조회 26
eexcell 2022.08.08 - 26
40982 VBA
New 입력 수량에 따른 버튼 또는 레이블 생성 첨부파일 (1)
늙은베짱이 | 2022.08.08 | 추천 -2 | 조회 33
늙은베짱이 2022.08.08 -2 33
40974 함수/공식
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법 첨부파일 (6) 답변완료
곡식창고 | 2022.08.08 | 추천 0 | 조회 52
곡식창고 2022.08.08 - 52
40971 기능/도구
New 이름 정의 범위 선택시 에러 발생 엑셀파일첨부파일 (2)
라운드티 | 2022.08.08 | 추천 0 | 조회 39
라운드티 2022.08.08 - 39
40966 함수/공식
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법 (8) 답변완료
마운틴 | 2022.08.08 | 추천 0 | 조회 47
마운틴 2022.08.08 - 47
40963 함수/공식
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다. 엑셀파일 (1)
rin**** | 2022.08.08 | 추천 0 | 조회 37
rin**** 2022.08.08 - 37
40961 기능/도구
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ? (1)
최사무엘 | 2022.08.08 | 추천 0 | 조회 38
최사무엘 2022.08.08 - 38
40960 기능/도구
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요? 첨부파일 (2) 답변완료
니가가라 하와이 | 2022.08.08 | 추천 0 | 조회 22
니가가라 하와이 2022.08.08 - 22
40958 차트/그래프
New 그래프 가로 축 레이블 설정 부분 첨부파일 (1)
성호 | 2022.08.08 | 추천 0 | 조회 30
성호 2022.08.08 - 30
40955 함수/공식
New 선택 셀의 좌측 셀값을 가져오는 수식이 필요합니다. 엑셀파일 (3)
낮은자 | 2022.08.08 | 추천 0 | 조회 49
낮은자 2022.08.08 - 49
40953 함수/공식
New 특정 조건에 맞추어 월 별 주차 계산을 하고 싶습니다 엑셀파일첨부파일 (2)
행주 | 2022.08.07 | 추천 0 | 조회 36
행주 2022.08.07 - 36
40952 문서서식
New 데이터 유효성 검사 - 드롭다운 표시 항상 보이게? 첨부파일 (1)
두리둥 | 2022.08.07 | 추천 0 | 조회 30
두리둥 2022.08.07 - 30
40945 VBA
New 엑셀 파일 엑셀 다른이름 자동 저장이 가능할까요? 노가다 살려주세요 ㅠㅠ (2)
듀링e | 2022.08.07 | 추천 0 | 조회 61
듀링e 2022.08.07 - 61
40937 파워쿼리/피벗
New 시트별로 열이 다른 경우 시트를 통합하는 방법 첨부파일 (1)
곰도리 | 2022.08.07 | 추천 0 | 조회 37
곰도리 2022.08.07 - 37
40936 VBA
New 달력 유저폼 실행위치관련 질문 엑셀파일첨부파일 (7) 답변완료
033cola | 2022.08.07 | 추천 1 | 조회 50
033cola 2022.08.07 1 50
40921 함수/공식
New 값이 있는 경우에만 DATE 함수가 적용되도록 하고 싶습니다. 첨부파일 (2) 답변완료
지용 | 2022.08.06 | 추천 0 | 조회 53
지용 2022.08.06 - 53
40916 문서서식
New 이동옵션에서 상수와 수식 첨부파일 (1)
황혼고래 | 2022.08.06 | 추천 0 | 조회 53
황혼고래 2022.08.06 - 53
40915 문서서식
New 셀 서식 중 "월", 월 차이 (2)
보라색양털 | 2022.08.06 | 추천 1 | 조회 50
보라색양털 2022.08.06 1 50
40912 함수/공식
New IF 조건문이 잘 되지 않습니다. 첨부파일 (5) 답변완료
비트리 | 2022.08.06 | 추천 0 | 조회 53
비트리 2022.08.06 - 53