Excel单元格验证：如何限制工时输入为15分钟增量的合规小数

嘿，这个工时验证的需求我之前刚好帮同事处理过，给你几个Excel里的实用方案，都能完美解决你的问题：

这是最直接的方法，能在用户输入时立刻拦截无效值：

• 选中需要限制输入的单元格区域（比如整个工时列）
• 点击顶部菜单栏的「数据」选项卡 → 选择「数据验证」
• 在弹出的窗口中，「允许」下拉框选自定义，然后在「公式」框里输入：
  =MOD(A1*4,1)=0

  公式解释：把输入值乘以4后，取模1的结果为0就符合要求——因为15分钟是0.25小时，乘以4后是整数；不管整数部分是多少，乘以4都是整数，所以整体取模1必然为0。如果输入的是1.26，乘以4是5.04，取模1是0.04≠0，就会被判定为无效。

• 切换到「出错警告」标签，「样式」选停止，然后输入提示文本：请输入15分钟增量的工时，小数部分仅允许为.00/.25/.50/.75
  这样用户输入无效值时，会直接弹出警告，无法完成输入。

如果不想直接拦截，而是先给用户视觉提示，可以用条件格式：

• 选中目标单元格区域
• 点击「开始」选项卡 → 「条件格式」→ 「新建规则」
• 选择「使用公式确定要设置格式的单元格」，输入公式：
  =MOD(A1*4,1)<>0
• 设置违规时的格式，比如填充浅红色背景、红色字体，这样用户输入1.26这类值时，单元格会立刻高亮提醒。

如果需要自动修正无效输入，或者完全禁止无效值，可以用工作表事件代码：

• 右键工作表标签（比如「工时表」）→ 选择「查看代码」
• 在弹出的VBA编辑器中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监控指定列，这里假设是A列，可根据需要修改
    If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub
    On Error Resume Next
    Dim cell As Range
    For Each cell In Target
        If IsNumeric(cell.Value) Then
            Dim roundedVal As Double
            ' 自动四舍五入到最近的15分钟增量
            roundedVal = Round(cell.Value * 4, 0) / 4
            If cell.Value <> roundedVal Then
                MsgBox "输入无效，请使用15分钟增量的工时值（.00/.25/.50/.75）", vbExclamation
                ' 下面二选一：自动修正为合规值，或者清空输入
                cell.Value = roundedVal
                ' cell.ClearContents
            End If
        End If
    Next cell
    On Error GoTo 0
End Sub

• 保存后回到工作表，只要在指定列输入无效值，就会弹出提示，还能自动修正为最近的合规值（比如输入1.26会自动改成1.25）。

如果是用Google Sheets，数据验证的公式和Excel完全一样，只是操作界面位置略有不同，同样适用。

内容的提问来源于stack exchange，提问作者Chris5139580