怎么在excle中,在输入数据的时候,小数点后边若大于0.5则进一位,小于0.5的就变成0.5

2025-03-01 12:10:52
推荐回答(1个)
回答1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a
a = Target.Value
If WorksheetFunction.IsNumber(a) Then Target.Value = WorksheetFunction.Ceiling(a, 0.5)
End Sub
写在表的VBA里