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

Dj_soo

在VBA中谁能写一个和Countif一样的自定义函数?我想参考一下

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-24 18:37

我不知道countig还有什么样的功能，先看看是不是这个意思

(, 下载次数: 8)

上传

点击文件名下载附件

跳转到最佳答案楼层

上清宫主

水一下[em02][em02]

好象把帮助里的例程稍改一下就可以：

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

还有读入数组、在数组中循环累加等等方式

分类汇总

QUOTE:

以下是引用上清宫主在2010-3-24 12:54:00的发言：

水一下[em02][em02]

好象把帮助里的例程稍改一下就可以：

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

还有读入数组、在数组中循环累加等等方式

这个是查找替换吧？？？

Dj_soo

看着不大像呀,比如Countif(区域,">0"),这样的情况用这个代码应该不对吧?

也就是说如果第二个参数为一个条件时,我想借鉴这里的代码学习[em04]

上清宫主

替换都可以不可以累加吗？

那个代码是帮助中的，要改下的嘛

上清宫主

的确如4楼，考虑不周[em04]

看来还是得用读入数组、在数组中循环判断累加的方式

Dj_soo

QUOTE:

以下是引用上清宫主在2010-3-24 13:03:00的发言：

的确如4楼，考虑不周[em04]

看来还是得用读入数组、在数组中循环判断累加的方式

是的,我想用数组来写,不过还是搞不清楚第二个参数的话我应该定义为什么数据类型呢?

在过程中又该怎么判断我输入的是什么样的条件呢?(如">0",又如可以直接引用单元格)

Dj_soo

盖楼了,疯狂了...

Microsoft OLE DB Provider for SQL Server 错误 '80004005'

事务（进程 ID 75）与另一个进程已被死锁在 lock 资源上，且该事务已被选作死锁牺牲品。请重新运行该事务。

/inc/Dv_ClsMain.asp，行 1441

爱疯

Function cf(rng As Range, x)
    Dim r, s

    For Each r In rng
        If r = x Then
            r = x
            s = s + 1
        End If
    Next
    cf = s
End Function

显然，只能达到countif的很少部分功能。问题是，你干嘛要研究这个，在有现成的countfi时 ....

[em11]

锦衣狐裘

[em01][em01]