【VBA】 0.3 本サイトで使用するサンプルマクロとサンプルデータの解説

Option Explicit

Sub extract_employeelist()

    Dim ws_macro As Worksheet           '社員データ抽出マクロファイル内の社員データ抽出マクロシートのワークシート変数
    Dim ws_work As Worksheet            '社員データ抽出マクロファイル内のworkシートのワークシート変数
    Dim wb_inputfile As Workbook        '入力ファイルのワークブック変数
    Dim ws_employeelist As Worksheet    '入力ファイルの社員一覧シートのワークシート変数
    Dim ws_departmentlist As Worksheet  '入力ファイルの部署一覧シートのワークシート変数
    Dim ws_positionlist As Worksheet    '入力ファイルの役職一覧シートのワークシート変数
    Dim path_inputfile As String        '入力ファイルのフルパスを設定する変数
    Dim wb_outputfile As Workbook       '出力ファイルのワークブック変数
    Dim ws_outputfile As Worksheet      '出力ファイルの出力結果シートのワークシート変数
    Dim path_outputfile As String       '出力ファイルのフルパスを設定する変数
    
    'マクロが実行する処理を画面上に出力しないよう、画面更新モードをオフにします。
    'これにより、処理時間が短縮されます。
    
    Application.ScreenUpdating = False

    'マクロファイル内のワークシートに対して、ワークシート変数を設定します。
    
    Set ws_macro = ThisWorkbook.Worksheets("社員データ抽出マクロ")
    Set ws_work = ThisWorkbook.Worksheets("work")
    
    '入力ファイルのフルパスを設定する変数：path_inputfile に、パス情報を設定します。
    
    If Right(ws_macro.Range("D3"), 1) <> "\" Then
        path_inputfile = ws_macro.Range("D3") & "\" & ws_macro.Range("C3")
    Else
        path_inputfile = ws_macro.Range("D3") & ws_macro.Range("C3")
    End If
    
    '出力ファイルのフルパスを設定する変数：path_outputfile に、パス情報を設定します。
    
    If Right(ws_macro.Range("D4"), 1) <> "\" Then
        path_outputfile = ws_macro.Range("D4") & "\" & ws_macro.Range("C4")
    Else
        path_outputfile = ws_macro.Range("D4") & ws_macro.Range("C4")
    End If
    
    '入力ファイルをOpenします。
    'ファイルをOpenした直後は、OpenされたファイルがActiveWorkbook になります。
    'その法則を利用し、ワークブック変数：wb_inputfileをActiveWorkbookに設定します。
    '更に、入力ファイルに存在する3つのワークシート変数にも、ワークシートを設定します。
    
    '以上の「ファイルのOpen」→「ワークブック変数、ワークシート変数の設定」を行うことにより、
    'これ以降の処理でワークブック変数、ワークシート変数を使用することができるようになります。
    
    Workbooks.Open Filename:=path_inputfile
    Set wb_inputfile = ActiveWorkbook
    Set ws_employeelist = ActiveWorkbook.Worksheets("社員一覧")
    Set ws_departmentlist = ActiveWorkbook.Worksheets("部署一覧")
    Set ws_positionlist = ActiveWorkbook.Worksheets("役職一覧")
    
    '出力ファイルにも、入力ファイルと同様の処理を行います。
    
    Workbooks.Open Filename:=path_outputfile
    Set wb_outputfile = ActiveWorkbook
    Set ws_outputfile = ActiveWorkbook.Worksheets("出力結果")
    
    'ここまでが前処理となります。
    'ここから後処理までの間に、要件・仕様に従って、プログラムを記述します。
    
    
    
    'ここからが後処理となります。
    
    'マクロがOpenした入力ファイル、出力ファイルに対して、何もせずに終了すると、
    '画面上に入力ファイル、出力ファイルが表示されたままとなり、お行儀が悪いので、
    'マクロファイル以外のファイルは、基本的に全てCloseします。
    
    '出力ファイルを、変更があった場合には保存して終了します。
    
    wb_outputfile.Close SaveChanges:=True
    
    '入力ファイルを、変更の有無に関わらず、保存せずに終了します。
    
    wb_inputfile.Close SaveChanges:=False
    
    'マクロ実行者に、処理が完了した旨のダイアログ画面を出力します。
    
    MsgBox "社員データの抽出が完了しました。"
    
    '社員データ抽出マクロシートを最前面に表示します。
    
    ws_macro.Activate
    
    '社員データ抽出マクロファイルを保存します。
    
    ThisWorkbook.Save
    
    '念のため、画面更新モードをオンに戻します。
    
    Application.ScreenUpdating = True
    
End Sub