Porady: Programowane dodawanie i usuwanie komentarzy do arkusza

Można programowo Dodawanie i usuwanie komentarzy w arkuszach programu Excel pakietu Microsoft Office.Komentarze mogą być dodawane tylko do pojedynczych komórek, nie do zakresów Wielokomórkowe.

Zastosowanie: Informacje przedstawione w tym temacie mają zastosowanie do projektów na poziomie dokumentu i aplikacji obsługiwanych w programach Excel 2013 i Excel 2010. Aby uzyskać więcej informacji, zobacz Funkcje dostępne w aplikacjach pakietu Office i typ projektu.

Dodawanie i usuwanie komentarza w projekcie na poziomie dokumentu

W poniższych przykładach założono, że jest pojedynczą komórkę NamedRange sterowania o nazwie dateComment w arkuszu o nazwie Sheet1.

Aby dodać nowy komentarz do nazwanego zakresu

• Wywołanie AddComment metoda NamedRange kontroli i podać tekst komentarza.Ten kod musi być umieszczony w Sheet1 klasy.

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

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

Aby usunąć komentarz z nazwanego zakresu

• Sprawdź, czy istnieje komentarz na zakres i usuń go.Ten kod musi być umieszczony w Sheet1 klasy.

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

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

Dodawanie i usuwanie komentarza w poziomie aplikacji w projekcie

W poniższych przykładach założono, że jest pojedynczą komórkę Range o nazwie dateComment w aktywnym arkuszu.

Aby dodać nowy komentarz do zakresu programu Excel

• Wywołanie AddComment metoda Range i podać tekst komentarza.

  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());
  

Aby usunąć komentarz z zakresu programu Excel

• Sprawdź, czy istnieje komentarz na zakres i usuń go.

  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();
  }
  

Zobacz też

Zadania

Porady: Programowane wyświetlanie komentarzy do arkusza

Koncepcje

Praca z arkuszami

NamedRange — Formant