自定义函数改写SUB 不要改变自定义函数方法

laoau123

自定义函数改写SUB   不要改变自定义函数方法

scl5801

这样可以不？
Sub mySum()
Dim dyg1 As Range, dyg2 As Range, dyg3 As Range
For x = 1 To 7
    Set dyg2 = Cells(x + 7, 10)
    Set dyg3 = Cells(x + 7, 11)
    For i = 8 To 23
    Set dyg1 = Cells(i, 3).Resize(, 6)
        If Application.CountIf(dyg1, dyg2) _
        And Application.CountIf(dyg1, dyg3) Then
           k = k + 1
        End If
    Next i
    Range("n" & x + 7) = k
    k = 0
Next x
End Sub

laoau123

scl5801 发表于 2016-8-22 14:13
这样可以不？
Sub mySum()
Dim dyg1 As Range, dyg2 As Range, dyg3 As Range

完全可以啊，不用countif就更加好，如何改

另外这一条，自定义函数如何扩展计算一行含有多个

http://www.excelpx.com/thread-423768-1-1.html

laoau123

scl5801 发表于 2016-8-22 14:13
这样可以不？
Sub mySum()
Dim dyg1 As Range, dyg2 As Range, dyg3 As Range

大哥如何做

http://www.excelpx.com/thread-423815-1-1.html
http://www.excelpx.com/thread-423814-1-1.html