[VBA] userform의 데이터배열 worksheet로 옮기기

커뮤니티

호기심해결

1031

레어·유머·자작

제휴

인기 소모임

첫 페이지 랜덤 글 회원가입 로그인

비공개 손님 … 2017-07-24 15:43:01

URL https://te31.com/rgr/view.php?id=study&no=2333 모바일 화면

[VBA] userform의 데이터배열 worksheet로 옮기기

첨부 이미지 : 2개

Userform은 OWC의 MS Spreadsheet컨트롤을 사용해서 구성했고요

Spreadsheet컨트롤의 Spreadsheet1 "A1"부터 입력한 데이터를
엑셀 워크시트"Ground"의 "B3"부터 배열하려고 하는데
어떻게 코딩을 해야할지 막막해서 도움을 청해 봅니다

질문 | 1273명이 읽었어요. 18.222.117.109

비공개 손님 … 2017-07-24 16:51:11

OWC가 뭐야 무서웡 - 컴활1급 4월에 딴놈

http://www.excel-easy.com/vba/range-object.html#cells
for문 돌릴줄만 알면
그냥 이렇게 Cells(3, 2).Value = 2
vba로 코드보기해서 팍팍 박는거 아닌가용?
(할줄모름)

비공개 손님 … 2017-07-24 17:03:28

1// for 문을 돌리고 싶은데
userform 에서 어떻게 참조해서
work시트에 어떻게 붙이는지 몰겠어융
한칸씩 갖다 붙이는거는

Sheets("Ground").Range("B3").Value = Spreadsheet1.Range("A2").Value
Sheets("Ground").Range("C3").Value = Spreadsheet1.Range("B2").Value

이런식으로 되는데
For 문으로 데이터가 입력되있는 범위까지의 데이터를
어떻게 갖다붙이는지 모르겠어용

비공개 손님 … 2017-07-24 17:43:21

1. OWC 라는놈을 어떻게 참조하는지
=> 알리가 없음...
2. OWC 안에 데이터 끝까지 체크해서 루프돌리는법?!
=>요건 뭐 while hasnext()같이 뭔가 있을것같고 헤헿 (역시모름)

자 4번댓글님이 답변을 주실겁니다.

비공개 손님 … 2017-07-24 17:56:29

3// 아.. owc 라는게 MS office web components라는 거고 Spreadsheet1 저게 owc 에요
어휴 짜고나면 간단할거 같은데 모르니 고생이네요;;

비공개 손님 … 2017-07-25 00:39:12

https://stackoverflow.com/questions/25056372/vba-range-row-count

곤란하신 부분을 제대로 이해한건지는 모르겠는데..
걍 row count해서 특정 변수에 집어넣고 range offset등을 활용해 for문으로 돌리세요..

비공개 손님 … 2017-07-25 09:09:28

넘모 감사합니다
iLastRow = Spreadsheet1.ActiveSheet.UsedRange.Rows.Count

For i = 2 To iLastRow
With Sheets("Ground")
Cells(i + 1, 2) = Spreadsheet1.Cells(i, 1).Value
Cells(i + 1, 3) = Spreadsheet1.Cells(i, 2).Value
End With
Next

참고해서 요렇게 해결했습니다

댓글을 작성하실 수 없습니다.
(권한이 없는 회원레벨)

목록으로

△ 이전글: 오늘의 취업일기 - 온라인코딩테스트 07.24 [10]

▽ 다음글: and를 역연산 하는 방법이 있나요? [14]

TOP arrow_upward