求教怎样将已写好的代码改成自定义函数？

why3791 · 发表于 2017-11-25 16:55

各位大师能否帮个忙！因为要经常用到，每次都要写一段代码很不方便，谢谢！

michael1330 · 发表于 2017-11-26 12:15

把sub改成function就行了

why3791 · 发表于 2017-11-26 19:36

michael1330 我需要的函数的结果条件列和条件是不固定的，就象countifs函数一样，但这个函数没有统计不重复值的功能，而我做的很多表都需要这一功能。

michael1330 · 发表于 2018-1-24 15:55

帮不了您，我也不会

lss001 · 发表于 2018-1-26 13:13

本帖最后由 lss001 于 2018-1-26 21:00 编辑

Function dc(arr As Range, x, a, a1, b, b1, c, c1, c2)
Dim d As Object, i
Set d = CreateObject("scripting.dictionary")
For i = 2 To Application.Count(arr)
If Year(arr(i, a)) = CLng(a1) And arr(i, b) = b1 And (arr(i, c) = c1 Or arr(i, c) = c2) Then d(arr(i, x)) = ""
Next
dc = d.Count - 1
'函数用法=dc(A2:H436,6,2,"2016",8,"特惠贷（精准扶贫）",7,"次级","可疑")
'说明：自定义函数dc(查找区域，计数列，条件列1，条件1，条件列2，条件2，条件列3，条件3-1，条件3-2)
End Function

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

求教 怎样将已写好的代码改成自定义函数？

求教怎样将已写好的代码改成自定义函数？