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

glhfgtd

虚心学习, ding

ls

JLxiangwei 发表于 2011-3-22 11:54
回复 ls 的帖子

经过仔细察看，原来你的不会自动更新，删除批注后，必须编辑该单元格，才能显示0

ls

谢谢jl xiangweir的回复

ls

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

能否解释下代码

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

龙之吻

你用查找功能就可以了！

ls

龙之吻 发表于 2011-3-22 15:08
你用查找功能就可以了！

如何查找
详细步骤

longbaby231

龙之吻

查找内容“*”，选项中先批注就可以了。