小编Mik*_*e T的帖子

我的办公室刚刚升级到新版本的 Office 365，随之而来的是一种新的评论处理方式。旧评论现在称为“注释”，新评论现在称为“评论”。

在我的一本工作簿中，我有一个按钮，单击该按钮时，将查看某些单元格以检查是否有评论。然后它会根据它找到的内容为单元格着色。

（我的按钮的完整代码发布在下面）第 9 行包含问题

在以前版本的 Excel 中，此按钮工作正常。但是，现在它仅在单元格具有“注释”时才有效，如果它们具有“注释”则不起作用。在我的代码中，我一直使用的类称为“Comment”，所以我的代码类似于“If Cells(row, col).Comment Is Nothing...”。这个类仍然有效，但只是寻找笔记。我查看了对象库，在隐藏的对象下，我发现了一个名为“CommentThreaded”的新类。我尝试将我的代码更改为（“如果 Cells(row, col).CommentThreaded Is Nothing...”），但它不起作用。当我单击该按钮时，我现在在尝试访问这个新类时收到一个运行时错误：应用程序定义或对象定义错误。

有谁知道我需要更改什么才能让我的按钮使用线程评论？

谢谢，迈克

Sub Comments()
Dim xrow As Integer
Dim xcol As Integer

For xrow = 7 To 88
    For xcol = 3 To 15
        If Cells(xrow, xcol).Value <= -0.1 Or Cells(xrow, xcol).Value >= 0.1 Then
            If Cells(5, xcol).Value = "MTD %" Or Cells(5, xcol).Value = "YTD %" Then
                If Not Cells(xrow, xcol).Comment Is Nothing Then
                    Cells(xrow, xcol).Interior.Color = RGB(155, 255, 188)
                Else …