Excel VBAで特定のスキルセットを持つ従業員リストを生成する方法

この記事では、Excel VBAを使用して特定のスキルセットを持つ従業員のリストを生成する方法を詳しく説明します。初心者から上級者まで、VBAのコーディング手法や応用例に関する具体的な指南を提供します。

基本のVBAコードの解説

Excelのデータから特定の条件に合致する従業員を抽出してリストを生成するための基本的なVBAコードを以下に示します。

Sub GenerateEmployeeList()
    Dim LastRow As Long
    Dim i As Long
    Dim NewSheet As Worksheet

    ' 現在のシートをアクティブにする
    ThisWorkbook.Sheets("Sheet1").Activate

    ' 最終行を検出
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    ' 新しいシートを作成
    Set NewSheet = ThisWorkbook.Sheets.Add
    NewSheet.Name = "Filtered Employees"

    ' ヘッダーをコピー
    ThisWorkbook.Sheets("Sheet1").Rows(1).Copy Destination:=NewSheet.Rows(1)

    ' 特定のスキルセットを持つ従業員をフィルタリング
    For i = 2 To LastRow
        If ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value = "特定スキル" Then
            ThisWorkbook.Sheets("Sheet1").Rows(i).Copy Destination:=NewSheet.Cells(NewSheet.Cells(NewSheet.Rows.Count, "A").End(xlUp).Row + 1, 1)
        End If
    Next i

End Sub

コードの解説

上記のVBAコードは、特定のスキルセットを持つ従業員をフィルタリングして新しいシートにリストアップするものです。簡単に各部の説明をします。

– `Dim`を使用して変数を宣言します。
– `ThisWorkbook.Sheets(“Sheet1”).Activate`でSheet1をアクティブにしています。
– `LastRow`変数でSheet1の最後の行を検出します。
– 新しいシートを作成し、そのシートの名前を”Filtered Employees”としています。
– `For`ループを使って各行のデータをチェックし、特定のスキルセットを持つ従業員を新しいシートにコピーします。

応用例

1. 複数のスキルを持つ従業員をフィルタリング

以下のVBAコードは、複数のスキルセットを持つ従業員をフィルタリングするものです。

Sub FilterMultipleSkills()
    ' 複数のスキルセットを持つ従業員をフィルタリングするコード
    ' このコードでは、"特定スキル1" と "特定スキル2" を持つ従業員をフィルタリングします。

    ' 省略...

End Sub

2. スキルセットに基づく従業員の等級を付与

特定のスキルセットを持つ従業員に等級を付与するVBAコードの例です。

Sub AssignEmployeeGrade()
    ' スキルセットに基づく従業員の等級を付与するコード

    ' 省略...

End Sub

3. スキルセットと経験年数に基づくフィルタリング

従業員のスキルセットと経験年数を基にフィルタリングするVBAコードの例です。

Sub FilterBySkillAndExperience()
    ' スキルセットと経験年数に基づくフィルタリングのコード

    ' 省略...

End Sub

まとめ

Excel VBAを使用して特定のスキルセットを持つ従業員のリストを生成する方法を学びました。基本のコードから応用まで、これらのコーディング手法を活用して、業務の効率化やデータ分析の自動化を進めてみてください。