Excel VBAを活用して給与明細を従業員別に整理する方法

この記事では、Excel VBAを使用して給与明細を従業員別に整理する方法を詳しく解説します。初心者から中級者までのExcelユーザーを対象に、具体的なコード例、その解説、さらに応用例を3つ紹介します。この技術を活用することで、毎月の給与計算や給与明細の整理作業を大幅に効率化できます。

基本のコード: 給与明細を従業員別に整理

まず、給与明細を従業員別に整理する基本のコードを示します。

Sub OrganizeSalaryStatement()
    Dim LastRow As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ws.Range("A1:D" & LastRow).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

コードの詳細解説

このコードは、”Sheet1″という名前のワークシートにある給与明細を従業員の名前（A列）で昇順に整理します。

– `Dim LastRow As Long`: 最後の行番号を取得するための変数を定義します。
– `Dim ws As Worksheet`: ワークシートを操作するための変数を定義します。
– `Set ws = ThisWorkbook.Sheets(“Sheet1”)`: “Sheet1″を操作するための準備をします。
– `LastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row`: A列の最後の行番号を取得します。
– `ws.Range(“A1:D” & LastRow).Sort Key1:=Range(“A2”), Order1:=xlAscending, Header:=xlYes`: A列の従業員の名前で昇順にソートします。

応用例

1. 従業員の名前と給与額だけを新しいシートにコピーする

Sub CopyEmployeeAndSalary()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim LastRow As Long

    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    
    LastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row

    ws1.Range("A1:A" & LastRow).Copy ws2.Range("A1")
    ws1.Range("C1:C" & LastRow).Copy ws2.Range("B1")
End Sub

コードの解説

このコードでは、従業員の名前（A列）と給与額（C列）だけを新しいワークシートにコピーします。

2. 給与の合計を求める

Sub TotalSalary()
    Dim ws As Worksheet
    Dim LastRow As Long, Total As Double

    Set ws = ThisWorkbook.Sheets("Sheet1")
    LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

    Total = Application.WorksheetFunction.Sum(ws.Range("C2:C" & LastRow))
    ws.Cells(LastRow + 1, "B").Value = "Total"
    ws.Cells(LastRow + 1, "C").Value = Total
End Sub

コードの解説

C列の給与額を合計し、その合計を下の行に表示します。

3. 給与の平均、最高額、最低額を求める

Sub AnalyzeSalary()
    Dim ws As Worksheet
    Dim LastRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")
    LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

    ws.Cells(LastRow + 2, "B").Value = "Average"
    ws.Cells(LastRow + 2, "C").Formula = "=AVERAGE(C2:C" & LastRow & ")"

    ws.Cells(LastRow + 3, "B").Value = "Max"
    ws.Cells(LastRow + 3, "C").Formula = "=MAX(C2:C" & LastRow & ")"

    ws.Cells(LastRow + 4, "B").Value = "Min"
    ws.Cells(LastRow + 4, "C").Formula = "=MIN(C2:C" & LastRow & ")"
End Sub

コードの解説

給与の平均、最高額、最低額を求め、それぞれを下の行に表示します。

まとめ

Excel VBAを活用することで、給与明細の整理作業を簡単に、かつ迅速に行うことができます。今回紹介した基本的なコードや応用例を元に、自分のニーズに合わせてカスタマイズしてみてください。定期的な作業の自動化により、作業効率を大幅に向上させることが可能です。

[

blog_parts id=22123]