Excel VBA 如果单元格注释失败

Question

又是一个关于评论的问题。我想检查单元格是否包含某个评论值。运行此脚本时出现错误:

For AA = 0 To 200
For BB = 0 To 200
    If Worksheets("Config IO").Range("D7").offset(0, 0).Value = "1" Then
        If Worksheets("Config Algemeen").Cells(2 + AA, 9 + BB).Comment = "DI" Then
            Aantal_DI = Aantal_DI + 1
        Else
            'Nothing
        End If
    Else
        'Nothing
    End If
Next BB
Next AA

我不知道这有什么问题。我收到此消息:该对象不支持此属性或方法。此错误位于第二个“IF”行。

Answer 1

这会在尝试引用注释中的文本之前检查注释是否存在。

• 我已将第一个 IF 检查移到循环之外，因为它每次都引用相同的单元格。
• 我还取消了 Offset(0,0)，因为它偏移了 0 行和 0 列 - 与原始地址相同。
• 我还取消了 .Value，因为这是该范围的默认属性。

<小时/>

Sub Test()

    Dim AA As Long, BB As Long

    If Worksheets("Config IO").Range("D7") = "1" Then
        For AA = 0 To 200
            For BB = 0 To 200
                With Worksheets("Config Algemeen").Cells(2 + AA, 9 + BB)
                    If Not .Comment Is Nothing Then
                        If .Comment.Text = "DI" Then
                            Aantal_DI = Aantal_DI + 1
                        End If
                    End If
                End With
            Next BB
        Next AA
    End If

End Sub