Question

我正在使用Excel注释来存储我希望允许用户使用表单进行编辑的一些信息。我想在用户选择注释时使用注释中包含的文本预先填充表单。当用户使用SheetSelectionChange事件选择带有红色选项卡的单元格（隐藏注释时）时，我可以执行此操作。但有没有办法在显示评论并且用户在评论框内单击时执行此操作？

我无法在帮助中找到与评论相关的任何事件。是否有任何评论事件暴露于VBA？或者我可以用一些Cell或Sheet事件做到这一点吗？我尝试在SheetSelectionChange事件中放置一个MsgBox来显示Target.ActiveCell，但是当我选择一个Comment时，我没有得到响应，所以看起来在选择Comment时，它与一个工作表没有关联。

提前感谢任何提示。

Answer 1

我认为没有任何评论活动。

但是您可以在工作表上使用SelectionChange事件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (Target.Comment Is Nothing) Then MsgBox Target.Comment.Text
End Sub

在表单中使用：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)        
    If Not (Target.Comment Is Nothing) Then
         frmYourForm.Show
         frmYourForm.txtComments = Target.Comment.Text
    End If
End Sub

是否有Excel评论激活或选择事件？

1 个答案: