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

2025年03月01日 12:10
有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里