未分類

【VBA】Weekday関数で人事・勤怠管理を効率化：日付から曜日を自動判定

VBAのWeekday関数で人事・勤怠管理を効率化：日付から曜日を自動判定

人事・勤怠管理において、日付から曜日を自動的に判定できると、シフト作成や勤務時間の集計が非常に楽になります。VBAのWeekday関数を使えば、これを簡単に実現できます。この記事では、Weekday関数の基本的な使い方から、人事・勤怠管理システムへの応用例までを詳しく解説します。

Weekday関数の基本

Weekday関数は、日付を表す値を引数として受け取り、対応する曜日を数値で返します。戻り値は、システムの設定によって異なりますが、通常は1が日曜日、2が月曜日、…、7が土曜日となります。

Weekday(日付, [週の最初の曜日])

  • 日付: 曜日を調べたい日付を指定します。

  • 週の最初の曜日 (省略可能): 週の開始曜日を指定します。1（日曜日）、2（月曜日）、…、7（土曜日）を指定できます。省略した場合、システムの設定が使用されます。

人事・勤怠管理でのWeekday関数の活用例

例1：勤務表での曜日自動入力

勤務表で日付を入力すると、自動的に曜日が表示されるようにします。

Function GetWeekday(dateValue As Date) As String
    Dim weekdayNum As Integer
    weekdayNum = Weekday(dateValue, vbSunday) ' vbSundayは日曜日を1とする
    Select Case weekdayNum
        Case 1: GetWeekday = "日"
        Case 2: GetWeekday = "月"
        Case 3: GetWeekday = "火"
        Case 4: GetWeekday = "水"
        Case 5: GetWeekday = "木"
        Case 6: GetWeekday = "金"
        Case 7: GetWeekday = "土"
    End Select
End Function

この関数をExcelのセルに適用すると、日付に対応する曜日が表示されます。

例2：特定曜日の勤務時間集計

特定の曜日（例えば土日）の勤務時間だけを集計したい場合に、Weekday関数を使って曜日を判定し、条件に合致するデータのみを集計します。

Function GetWeekendHours(startDate As Date, endDate As Date, workHours As Range) As Double
    Dim i As Integer
    Dim totalHours As Double
    totalHours = 0
    For i = 0 To DateDiff("d", startDate, endDate)
        Dim currentDate As Date
        currentDate = DateAdd("d", i, startDate)
        Dim weekdayNum As Integer
        weekdayNum = Weekday(currentDate, vbSunday)
        If weekdayNum = 1 Or weekdayNum = 7 Then ' 1=日曜日, 7=土曜日
            totalHours = totalHours + workHours(i + 1)
        End If
    Next i
    GetWeekendHours = totalHours
End Function

この関数は、指定された期間内の土日の勤務時間を合計します。

例3：シフト作成時の曜日チェック

シフト作成時に、特定の従業員が特定曜日に勤務可能かどうかをチェックする際に、Weekday関数を利用します。

Function IsAvailable(employeeID As String, shiftDate As Date) As Boolean
    Dim weekdayNum As Integer
    weekdayNum = Weekday(shiftDate, vbSunday)
    ' ここで、従業員の勤務可能曜日をデータベースなどから取得する処理を追加
    ' 例：employeeIDに対応する従業員の勤務可能曜日を配列で取得
    ' Dim availableDays As Variant
    ' availableDays = GetAvailableDays(employeeID)
    ' If IsArray(availableDays) Then
    '     For Each day In availableDays
    '         If day = weekdayNum Then
    '             IsAvailable = True
    '             Exit Function
    '         End If
    '     Next day
    ' End If
    ' サンプルとして、常にTrueを返す
    IsAvailable = True
End Function

この関数は、従業員IDと日付を引数として受け取り、その従業員が指定された曜日に勤務可能かどうかを判定します。（データベース連携部分は省略）

実際の業務での応用例

  • 残業時間集計: 曜日ごとに残業時間を集計し、週ごとの残業時間制限を超えていないかチェックする。

  • 有給休暇管理: 有給休暇の申請日が土日でないかチェックする。

  • シフト自動作成: 従業員の希望やスキル、曜日などを考慮して、自動的にシフトを作成するシステムに組み込む。

トラブルシューティング

Q: Weekday関数の戻り値が期待と異なる。

A: Weekday関数の第2引数（週の最初の曜日）を明示的に指定してみてください。システムの地域設定によって、週の開始曜日が異なる場合があります。

Q: エラーが発生する。

A: 引数として渡している日付が正しい形式であるか確認してください。日付として認識されない文字列などを渡すと、エラーが発生します。

まとめ

VBAのWeekday関数を使うことで、人事・勤怠管理における日付処理を効率化できます。曜日判定を自動化することで、手作業によるミスを減らし、より正確なデータ管理を実現できます。ぜひ、Weekday関数を活用して、業務効率化を図ってください。