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

Step 5 年間シートの原紙を1年分コピーする

前回、原紙は作成メニュー内に作成しましたが、シート名が「原紙」のシートを作成し、その中にコピーしました。
列幅・行幅も同時にコピーしたい為です。

この原紙を12ヶ月分コピーし、名前を付けて行きます。
名前は「年+月」としました。

シートのコピーは、Copyメソッドで行います。
シート名はNameプロパティに設定します。

メニューに戻る

スポンサーリンク






実行画面

原紙シートを作成しています。
「作成開始」ボタンをクリックすると、コピーを開始します。
生産管理ソフトのメニュー

○○○○年○○月のシートが12枚コピーされ作成されました。
1年分のシートが完成

スポンサーリンク



実行コード

'原紙を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 & "月"
                Exit For
           End If
        Next
    Next
End Sub

Private Sub CommandButton1_Click()
    Dim last As Long
    
    '作成年度の入力チェック
    If Range("C7") = "" Then
        MsgBox "作成年度を入力してください。"
        Range("C7").Activate
        Exit Sub
    End If
    
    '作成年度の入力が正しいかどうかチェック
    If ExDateCheck(Range("C7")) = False Then
        '正しくない場合は抜ける
        Exit Sub
    End If
    
    '機種名の最終行を調べる
    last = Sheets("作成メニュー").Range("C65536").End(xlUp).Row
    '9行目ならば入力されていない
    If last = 9 Then
        MsgBox "機種名を入力してください。"
        Range("C7").Activate
        Exit Sub
    End If

    ExGensiCopy
End Sub

スポンサーリンク






メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved