VBA 범위 입력 소스 문의 합니다.
VBA
작성자
파란맥
작성일
2022-07-02 08:36
조회
124
아래의 범위는 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
전체 7,312
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
![]() ![]() |
![]() ![]() |
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 | - | 13 |
41023 | 함수/공식 |
New 엑셀 반입 반출 list를 만들고 싶습니다. 근데 어떻게 해야할지 감이 안옵니다.
![]() ![]() ![]() |
![]() |
17:46 | 1 | 14 |
41017 | 함수/공식 |
New 카운트 관련 추가질의 드립니다.
![]() ![]() |
![]() |
16:31 | - | 25 |
41013 | VBA |
New 특정 셀에서 데이터 찾아내어 다른시트로 복사
![]() |
![]() |
15:17 | -2 | 22 |
41010 | 문서서식 |
New 사용자 서식 지정 된 셀을 보이는 값 그대로 입력값을 바꾸고 싶어요/ 또는 중간 숫자를 셀서식없이 바꾸고 싶어요
![]() ![]() |
![]() |
14:40 | - | 23 |
41007 | VBA |
New 체크박스를 이용한 PDF파일 저장 문제관련
![]() ![]() |
![]() |
14:17 | - | 23 |
41003 | 함수/공식 |
New 다른 셀값 복사된 셀에 내용을 추가 입력하는 방법
![]() ![]() |
![]() |
13:34 | - | 22 |
41002 | 함수/공식 |
New 월별 제품 판매 수량과 제품별 사용 부품을 통한 월별 부품 사용 수량 구하기
![]() ![]() |
![]() |
13:04 | - | 22 |
40995 | 함수/공식 |
New 해당 요일이 주말일 경우 평일로 날짜를 출력하는 방법
![]() ![]() |
![]() |
10:49 | - | 34 |
40994 | 함수/공식 |
New 다른 시트의 품목을 불러와 그 값을 비교하는 방법
(6)
답변완료
![]() |
![]() |
09:30 | 1 | 40 |
40993 | 함수/공식 |
New 다른시트 데이터 가져오기
![]() ![]() |
![]() |
09:17 | - | 42 |
40987 | VBA |
New 선택한 셀 근처에 차트 나타내기
![]() ![]() ![]() |
![]() |
2022.08.08 | - | 26 |
40982 | VBA |
New 입력 수량에 따른 버튼 또는 레이블 생성
![]() ![]() |
![]() |
2022.08.08 | -2 | 33 |
40974 | 함수/공식 |
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법
![]() ![]() |
![]() |
2022.08.08 | - | 52 |
40971 | 기능/도구 |
New 이름 정의 범위 선택시 에러 발생
![]() ![]() ![]() |
![]() |
2022.08.08 | - | 39 |
40966 | 함수/공식 |
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법
(8)
답변완료
![]() |
![]() |
2022.08.08 | - | 47 |
40963 | 함수/공식 |
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다.
![]() ![]() |
![]() |
2022.08.08 | - | 37 |
40961 | 기능/도구 |
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ?
(1)
![]() |
![]() |
2022.08.08 | - | 38 |
40960 | 기능/도구 |
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요?
![]() ![]() |
![]() |
2022.08.08 | - | 22 |
40958 | 차트/그래프 |
New 그래프 가로 축 레이블 설정 부분
![]() ![]() |
![]() |
2022.08.08 | - | 30 |
40955 | 함수/공식 |
New 선택 셀의 좌측 셀값을 가져오는 수식이 필요합니다.
![]() ![]() |
![]() |
2022.08.08 | - | 49 |
40953 | 함수/공식 |
New 특정 조건에 맞추어 월 별 주차 계산을 하고 싶습니다
![]() ![]() ![]() |
![]() |
2022.08.07 | - | 36 |
40952 | 문서서식 |
New 데이터 유효성 검사 - 드롭다운 표시 항상 보이게?
![]() ![]() |
![]() |
2022.08.07 | - | 30 |
40945 | VBA |
New 엑셀 파일 엑셀 다른이름 자동 저장이 가능할까요? 노가다 살려주세요 ㅠㅠ
(2)
![]() |
![]() |
2022.08.07 | - | 61 |
40937 | 파워쿼리/피벗 |
New 시트별로 열이 다른 경우 시트를 통합하는 방법
![]() ![]() |
![]() |
2022.08.07 | - | 37 |
40936 | VBA |
New 달력 유저폼 실행위치관련 질문
![]() ![]() ![]() |
![]() |
2022.08.07 | 1 | 50 |
40921 | 함수/공식 |
New 값이 있는 경우에만 DATE 함수가 적용되도록 하고 싶습니다.
![]() ![]() |
![]() |
2022.08.06 | - | 53 |
40916 | 문서서식 |
New 이동옵션에서 상수와 수식
![]() ![]() |
![]() |
2022.08.06 | - | 53 |
40915 | 문서서식 |
New 셀 서식 중 "월", 월 차이
(2)
![]() |
![]() |
2022.08.06 | 1 | 50 |
40912 | 함수/공식 |
New IF 조건문이 잘 되지 않습니다.
![]() ![]() |
![]() |
2022.08.06 | - | 53 |
@파란맥 님 Union으로 묶으시면 됩니다.
Union(Range("F13:F40"), Range("K13:K40"), Range("P13:P40"), Range("U13:U40"))
수고하세요.
@파란맥 님 Set Rng = Range("F13:F40, K13:K40, P13:P40, U13:U40")
If Not Intersect(Target, Rng) Is Nothing Then~
바법의손 님
아래와 같이 입력하니 오류가 납니다.
'<-- 선택된 셀이 지정한 범위 안의 셀일 경우 명령문을 실행합니다. -->
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
@파란맥 님 그렇게 하면 안되죠..-_-
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
@마법의손 님 마법의손 님
정말 진심으로 감사의 마음 전합니다.
vba 초기 입문하려고 집에서 시간 있을 때 회사 업무와 관련된
자료를 가지고 연습하고 있습니다.
3일 동안 해결 못한 부분을 마법의손 님께서 해결해 주셔서 정말 감사합니다.
마지막 한다계 남았는데 문의 드리며 많은 도움 주시면 감사하겠습니다.
즐거운 주말 보내세요.
@파란맥 님 많이 생각해도 모를 땐 질문하고 고수님들의 답변들으면 엄청 레벨업 잘됩니다...^^ 많이 생각하시고 질문도 많이 하십시오..~