배열값 원하는 시트의 셀1칸에 넣는 방법
VBA
작성자
0호
작성일
2024-07-20 22:21
조회
245
안녕하세요.
엑셀 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 에 넣고싶은데
방법이 있을까요?
전체 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 |
@0호 님 Range("A1") = vArr(1)
현재 시트가 아니라면 Worksheets("Sheet1").Range("A1") = vArr(1)
자체적으로 공부해서 해결하였습니다!!
등록 버튼 눌렀을 때 버튼 다운 선언 후 해당 함수를 하나 만들었습니다.
Sub SelectProject()
Dim Arr As Variant
Arr = Get_ListItm(Me.ListBox1)
With Sheet1
.Range("AC1").Value = Arr(1)
End With
End Sub
이걸로 해결하였습니다.
감사합니다