한 책의 범위를 다른 책의 지정된 위치에 복사합니다.

5013 단어 VBAExcelExcelVBA
오늘부터 VBA 공부에 책 허리를 넣고 싶기 때문에, 아티팩트를 게시합니다.

이번에 만든 것은
「같은 폴더내에 있는 「○○리스트.xlsx」의 임의의 시트 내용을 각각 다른 파일에 전기한다」
입니다.
VBA의 코드는 같은 폴더 내에 『검증용 매크로.xlsm』이라는 파일을 준비해 거기에 기술해 갑니다.
(이것을 향후 공부하면서 개수해 나갈 예정입니다.)

상품 마스터

고객 마스터

(왼쪽 데이터를 오른쪽으로 전기하고 저장하고 싶습니다)

코드

Sub tenki()
'○○一覧を開く
    Workbooks.Open ThisWorkbook.Path & "\○○一覧.xlsx"
'商品マスタに転記
    Worksheets("商品マスタ").Activate
    Cells(1, 1).Activate
    Worksheets("商品マスタ").UsedRange.Copy
    Workbooks.Open ThisWorkbook.Path & "\商品マスタYYMMDD.xlsx"
    Worksheets("データ").Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
'顧客マスタに転記
    Worksheets("顧客マスタ").Activate
    Cells(1, 1).Activate
    Worksheets("顧客マスタ").UsedRange.Copy
    Workbooks.Open ThisWorkbook.Path & "\顧客マスタYYMMDD.xlsx"
    Worksheets("データ").Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
'○○一覧を閉じる      
    ActiveWindow.Close
End Sub


흠・・・더 간단하게 할 수 있을 것입니다만, 지금의 나에서는 이것이 굉장합니다!
매크로의 기록에서는 북명·시트명이 등록되지 않기 때문에, 거기에 적절한 것을 넣어, 필요없는 부분을 삭제해 편집했습니다.

· 참고로 한 책
VBA 전문가 공식 텍스트 Excel VBA 기본
h tps : // v. 오 dyse y-ko m. 이. jp / s dy / / xt. HTML

1개월 후에는 이 코드가 부끄러워질 정도로 성장하고 싶습니다.

(오늘은 Qiita 첫 포스트였습니다)

좋은 웹페이지 즐겨찾기