勤務時間マクロの作成

はじめに

発注した案件の一か月分の契約作業時間が妥当かチェックするために、作業時間チェックのマクロを開発しました。

請求書シート

請求書シートは下記の通りです。

作業時間の下限と上限シート

作業時間の下限と上限の設定データは下記の通りです。

作業時間チェックマクロ

作業時間チェックマクロのソースコードです

Option Explicit
'契約勤務時間チェックマクロ
'新規作成  2024/6/27
Sub checkdata()
        
    Dim wb As Workbook
    Set wb = Workbooks(ThisWorkbook.Name)

    Dim ws1, ws2 As Worksheet
    Set ws1 = wb.Worksheets("準委任契約請求書")
    Set ws2 = wb.Worksheets("勤務時間")

    Dim work_hour As Double
    Dim s_num, e_num As Long
    s_num = 5
    e_num = ws1.Cells(Rows.Count, 3).End(xlUp).Row
    
    Dim floor_hour, ceil_hour As Double
    
    floor_hour = ws2.Cells(5, 2).Value
    ceil_hour = ws2.Cells(5, 3).Value
    
    
    
    Dim i As Long
    
    For i = s_num To e_num
        work_hour = ws1.Cells(i, 3).Value
        If work_hour >= floor_hour And work_hour <= ceil_hour Then
            ws1.Cells(i, 6).Value = "OK"
        Else
            ws1.Cells(i, 6).Value = "NG"
        End If
    Next i
    
End Sub

マクロを実行した結果

マクロを実行した結果です。

最後に

契約作業時間チェック対象者が多い場合、有効なツールになるのではないかと思います。