Практическое руководство. Программное добавление и удаление примечаний на листе

Статья
02/20/2013

Существует возможность добавления и удаления комментариев в листах Microsoft Office Excel программными средствами.Примечания можно добавлять только в отдельные ячейки, но не в диапазон с несколькими ячейками.

Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Excel 2013 и Excel 2010. Дополнительные сведения см. в разделе Доступность функций по типам приложений Office и проектов.

Добавление и удаление комментария в проекте уровня документа

В следующем примере предполагается, что существует элемент управления NamedRange с именем dateComment, состоящий из одной ячейки и расположенный на листе с именем Sheet1.

Добавление нового комментария в именованный диапазон

Вызовите метод AddComment элемента управления NamedRange и укажите текст примечания.Данный код необходимо поместить в класс 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();
}
```

Добавление и удаление комментария в проекте надстройки уровня приложения

В следующем примере предполагается, что в активном листе существует элемент управления Microsoft.Office.Interop.Excel.Range с именем dateComment, состоящий из одной ячейки.

Добавление нового комментария в диапазон Excel

Вызовите метод AddComment элемента управления Microsoft.Office.Interop.Excel.Range и укажите текст примечания.

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

Excel.Range dateComment = this.Application.get_Range("A1");
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");
if (dateComment.Comment != null)
{
    dateComment.Comment.Delete();
}

См. также

Задачи

Практическое руководство. Программное отображение примечаний на листе

Основные понятия

Работа с листами

Элемент управления NamedRange

Поделиться через