[已解决]如何对批注计数

ls

如何在一定范围内对批注计数
自定义函数可以吗

最佳答案

月排行榜 / 总排行榜

lyn666666

2011-3-22 10:14

Function Nhascomm(rng As Range) As Integer
    Dim mycell As Range
    Dim k As Integer
    For Each mycell In rng
        If Not mycell.Comment Is Nothing Then
            k = k + 1
        End If
    Next
    Nhascomm = k
End Function

跳转到最佳答案楼层

lyn666666

Function Nhascomm(rng As Range) As Integer
    Dim mycell As Range
    Dim k As Integer
    For Each mycell In rng
        If Not mycell.Comment Is Nothing Then
            k = k + 1
        End If
    Next
    Nhascomm = k
End Function

bere

这个从来没有看到过,谢谢了

JLxiangwei

1. 
   
2. Function 批注(n)
   
3. 批注 =ActiveSheet.Comments.count
   
4. End Function
   

复制代码

JLxiangwei

回复 JLxiangwei 的帖子

对批注计数.rar (9.57 KB, 下载次数: 20)

2011-3-22 10:23 上传

点击文件名下载附件

ls

JLxiangwei 发表于 2011-3-22 10:20

做得不错，代码很简单
试了下，如果没有批注，出现错误
能否再改下

ls

lyn666666 发表于 2011-3-22 10:14
Function Nhascomm(rng As Range) As Integer
    Dim mycell As Range
    Dim k As Integer

代码不错，评为最佳

JLxiangwei

回复 ls 的帖子

ljzzlan

看看，学习                              

glhfgtd

虚心学习, ding