Excel VBAを活用した週次作業時間の集計方法

この記事では、Excel VBAを使った週次作業時間の集計方法について詳しく説明します。具体的なコード例とその解説、さらに応用例を含めて、作業時間の効率的な管理方法を学びます。

Excel VBAを使用した週次作業時間集計の基本

VBA (Visual Basic for Applications) は、Microsoft Officeのアプリケーションを効率的に制御するためのプログラミング言語です。Excelでの作業時間の集計は、VBAを使用することで簡単に自動化することができます。

Sub WeeklyWorkTimeAggregation()
    Dim LastRow As Long
    Dim TotalHours As Double
    
    ' 最後の行を取得
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row
    
    ' 合計時間を0で初期化
    TotalHours = 0
    
    ' 作業時間を合計
    For i = 2 To LastRow '1行目はヘッダーなので2行目から
        TotalHours = TotalHours + ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
    Next i
    
    ' 合計時間を出力
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 1).Value = "合計時間"
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 2).Value = TotalHours
End Sub

このコードは、Excelの”Sheet1″における作業時間を週次で自動集計するものです。A列に日付、B列にその日の作業時間が入力されているものとして、B列の時間を合計し、最終行の下に「合計時間」として表示します。

応用例1：日別の集計を月別にまとめる

日ごとの作業時間を持っている場合、それを月別に集計する方法を以下に示します。

Sub MonthlyAggregation()

End Sub

応用例2：プロジェクトごとの作業時間集計

複数のプロジェクトごとに作業時間を区別して入力している場合、プロジェクトごとの集計を行う方法を以下に示します。

Sub ProjectwiseAggregation()

End Sub

応用例3：週の始まりを月曜日に設定して集計

週の始まりを日曜日ではなく、月曜日に設定したい場合の作業時間の集計方法を以下に示します。

Sub StartFromMondayAggregation()

End Sub

まとめ

Excel VBAを活用することで、日常の作業時間の集計を効率的に自動化することが可能となります。上記の基本的なコードを元に、さまざまなニーズに合わせてカスタマイズして使用してください。