给自定义函数增加第四参数后，合并两个几乎相同的代码

玉阳山人 · 发表于 2018-9-7 08:53

microyip 发表于 2018-9-7 08:32
你试过没有呢？就是这句改一下即可

老师：用那一楼的代码为蓝本修改？试了1楼，2楼的，好像不行啊！

microyip · 发表于 2018-9-7 08:59

玉阳山人发表于 2018-9-7 08:53
老师：用那一楼的代码为蓝本修改？试了1楼，2楼的，好像不行啊！

在你原来的基础上换

Public Function COUNTIFZQ2(qy As Range, zq, tj)
Application.Volatile
arr = qy
ReDim brr(1 To UBound(arr), 1 To 1) As Variant
j = 0
For i = 1 To UBound(arr)
brr(i, 1) = 0
Next
For i = 1 To UBound(arr)
If arr(i, 1) = "" Then Exit For
If (i Mod 36) = 1 Then j = j + 1
If arr(i, 1) = tj Then
brr(j, 1) = brr(j, 1) + 1
End If
Next
For i = j+tj To UBound(arr)
brr(i, 1) = ""
Next
COUNTIFZQ2 = brr
End Function

复制代码

玉阳山人 · 发表于 2018-9-7 09:12

microyip 发表于 2018-9-7 08:59
在你原来的基础上换

把代码复制进去后，还是不行。公式 =COUNTIFZQ2(总表!$I$5:$I$100000,$K$1,I$4,0)和=COUNTIFZQ2(总表!$I$5:$I$100000,$K$1,I$4,1)的计算结果都显示#VALUE!错误！只有=COUNTIFZQ2(总表!$I$5:$I$100000,$K$1,I$4)能够显示正确的计算结果

玉阳山人 · 发表于 2018-9-7 09:24

microyip 发表于 2018-9-7 08:59
在你原来的基础上换

老师：请看附件：

条件统计.zip (638.59 KB, 下载次数: 2)

玉阳山人 · 发表于 2018-9-7 09:34

YZC51 发表于 2018-9-7 08:29
也就是这个
或者
Public Function COUNTIFZQ2(qy As Range, zq, tj, Optional x = 0)

老师：这是COUNTIFZQ的附件，代码在附件里

COUNTIFZQ.zip (782 KB, 下载次数: 11)

microyip · 发表于 2018-9-7 10:10

出错是正常的，单元格函数使用组方式赋值

microyip · 发表于 2018-9-7 10:15

你要处理，应该改成过程执行比较好，用函数方式不是很适宜的

玉阳山人 · 发表于 2018-9-7 10:27

microyip 发表于 2018-9-7 10:15
你要处理，应该改成过程执行比较好，用函数方式不是很适宜的

感谢老师热心帮忙！

		自动登录	找回密码
密码			免费注册

[求助] 给自定义函数增加第四参数后，合并两个几乎相同的代码

评分