재고관리 프로그램 26강 보충자료의 ArrayToRng에 관한 질문입니다.

VBA
작성자
iviolin****
작성일
2021-07-18 18:04
조회
147
엑셀버전 : M365

운영체제 : 윈도우10


ArrayToRng에 관한 질문입니다.

Sub ArrayToRng(startRng As Range, Arr As Variant)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ ArrayToRng 함수
'▶ 배열을 범위 위로 반환합니다.
'▶ 인수 설명
'_____________startRng      : 배열을 반환할 기준 범위(셀) 입니다.
'_____________Arr               : 반환할 배열입니다.
'▶ 사용 예제
'Dim v As Variant
'ReDim v(0 to 1)
''v(0) = "a" : v(1) = "b"
'ArrayToRng Sheet1.Range("A1"), v
'##############################################################
 
On Error GoTo SingleDimension:
startRng.Cells(1, 1).Resize(UBound(Arr, 1) - LBound(Arr, 1) + 1, UBound(Arr, 2) - LBound(Arr, 2) + 1) = Arr
 
Exit Sub
SingleDimension:
Dim tempArr As Variant: Dim i As Long
ReDim tempArr(LBound(Arr, 1) To UBound(Arr, 1), 1 To 1)
For i = LBound(Arr, 1) To UBound(Arr, 1)
    tempArr(i, 1) = Arr(i)
Next
startRng.Cells(1, 1).Resize(UBound(Arr, 1) - LBound(Arr, 1) + 1, 1) = tempArr
 
End Sub

에서 SingleDimension 은 어떤 경우를 가정해서 만든 코드인가요?

오류가 있으면 startRng부터 첫번째 행의 값만 Arr의 값을 넣는 건 알겠는데

SingleDimension이 실행되는 경우가 어떤 경우를 가정하여 첫 행만 넣는건지 궁금합니다.

 

회원등급 : 나무5단계
포인트 : 4906 EP
총질문 : 31 개 (마감율 : 39%)
채택답변 : 61 개
전체 1

  • 2021-07-19 06:41
    채택된 답변

    코드에서

    UBound(Arr, 2) - LBound(Arr, 2)

    이 부분은 차원이 2차원이 아니면 오류가 발생할거고, 그러면 1차원 배열로 인식해서 SingleDimension 절로 넘어가는 것 같네요.


