在单元格填充数据时隐藏注释

Question

在我的工作簿中，有一个名为＆＃34; Form＆＃34;的工作表，在单元格B32中有一条注释说明需要输入数据 - 但是在数据输入后，注释仍然存在，这很烦人。

如何在输入数据时隐藏 评论 ，如果单元格为空，则取消隐藏？

Answer 1

您应该将以下代码添加到您的＆＃34;表格＆＃34;工作表模块，用于Worksheet_Change事件。

<强>代码

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Comm As Comment

If Not Intersect(Target, Range("B32")) Is Nothing Then
    Set Comm = Target.Comment ' set the comment 

    If Target.Value <> "" Then ' if cell is not empty
        Comm.Delete ' delete the comment
    Else
        Comm.Visible = False ' hide the comment
    End If
End If

End Sub

Answer 2

您可能想要使用此代码

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Comm As Comment

If Not Intersect(Target, Range("B32")) Is Nothing Then

    Set Comm = Target.Comment ' set the comment

    If Comm Is Nothing Then Exit Sub

    If Target.Value <> "" Then
        Comm.Visible = False    ' hide the comment
        Application.DisplayCommentIndicator = xlNoIndicator  ' also hide the indicator (unfortunately for the whole application)
    Else
        Comm.Visible = True ' hide the comment
        Application.DisplayCommentIndicator = xlCommentAndIndicator
    End If
End If

End Sub

Answer 3

我建议你不要使用VBA。相反，如果该数据输入单元格为空，则使用条件格式在数据输入单元旁边的单元格中显示消息。如果有人忘记启用宏，这仍然有效，并且正是条件格式发明要做的事情。

这样的事情：

...只要在该单元格中输入内容就会消失：

您只需要一个非常简单的条件格式公式：

并且还将警告单元格的文本填充格式设置为白色，因此在未触发条件格式条件时，警告消息不可见。

或者简单地写第二个条件格式条件，如下所示：