VBAでセルプロパティを使用してコメントを追加するには

Question

セルプロパティを使用してコメントを追加するには、Cells（1、i）にコメントを追加する必要があります。

Rangeプロパティ（Range（ "A1"）。AddComment）を使用してコメントを追加する方法を知っていますが、セルプロパティを追加したいと思います。 excel vbaで助けてください。

Sub t() 
Dim headers() As Variant 
Dim i As Integer 

headers() = Array("FIRST", "Second", "Third") 
For i = 1 To 3 
m = Cells(1, i).Value 
If Cells(1, i).Value <> headers(i - 1) Then 
Cells(1, i).Interior.Color = vbYellow 
Cells(1, i).AddComment 'I need to add some text here" 

MsgBox ("Not equal") 
End If 
Next i 

End Sub 

Answer 1

あなたが投稿したばかりのコードからは、AddCommentメソッドの後ろに文字列がありません。 を編集します。すでにターゲットセルの一部にコメントがあります。 ClearCommentsへの呼び出しを追加しました。

Sub t() 
    Dim headers() As Variant 
    Dim i As Integer 
    Dim m As Variant 

    headers() = Array("FIRST", "Second", "Third") 

    For i = 1 To 3 
     m = Cells(1, i).Value 
     If Cells(1, i).Value <> headers(i - 1) Then 
      Cells(1, i).Interior.Color = vbYellow 
      Cells(1, i).ClearComments 
      Cells(1, i).AddComment "Hello World" '<===== Here 
      MsgBox ("Not equal") 
     End If 
    Next i 
End Sub