전체 3,571
번호 카테고리 제목 작성자 작성일 추천 조회
3557 함수/공식
New 도와주세요 ... ㅠㅠ (1)
향기 | 08:06 | 추천 0 | 조회 13
향기 08:06 0 13
3556 VBA
New 경우의 수 나열계산 및 값 표기 방법 궁금합니다 첨부파일
슬렁슬렁 | 2021.08.04 | 추천 0 | 조회 14
슬렁슬렁 2021.08.04 0 14
3555 함수/공식
New COUNTIFS 적용 가능 여부 (1)
노갈 | 2021.08.04 | 추천 0 | 조회 17
노갈 2021.08.04 0 17
3554 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법 오류 2 (1)
Finir2017 | 2021.08.04 | 추천 1 | 조회 16
Finir2017 2021.08.04 1 16
3553 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법 오류 1 (1)
Finir2017 | 2021.08.04 | 추천 1 | 조회 15
Finir2017 2021.08.04 1 15
3552 VBA
New 사용자 유저폼에서 콤보박으로 선택하는 조건에 따라 매핑된 코드 불러오는 방법 연구
고병관 | 2021.08.04 | 추천 0 | 조회 18
고병관 2021.08.04 0 18
3551 함수/공식
New 함수를 잘모르겠습니다. (1)
벨로 | 2021.08.04 | 추천 0 | 조회 20
벨로 2021.08.04 0 20
3550 기능/도구
New 표 에서 검색할 때 속도 질문 드립니다. (2)
이우용님 | 2021.08.04 | 추천 0 | 조회 15
이우용님 2021.08.04 0 15
3549 함수/공식
New index - match 함수오류 해결 문의 - 인수를 너무 많이 입력했습니다. (1)
이친절카인드 | 2021.08.04 | 추천 0 | 조회 31
이친절카인드 2021.08.04 0 31
3548 피벗테이블
New 슬라이서를 이용한 다중 피벗테이블 연결에서 수식참조 메세지가 뜹니다. (1)
| 2021.08.04 | 추천 0 | 조회 25
2021.08.04 0 25
3547 기능/도구
New 셀 복사 (2)
우라기 | 2021.08.04 | 추천 0 | 조회 20
우라기 2021.08.04 0 20
3546 함수/공식
New 특정날짜가 기록되면, 카운트 누적을 초기화하여 다시 카운트할 수 있을까요? 첨부파일 (1)
포니 | 2021.08.04 | 추천 0 | 조회 38
포니 2021.08.04 0 38
3545 함수/공식
New 시트 간 연동 관련 (1)
pensa**** | 2021.08.04 | 추천 0 | 조회 37
pensa**** 2021.08.04 0 37
3544 문서서식
New 엑셀 와일드카드 * 별표 질문드립니다. 첨부파일 (3)
월마리아 | 2021.08.03 | 추천 0 | 조회 38
월마리아 2021.08.03 0 38
3543 함수/공식
New 순위와 등급을 이용한 1~7지망까지 정렬하는 방법이 있을까요? 첨부파일 (2)
똑똑한곰 | 2021.08.03 | 추천 0 | 조회 38
똑똑한곰 2021.08.03 0 38
3542 VBA
New 아래셀 복사 또는 값이 자동입력되는 매크로 (제발 도와주세요) 첨부파일 (5)
욕심없는성공v | 2021.08.03 | 추천 0 | 조회 40
욕심없는성공v 2021.08.03 0 40
3541 함수/공식
New Check list 자동화를 도와 주세요 첨부파일 (4)
Finir2017 | 2021.08.03 | 추천 1 | 조회 41
Finir2017 2021.08.03 1 41
3540 문서서식
New 함수 이용한 조건부서식 (2) 답변완료
블링블링 | 2021.08.03 | 추천 0 | 조회 35
블링블링 2021.08.03 0 35
3539 함수/공식
New 엑셀 마스터님들, 도와주십쇼. 머리 깨질 것 같습니다. (5) 답변완료
93 | 2021.08.03 | 추천 0 | 조회 68
93 2021.08.03 0 68
3538 VBA
New 오빠두님 파파고 번역기 및 크롤링 네트워크 CLASS문의 첨부파일
H.B | 2021.08.03 | 추천 1 | 조회 31
H.B 2021.08.03 1 31
3537 문서서식
New 재고관리관련 문의 드립니다. (2)
안개숲지기 | 2021.08.03 | 추천 0 | 조회 42
안개숲지기 2021.08.03 0 42
3536 함수/공식
New 일용노무비명세서 첫출근일및마지막근로일 함수 알려주세요 첨부파일 (4)
jhp | 2021.08.03 | 추천 0 | 조회 26
jhp 2021.08.03 0 26
3535 기능/도구
New 엑셀 공백기준으로 텍스트나누기 에러 첨부파일 (1)
naver_6108ea4bb3708 | 2021.08.03 | 추천 0 | 조회 22
naver_6108ea4bb3708 2021.08.03 0 22
3534 VBA
New 구글스프레드시트 pdf 저장 스크립트(매크로) (1)
메꾸똘 | 2021.08.03 | 추천 0 | 조회 25
메꾸똘 2021.08.03 0 25
3533 함수/공식
New vlookup으로 찾은 값의 합구하기 (2) 답변완료
리듬 | 2021.08.03 | 추천 0 | 조회 36
리듬 2021.08.03 0 36
3532 함수/공식
New 사이값 자동계산 방법 (1)
실비아 | 2021.08.03 | 추천 0 | 조회 31
실비아 2021.08.03 0 31
3531 문서서식
New 두개의 파일을 띄워놓고 한쪽 파일에서 셀 드래그해서 상태표시줄에 나타난 합계 값을 다른쪽 파일에서 보고 입력하고싶습니다.
무마메 | 2021.08.03 | 추천 0 | 조회 25
무마메 2021.08.03 0 25
3530 함수/공식
New DuTool 수식참조 (3)
casanova | 2021.08.03 | 추천 0 | 조회 30
casanova 2021.08.03 0 30
3529 기능/도구
New 외부 원본(Raw Data) 엑셀 데이터 사용 방법 (2)
kevin5616 | 2021.08.03 | 추천 2 | 조회 45
kevin5616 2021.08.03 2 45
3528 함수/공식
New =counta(green) 함수 (6) 답변완료
Finir2017 | 2021.08.02 | 추천 1 | 조회 62
Finir2017 2021.08.02 1 62