创建用于数字字符串条件计数的自定义函数

玉阳山人

数字字符串计数的自定义函数.zip (11.42 KB, 下载次数: 6)

2024-8-22 09:42 上传

点击文件名下载附件

条件计数函数COUNTIF在遇到前置0的时候，诸如 01，001，0001时，都会忽略前面的0，当成指定条件为1来进行计数，导致计算结果错误。

请老师们创建个能够按指定条件精确计数的自定义函数。谢谢！

cidanji

1. Function SZZFCJS(arr As Variant, Srch As Variant)
   
2.     SZZFCJS = Application.Count(Application.Match(arr, Array(Srch), 0))
   
3. End Function

复制代码

yjh_27

参见附件。

玉阳山人

cidanji 发表于 2024-8-22 10:12

普通公式输入 =SZZFCJS($B5,$A$5:$A$310)
区域数组公式输入=SZZFCJS($B5:$B25,$A$5:$A$310)，结果全部显示#VALUE!错误

玉阳山人

yjh_27 发表于 2024-8-22 12:18
参见附件。

谢谢老师！

玉阳山人

yjh_27 发表于 2024-8-22 12:18
参见附件。

数字字符串计数的自定义函数.zip (21.73 KB, 下载次数: 2)

2024-8-23 20:59 上传

点击文件名下载附件

老师：如K11:K13处的指定条件为空白，那么其对应的L11:M13处显示的结果也应为空白【当指定条件区域为空白（即条件区域大于条件数据个数）时，其计算结果对应的行列也须显示为空白】


请老师费心添加代码。谢谢！

lss001

玉阳山人 发表于 2024-8-23 21:07
老师：如K11:K13处的指定条件为空白，那么其对应的L11:M13处显示的结果也应为空白【当指定条 ...

Public Function SZZFCJS(tj, rng)
    arr = tj: brr = rng
    Set dic = CreateObject("Scripting.dictionary")
    For i = 1 To UBound(brr)
        s = CStr(brr(i, 1))
        If s <> "" Then dic(s) = dic(s) + 1
    Next
    If IsArray(arr) Then
        ReDim scrr(1 To UBound(arr), 1 To 1)
        For i = 1 To UBound(arr)
            If CStr(arr(i, 1)) <> "" Then
                scrr(i, 1) = dic(CStr(arr(i, 1)))
            Else
                scrr(i, 1) = ""
            End If
        Next
        SZZFCJS = scrr
    Else
       If tj <> "" Then SZZFCJS = dic(CStr(arr)) Else SZZFCJS = ""
    End If
End Function

yjh_27

玉阳山人 发表于 2024-8-23 21:07
老师：如K11:K13处的指定条件为空白，那么其对应的L11:M13处显示的结果也应为空白【当指定条 ...

文件  选项  高级  此工作表的显示选项
取消  在具有零值的单元格中显示零

GG函数