:: 게시판
:: 이전 게시판
|
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다. 통합 규정을 준수해 주십시오. (2015.12.25.)
통합규정 1.3 이용안내 인용"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
19/08/19 17:58
데이터 구조는
수취인ㅣ주소ㅣ수량ㅣ 홍길동ㅣ서울ㅣ 3 ㅣ 둘리 ㅣ서울ㅣ 2 ㅣ 이런 방식으로 되어 있습니다. 동일하게 가져오면 되고 파일이 여러개고 매일 해야해서 매크로로 만드려고 합니다.
19/08/19 18:37
그냥 A파일을 만드실때 B파일의 셀들을 부르시면 되지 않나요?
꼭 함수가 아닌 값으로 쓰고 싶으시면 A파일을 만들고 나서 함수를 없애고 값으로만 만들면되고. 제가 질문을 정확하게 이해한건지 의문이 살짝 들긴합니다.
19/08/19 20:30
b든 c든 파일이 여러개있는건 다 가져오는건 문제가 없고
그대로 가지고 오는게 아니면 그 가공과정을 넣어서 셀에 따오면되는거 아닌가요? 어떤식으로 다르게 가져온단 말씀이신지 모르겠네요.
19/08/19 21:58
Range 객체의 copy와 pasteSpecial 메소드를 쓰시면 됩니다.
편의상 동일 시트를 예시로 들겠습니다. J부터 L열까지의 내용을 B열부터 D열까지로 복사하는 경우, Dim copyRange As Range Dim pasteRange As Range Set copyRange = Range("J:L") Set pasteRange = Range("B:D") copyRange.Copy (copyRange의 내용을 클립보드로 복사합니다.) pasteRange.PasteSpecial xlPasteAll (클립보드의 내용을 pasteRange에 붙여넣기 합니다.) Application.CutCopyMode = False (복사 모드를 해제합니다.) PasteSpecial 메소드의 Paste 매개변수는 xlPasteAll이나 xlPasteValues(값으로 붙여넣기), xlPasteFormulas(수식으로 붙여넣기) 등을 사용할 수 있습니다. 이를 좀 더 응용해서, 현재 화면에 표시된 파일/시트의 J열-L열을 '복사.xlsx' 파일의 sheet1, B열-D열에 복사하고 싶다면, copyRange = ActiveWorkbook.ActiveSheet.Range("J:L") pasteRange = Workbooks("복사.xlsx").Worksheets("sheet1").Range("B:D") 로 쓸 수 있겠습니다.
|