[已解决]Countif如果用自定义代码写..

amulee

在网上找到这个:

http://www.docjar.com/html/api/org/apache/poi/hssf/record/formula/functions/Countif.java.html

Dj_soo

又改了一下 , 代码如下:
Option Explicit
Option Compare Text

Function myFunction(rng As range, Cer)
    Dim c As range
    Dim cer1 As String
    cer1 = Replace(Cer, "<>", "")
    Application.Volatile
    For Each c In rng
        If Len(cer1) - Len(Cer) Then
            If Not c.Value Like CStr(cer1) Then
                myFunction = myFunction + 1
            End If
        Else
            If c.Value Like CStr(cer1) Then
                myFunction = myFunction + 1
            Else
                If Not IsError(Evaluate(c & cer1)) Then
                    If Evaluate(c & cer1) = True And IsNumeric(c.Value) Then
                        myFunction = myFunction + 1
                    End If
                End If
            End If
        End If
    Next
End Function
好处在这里显示不出来,等等我帖一个自定义函数出来大家一起看看.

Dj_soo

阿木发的那个好恐怖..主要是看不懂,没学过java没耐心读

[em04]