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

A56510804TT

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

我的一张单据的 单位有时候会发生变化 不能用固定计算方式  只能先判断再进行选择相应的 公式进行计算
如下图

lcluck2002

判断一个单元格的值=块,米,平方时 再进行选择相应公式.zip
自定义函数，不过第一行的结果似乎与你的例子中的结果不一样，请确认一下。

A56510804TT

lcluck2002 发表于 2022-12-7 23:19
判断一个单元格的值=块,米,平方时 再进行选择相应公式.zip
自定义函数，不过第一行的结果似乎与你的例子中 ...

大哥我那个数值 少写了 一个0  您是对的, 收下我膝盖

taller

A56510804TT

主要是我这个表格要重复利用还是得写到VBA里面

A56510804TT

lcluck2002 发表于 2022-12-7 23:19
判断一个单元格的值=块,米,平方时 再进行选择相应公式.zip
自定义函数，不过第一行的结果似乎与你的例子中 ...

大哥后面要用AS Long 不然会出现除不尽  

你地铁图

Sub SS()
    Dim R As Range
    For Each R In Range("H12:H" & Range("C65536").End(xlUp).Row)
        Select Case R.Offset(, 1).Value
        Case Is = "㎡"
            R.Value = R.Offset(, 2) / (R.Offset(, -3) * R.Offset(, -2) / 100000)
        
        Case Is = "米"
            R.Value = R.Offset(, 2) / (R.Offset(, -3) / 1000)
        Case Is = "块"
            R.Value = R.Offset(, 2)
        End Select
    Next
End Sub

A56510804TT

lcluck2002 发表于 2022-12-7 23:19
判断一个单元格的值=块,米,平方时 再进行选择相应公式.zip
自定义函数，不过第一行的结果似乎与你的例子中 ...

我发现 这个 定义量 会出现除不完 能不能只保留2个 小数点 ,单元格格式只是给隐藏了,我这边还要调用这个数据

lcluck2002

A56510804TT 发表于 2022-12-15 19:06
我发现 这个 定义量 会出现除不完 能不能只保留2个 小数点 ,单元格格式只是给隐藏了,我这边还要调用这个 ...

不知是按什么规则保留（舍位，四舍五入，进位。。。。。。），当然你也可以直接在外面再套一层诸如 Round()之类的函数就可以了吧？

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