生産管理 年間シートを作ってみよう

Step 10 機種名を12ヶ月分のシートにコピーする

シートのコピー時、初期値として登録している機種名も範囲コピーします。
コピーは Paste:=xlValues を指定し値のみコピーしています。

メニューに戻る

スポンサードリンク



実行画面

作成メニューに登録している機種名の一覧です。
この機種名をコピーします。
機種名の一覧が登録されているシート

機種名が貼り付けられたシートです。
機種名を貼り付けた生産シート

スポンサードリンク



実行コード

'原紙を1年分コピーする
Private Sub ExGensiCopy()
    Dim i As Integer
    Dim sy As String
    Dim n As Integer
    
    '作成する年
    sy = Range("C7")
    
    For n = 1 To 12
        'シートのコピー
        Worksheets("原紙").Copy before:=Worksheets("作成メニュー")
        For i = 1 To Sheets.Count
            If Len(Sheets(i).Name) > 2 And Left(Sheets(i).Name, 2) = "原紙" Then
                'シート名の変更
                Sheets(i).Name = sy & "年" & n & "月"
                Sheets(i).Range("B3") = n & "月度"
                '機種名をコピー
                Worksheets("作成メニュー").Range("C10:C44").Copy
                Sheets(i).Range("B7").PasteSpecial Paste:=xlValues
                MonthLastDaySet sy, n
                Exit For
           End If
        Next
    Next
End Sub

スポンサードリンク





メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved