Excel VBAを使った社員の健康診断結果一覧表の自動生成方法

Excel VBAを利用して社員の健康診断結果一覧表を自動生成する方法について詳しく解説します。この記事では、基本的な手順から具体的なコード例、その解説、さらに応用例を3つ提供します。VBAを使ってExcelの機能を拡張し、作業の効率化を目指しましょう。

基本の手順

社員の健康診断結果一覧表をExcel VBAを使用して自動生成するための基本的な手順は以下の通りです。

1. Excelファイルを開き、VBAエディタを起動する。
2. 新しいモジュールを追加し、コードを入力する。
3. コードを実行して、健康診断結果一覧表を生成する。

具体的なコード

Sub GenerateHealthCheckList()

    ' シートを追加
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "健康診断結果一覧"
    
    ' シートを選択
    Sheets("健康診断結果一覧").Select
    
    ' タイトル行を追加
    Range("A1").Value = "社員番号"
    Range("B1").Value = "氏名"
    Range("C1").Value = "健康診断結果"
    
End Sub

コードの解説

上記のコードは、新しいシートを追加し、そのシートに健康診断結果のタイトル行を設定するものです。

– `Sheets.Add(After:=Sheets(Sheets.Count)).Name = “健康診断結果一覧”`：新しいシートを作成し、名前を”健康診断結果一覧”としています。
– `Sheets(“健康診断結果一覧”).Select`：新しく作成したシートを選択しています。
– `Range(“A1”).Value = “社員番号”`など：指定したセルにタイトル情報を入力しています。

応用例

応用例1: 社員情報の自動入力

Sub AutoInputEmployeeData()

    Dim LastRow As Long

    ' 社員情報があるシートを選択
    Sheets("社員情報").Select
    
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 社員情報を健康診断結果一覧シートにコピー
    Range("A2:B" & LastRow).Copy Sheets("健康診断結果一覧").Range("A2")
    
End Sub

応用例2: 健康診断結果の一括入力

Sub InputHealthCheckResult()

    Dim LastRow As Long

    Sheets("健康診断結果一覧").Select
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' 健康診断結果をランダムで入力
    For i = 2 To LastRow
        Cells(i, 3).Value = Choose(Int((3 * Rnd) + 1), "良好", "注意", "要検査")
    Next i

End Sub

応用例3: 健康診断結果の集計

Sub CountHealthCheckResult()

    Dim GoodCount As Long, CautionCount As Long, NeedCheckCount As Long
    Dim LastRow As Long

    Sheets("健康診断結果一覧").Select
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' 健康診断結果の集計
    For i = 2 To LastRow
        Select Case Cells(i, 3).Value
            Case "良好"
                GoodCount = GoodCount + 1
            Case "注意"
                CautionCount = CautionCount + 1
            Case "要検査"
                NeedCheckCount = NeedCheckCount + 1
        End Select
    Next i

    ' 集計結果を出力
    Cells(1, 5).Value = "健康診断結果の集計"
    Cells(2, 5).Value = "良好"
    Cells(2, 6).Value = GoodCount
    Cells(3, 5).Value = "注意"
    Cells(3, 6).Value = CautionCount
    Cells(4, 5).Value = "要検査"
    Cells(4, 6).Value = NeedCheckCount

End Sub

まとめ

Excel VBAを利用して、社員の健康診断結果一覧表を自動生成する方法とその応用について詳しく解説しました。このように、VBAを活用することで、繁雑な作業を効率化することが可能です。上記の例を参考に、さまざまな業務の自動化にチャレンジしてみてください。