vba, 类似Product函数的语句.

cgx5871

单元格:  a1, b1,c1
函数公式:  [d1]=Product(a1,b1,c1)    'a1:c1的乘积值
VBA中调用Product函数, 如果有非数值内容, 会出错.
'------函数会自动忽略
如果不调用Product,  有没有VBA自带的计算乘积值的语句?

自动忽略非数值文本
比如,  a1=2  b1="你" c1=3
则:  d1=a1*c1,    '忽略掉b1

需求就是:
1.  单元格为数值,  返回数值
2.  单元格为非数值, 返回1  '---供乘积用.

zhangzhang

Public Function MySum(Rng As Range) As Double

Dim Arr
Dim Tmp As Double
Dim i As Long, j As Long

Arr = Rng

For i = 1 To UBound(Arr)
    Tmp = 1
    For j = 1 To UBound(Arr, 2)
       If VBA.IsNumeric(Arr(i, j)) Then
            Tmp = Tmp * Arr(i, j)
        End If
    Next j
    MySum = MySum + Tmp
Next i


End Function

cgx5871

zhangzhang 发表于 2018-7-19 12:27
Public Function MySum(Rng As Range) As Double

Dim Arr

if 感觉太啰嗦
有没有类似  isxxxx(str),   直接返回1 或  数值

jiminyanyan

cgx5871 发表于 2018-7-19 12:46
if 感觉太啰嗦
有没有类似  isxxxx(str),   直接返回1 或  数值

if 还啰嗦呀。。。。