كيفية القيام بما يلي: إضافة و حذف تعليقات ورقة العمل

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى المستند مشروعات على مستوى التطبيق إصدار Microsoft Office Excel 2007 Excel 2010

يمكنك برمجياً إضافة وحذف التعليقات في أوراق عمل Microsoft Office Excel. يمكن إضافة تعليقات فقط للخلايا المفردة، لا إلى النطاقات المتعددة الخلايا .

إضافة و حذف تعليق في مشروع على مستوى المستند .

تفترض الأمثلة التالية وجود عنصر تحكم 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", 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