如何：添加和删除工作表注释

更新： 2008 年 7 月

适用于
本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。 项目类型 文档级项目 应用程序级项目 Microsoft Office 版本 Excel 2003 Excel 2007 有关更多信息，请参见按应用程序和项目类型提供的功能。

在 Microsoft Office Excel 工作表中，可以通过编程方式添加和删除注释。只能向单个单元格中添加注释，不能向包含多个单元格的范围中添加注释。

在文档级项目中添加和删除注释

以下示例假定名为 Sheet1 的工作表中存在一个单个单元格 NamedRange 控件，其名称为 dateComment。

向命名区域中添加新注释

• 调用 NamedRange 控件的 AddComment 方法并提供注释文本。此代码必须放置在 Sheet1 类中。

  Me.dateComment.AddComment("Comment added " & DateTime.Now)
  

  this.dateComment.AddComment("Comment added " + DateTime.Now.ToString());
  

删除命名范围中的注释

• 确认注释存在于该范围内并将其删除。此代码必须放置在 Sheet1 类中。

  If Not Me.dateComment.Comment Is Nothing Then
      Me.dateComment.Comment.Delete()
  End If
  

  if (this.dateComment.Comment != null)
  {
      this.dateComment.Comment.Delete();
  }
  

在应用程序级外接程序项目中添加和删除注释

下面的示例假定活动工作表上有一个名为 dateComment 的 Microsoft.Office.Interop.Excel.Range，该区域中只有一个单元格。

向 Excel 区域中添加新注释

• 调用 Microsoft.Office.Interop.Excel.Range 的 AddComment 方法并提供注释文本。

  Dim dateComment As Excel.Range = Me.Application.Range("A1")
  dateComment.AddComment("Comment added " & DateTime.Now)
  

  Excel.Range dateComment = this.Application.get_Range("A1", missing);
  dateComment.AddComment("Comment added " + DateTime.Now.ToString());
  

删除 Excel 区域中的注释

• 确认注释存在于该范围内并将其删除。

  Dim dateComment As Excel.Range = Me.Application.Range("A1")
  If Not dateComment.Comment Is Nothing Then
      dateComment.Comment.Delete()
  End If
  

  Excel.Range dateComment = this.Application.get_Range("A1", missing);
  if (dateComment.Comment != null)
  {
      dateComment.Comment.Delete();
  }
  

请参见

任务

如何：显示工作表注释

概念

使用工作表

NamedRange 控件

修订记录

日期	修订历史记录	原因
2008 年 7 月	增加了一个可在应用程序级外接程序中使用的代码示例。	客户反馈。