如何进行判断一个单元格的值=块,米,平方时 再进行选择相应公式进行自动计算

A56510804TT

lcluck2002 发表于 2022-12-15 21:55
不知是按什么规则保留（舍位，四舍五入，进位。。。。。。），当然你也可以直接在外面再套一层诸如 Round ...

就是得出的结果只保留两位小数点  ,  但如果用单元格格式保留2个小数点的  真实数据还是存在的

A56510804TT

lcluck2002 发表于 2022-12-15 21:55
不知是按什么规则保留（舍位，四舍五入，进位。。。。。。），当然你也可以直接在外面再套一层诸如 Round ...

这个能用不 Sub 真正的四舍五入()

    Dim r As Range
    Dim str
    Dim bitnum As Double
    Dim tmp As Double
    '-----------------------------
    str = Application.InputBox("请输入要保留的小数位数", "输入", "2")

    If str = False Then Exit Sub

    If Not IsNumeric(str) Then Exit Sub

    bitnum = CDbl(str)

    If bitnum < 0 Then Exit Sub
    '-----------------------------
    For Each r In Selection

        If IsNumeric(r.Value) Then
            tmp = Application.WorksheetFunction.Round(r.Value, bitnum)
            r.Value = tmp
        End If

    Next
End Sub