公式代入自定义函数出错

buciyuan

，计算指定数组中3倍数的个数和，列公式=SUMPRODUCT((MOD(A1:H1,3)=0)*1)得出计算结果 ，但代入自定义函数却出错了，麻烦各位大神指点一二，谢谢！


Function ssh(rng As Range)
Dim x%

ssh = sumproduct((rng mod 3)=0)*1)

End Function

lq-1600

解决是解决了，有些问题是，0，或着空白都能整除。
Function ssh(rng As Range)
    Dim x As Integer
    x = 0
    For Each r In rng
        
        If r Mod 3 = 0 Then
            x = x + 1
        End If
        
    Next
    ssh = x
    'ssh = sumproduct((rng mod 3)=0)*1))
    'ssh = sumproduct((rng Mod 3 = 0) * 1)


End Function

准提部林

公式可以直決, 為何還用自訂函數???

zxskyqq

Function CountThrice(targetRng As Range)
    Dim count As Integer
    count = 0
    For Each cell In targetRng
        If Not IsEmpty(cell) And Not cell = 0 Then
            If cell Mod 3 = 0 Then
                count = count + 1
            End If
        End If
    Next
    CountThrice = count
End Function

zxskyqq

zxskyqq 发表于 2023-2-25 12:38
Function CountThrice(targetRng As Range)
    Dim count As Integer
    count = 0

chatGPT好强大，我这所有的代码都是chatGPT写的

buciyuan

zxskyqq 发表于 2023-2-25 12:38
Function CountThrice(targetRng As Range)
    Dim count As Integer
    count = 0

感谢伸出援助之手，谢谢！