배열값 원하는 시트의 셀1칸에 넣는 방법

VBA
작성자
0호
작성일
2024-07-20 22:21
조회
245
엑셀버전 : 엑셀2013

운영체제 : 윈도우10


질문 요약 : cell 한칸에 배열로 뽑아엔 string 값을 넣고 싶어요

안녕하세요.

 

엑셀 VBA 완전 정복 - 8시간 풀영상 | 실무에서 필요한 핵심 기능 총정리 | 엑셀 재고관리 툴 만들기

를 따라하고 있다가 궁금한게 생겼습니다.

 

소스코드를 따라하다보면 1-8 거래처 등록하기의 응용부분에서 막혔습니다.

소스코드는 간단하게 Textbox 에 배열로 선언한 vArr(1) 값을 넣는 넣는 코드입니다.

Private Sub ListBox1_Click()

Dim vArr As Variant 'vArr배열선언'
vArr = Get_ListItm(Me.ListBox1)
Me.TPL1.Value = vArr(1)

End Sub

동작은 잘됩니다.

 

다만 이렇게 textbox1 에 넣으면서, 엑셀 cell a1 에 넣고싶은데

방법이 있을까요?

 

신고
스크랩
공유
전체 2

  • 2024-07-20 22:36

    @0호 님 Range("A1") = vArr(1)
    현재 시트가 아니라면 Worksheets("Sheet1").Range("A1") = vArr(1)


  • 2024-07-21 09:17

    자체적으로 공부해서 해결하였습니다!!

    등록 버튼 눌렀을 때 버튼 다운 선언 후  해당 함수를 하나 만들었습니다.

    Sub SelectProject()

    Dim Arr As Variant
    Arr = Get_ListItm(Me.ListBox1)

    With Sheet1
    .Range("AC1").Value = Arr(1)

    End With

    End Sub

    이걸로 해결하였습니다.

    감사합니다


전체 16,923
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 842966
오빠두엑셀 2022.02.03 554 842966
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31489
오빠두엑셀 2021.10.28 304 31489
74577 VBA
New vba 코드좀 부탁드리겠습니다. 엑셀파일첨부파일
김현우 | 14:07 | 추천 0 | 조회 9
김현우 14:07 - 9
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (2)
구리구리이 | 13:38 | 추천 0 | 조회 16
구리구리이 13:38 - 16
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (1)
서기 | 13:15 | 추천 0 | 조회 14
서기 13:15 - 14
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 12:35 | 추천 0 | 조회 24
문과적남자 12:35 - 24
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (1)
라핼 | 11:13 | 추천 0 | 조회 40
라핼 11:13 - 40
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 10:43 | 추천 0 | 조회 45
정재욱 10:43 - 45
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 08:17 | 추천 0 | 조회 49
침착해 08:17 - 49
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 07:48 | 추천 0 | 조회 40
ek02 07:48 - 40
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (3)
야만용사 | 2024.10.29 | 추천 0 | 조회 69
야만용사 2024.10.29 - 69
74542 기능/도구
New 엑셀 백분율 숫자로변경 (2)
rarara | 2024.10.29 | 추천 0 | 조회 62
rarara 2024.10.29 - 62
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (9)
| 2024.10.29 | 추천 0 | 조회 91
2024.10.29 - 91
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 71
gys**** 2024.10.29 - 71
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 69
Moto 2024.10.29 - 69
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 59
ViVaViva 2024.10.29 - 59
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 70
TMOH 2024.10.29 - 70
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (7)
말하지마00 | 2024.10.29 | 추천 0 | 조회 78
말하지마00 2024.10.29 - 78
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 61
깐부 2024.10.29 - 61
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 62
Moto 2024.10.29 - 62
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 47
angelriun 2024.10.29 - 47
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 73
우파루파 2024.10.29 - 73
74516 구글시트
New 렌덤으로 배치 할수 있는 방법이 있을까요? 첨부파일 (8)
피망이 | 2024.10.29 | 추천 0 | 조회 61
피망이 2024.10.29 - 61
74513 함수/공식
New 엑셀로 명리를 정리하던 중에.. 엑셀파일 (5)
Ballad | 2024.10.29 | 추천 0 | 조회 83
Ballad 2024.10.29 - 83
74512 함수/공식
New 오빠두 강의인데 생각이 안나서 미치겠습니다. ㅠ (2)
Protoss | 2024.10.29 | 추천 0 | 조회 87
Protoss 2024.10.29 - 87
74496 함수/공식
New 두 개의 데이터를 매칭시켜야 하는데 방법을 모르겠습니다. ㅠㅠ 첨부파일 (3)
박진수 | 2024.10.28 | 추천 0 | 조회 90
박진수 2024.10.28 - 90
74495 파워쿼리/피벗
New 특정 기간 내 데이터만 파워쿼리로 병합하기 첨부파일 (3)
황남훈 | 2024.10.28 | 추천 0 | 조회 60
황남훈 2024.10.28 - 60
74493 파워쿼리/피벗
New 파워쿼리 데이터 사용중 오류 첨부파일 (2)
910 | 2024.10.28 | 추천 0 | 조회 57
910 2024.10.28 - 57
74488 함수/공식
New 데이터를 추려야하는데 엑셀초보가 만들기에는 너무 어렵습니다ㅜㅜ 엑셀파일 (6) 답변완료
수빵빵 | 2024.10.28 | 추천 0 | 조회 119
수빵빵 2024.10.28 - 119
74487 문서서식
New 엑셀 데이터 복사 후 붙여넣기 오류 첨부파일 (1)
어진지부 | 2024.10.28 | 추천 0 | 조회 66
어진지부 2024.10.28 - 66
74486 피벗테이블
New 노란색 중량 부분 합계만 엑셀파일 (3)
수정84 | 2024.10.28 | 추천 0 | 조회 86
수정84 2024.10.28 - 86
74485 함수/공식
New 각시트 내에서 동일한 위치에 있는 데이터 추출 첨부파일 (2)
alclsq**** | 2024.10.28 | 추천 0 | 조회 74
alclsq**** 2024.10.28 - 74