Excelで生産予定・実績表を作ってみよう

Step 6 機種コード、機種名のセット

メニューに戻る

スポンサードリンク



シートコード

下記に変更してください。

Private Sub CommandButton1_Click()
    Range("L12").Select
    If Not SetDataCheck Then
        Exit Sub
    End If
        
    ExNewSheetMake
    
    Worksheets("機種マスター").Select
    Range("L12").Select
    
    '日付をセット
    ExDaySet
    '機種マスターの機種名をセットする
    ExMasterSet
End Sub

下記のコードを追加してください。

'機種マスターの機種名をセットする
Private Sub ExMasterSet()
    Dim lmaxrow As Long
    Dim lrow As Long
    Dim i As Long
    Dim destrow As Long
    Dim destcol As Long
    
    'セット先
    destrow = Range(Range("L4")).Row
    destcol = Range(Range("L4")).Column - 2
    '項目名をセット
    Worksheets(Sheets.Count).Cells(destrow, destcol) = "コード"
    Worksheets(Sheets.Count).Cells(destrow, destcol + 1) = "機種名"
    'マークの最下行
    lmaxrow = Worksheets("機種マスター").Range("B65536").End(xlUp).Row
    For i = 5 To lmaxrow
        'マークのチェック
        If Worksheets("機種マスター").Cells(i, 2) <> "" Then
            'マークがあればコードと機種名をセットする
            destrow = destrow + 1
            Worksheets(Sheets.Count).Cells(destrow, destcol) = Worksheets("機種マスター").Cells(i, 3)
            Worksheets(Sheets.Count).Cells(destrow, destcol + 1) = Worksheets("機種マスター").Cells(i, 4)
        End If
    Next
End Sub

スポンサードリンク



実行結果の画面

「作成開始ボタン」をクリックすると、指定年月のシートを作製し、「機種マスター」のマークをチェックします。
マークがあれば、マスターシートから指定年月のシートへコードと機種名をコピーします。


スポンサードリンク





メニューに戻る

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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved