【VBAリファレンス】Excelで時刻を15分単位・0.25単位に丸める達人テクニック：数式からVBAまで徹底解説

ExcelVBA

2026.09.19

概要：なぜ時刻の切り捨て・丸めが必要なのか

Excelで勤怠管理表やプロジェクトの進捗管理表を作成する際、必ずと言っていいほど直面するのが「時間の端数処理」という課題です。例えば「9時12分に出社した社員を9時15分とみなす」「作業時間を15分単位（0.25時間）で集計する」といったケースです。

Excelにおいて時刻データは「1日＝1」という数値として管理されています。そのため、15分は「15分 ÷ 60分 ÷ 24時間＝ 0.0104166…」という非常に扱いにくい数値になります。これを適切に丸める手法を習得することは、正確な給与計算や工数管理を実現する上で、Excel中級者への登竜門と言えるでしょう。本記事では、数式による処理と、大量データを一括処理するためのVBA（マクロ）による解決策をプロの視点から詳細に解説します。

詳細解説：時刻を15分単位に丸めるロジック

Excelで時刻を制御する際、最も強力な関数は「CEILING関数（切り上げ）」「FLOOR関数（切り捨て）」「ROUND関数（四捨五入）」の3つです。

時刻を15分単位で扱う場合、まずは15分が1日の何分の一かを考える必要があります。
15分は「0.25時間」です。1日は24時間ですので、15分をExcelの時刻シリアル値に変換すると「0.25 / 24」となります。この数値を基準値として各関数に渡すのが、最もシンプルかつ標準的なアプローチです。

例えば、A1セルに入力された時刻を15分単位で切り上げたい場合、以下の数式を用います。

=CEILING(A1, “0:15”)

この「”0:15″」という記述は、Excelが自動的にシリアル値（0.010416…）へ変換して解釈してくれるため、非常に可読性が高く推奨される書き方です。逆に、切り捨てたい場合はFLOOR、四捨五入したい場合はROUND関数を使用します。

サンプルコード：VBAで15分単位・0.25単位に一括変換する

実務では、数式を埋め込むとシートが重くなったり、計算結果を値として固定したい場面が多々あります。以下に、選択範囲内の時刻データを15分単位で切り上げるVBAプロシージャを紹介します。


Sub RoundTime15Minutes()
    ' 選択範囲の時刻を15分単位に切り上げて値として確定する
    Dim rng As Range
    Dim cell As Range
    Dim targetTime As Double
    Dim interval As Double
    
    ' 15分をシリアル値に換算 (15 / 1440)
    interval = TimeSerial(0, 15, 0)
    
    ' 選択範囲がセル範囲かどうか確認
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set rng = Selection
    
    Application.ScreenUpdating = False
    
    For Each cell In rng
        If IsDate(cell.Value) Then
            ' CEILING関数相当の計算をVBAで実行
            ' 1/96 は 15分/60分/24時間 = 0.0104166...
            targetTime = Application.WorksheetFunction.Ceiling(cell.Value, interval)
            cell.Value = targetTime
        End If
    Next cell
    
    Application.ScreenUpdating = True
    MsgBox "15分単位への切り上げ処理が完了しました。", vbInformation
End Sub

このコードのポイントは「TimeSerial関数」を使用している点です。コード内に「0.010416」と直接数値を書くよりも、TimeSerial(0, 15, 0)と記述することで、後から「30分単位に変更したい」となった際にも「TimeSerial(0, 30, 0)」と書き換えるだけで対応できるメンテナンス性の高いコードになります。

0.25単位（時間表記）への変換について

時刻を「0.25」という数値として扱いたい場合、Excelの時刻表示形式を「標準」に戻し、さらに「24を掛ける」必要があります。

例：1時間30分を「1.5」と表示したい場合
=A1 * 24

この式を使うことで、時刻シリアル値が時間単位の数値へと変換されます。ここに先ほどの丸め処理を組み合わせると、業務効率は飛躍的に向上します。

=CEILING(A1 * 24, 0.25)

この数式は、時刻を時間単位に換算してから、0.25単位で切り上げるという実務で最も頻出するパターンです。

実務アドバイス：プロが教える注意点

1. 表示形式の罠
計算結果が「0.25」ではなく「0:00」のように表示される場合、セルの表示形式が「時刻」のままになっている可能性があります。計算結果を数値として扱いたい場合は、必ずセルの表示形式を「標準」または「数値」に設定してください。

2. 浮動小数点誤差の回避
Excelの計算では、極めて稀に「0.15分」のような微小な誤差が発生することがあります。特に複雑なIF文と組み合わせる場合は、一度「ROUND(A1, 10)」のように細かい桁で丸めてから比較を行うのが、ベテランの定石です。

3. 勤怠管理での運用ルール
「15分単位」というルールを導入する際、切り上げか切り捨てかは労使トラブルの元になりやすい項目です。運用開始前に必ず就業規則を確認し、計算式が法的に適正であることを担保してください。また、VBAを使用する場合は、誤操作を防ぐために「元データ」とは別の列に計算結果を出力する仕様にすることをお勧めします。

まとめ

時刻の15分単位・0.25単位の制御は、Excel業務の自動化における「基礎体力」です。数式でシンプルに処理するのか、VBAで大量のデータを一括置換するのか、その時々の状況に合わせて最適な手段を選択できるようになりましょう。

今回紹介した「TimeSerialを用いた可読性の高いコード」や「24を掛ける時間換算手法」をマスターすれば、複雑な勤怠管理表も怖くありません。ぜひ日々の実務に組み込み、ミスなく効率的なデータ管理を実現してください。VBAは単なる自動化ツールではなく、正確なルールをシステムとして落とし込むための強力な武器となります。この記事が、あなたのExcelスキル向上の一助となれば幸いです。