ایجاد و حذف کامنت

[alisabet]

با سلام
خواهش میکنم نحوه تعیین پوزیشن سل کامنت را بوسیله vba توضیح دهید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[generalsamad]

با سلام
برای اضافه کردن از این کد استفاده کنید

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Range("D6")
rng.ClearComments
rng.AddComment "Hello"
End Sub 

برای حذف کردن از این کد

Private Sub CommandButton2_Click()
Dim rng As Range
Set rng = Sheet1.Range("D6")
If Not (rng.Comment Is Nothing) Then rng.Comment.Delete
End Sub