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

[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