VBAを使用してセルにコメントを追加

Question

セルにカーソルを置いてコメントを付ける方法はありますか？私は、個々の細胞にぶつかったときに別のシートからそれぞれのコメントを引っ張りたいと思う細胞の範囲を持っています。ホバーイベントは、他のシートのそれぞれのセルからコメントを引き出します。

コメントは文字列値です。基本的に、シート1には一連のセルがありますが、A1：A5と言いましょう。そして、それらの上にマウスを置いてポップアップすると、シート2の範囲B1：B5から引っ張ってくるコメントが必要です。私がそれを手動でやっていないのは、シート2の内容が毎日変わるからです。そのため、VBAソリューションがあるかどうかを確認しようとしています。コメントが含まれている任意のセル、上でホバリング

Answer 1

は、そのセルのコメント

を示し、これはあなたがセルにコメントを追加し、コメントテキスト

Sub aaa() 
    With Range("E6") 
     If Not .Comment Is Nothing Then .Comment.Delete 
     .AddComment "this is a comment" 
     .Comment.Text = "abc123" 
    End With 
End Sub 

Answer 2

を更新する方法このコードは更新されます方法ですワークブックを開くたびにコメントの内容が表示されます。宛先とソースの両方の範囲に基づいています。最初にセル範囲のコメントを追加してください。あなたはそれのためにVBAは必要ありません。

Private Sub Workbook_Open() 
    Dim ws As Worksheet 
    Dim rg As Range 
    Dim comment As String 
    Dim i As Integer 

i = 1 
Set rg = Range("E1:E10") 'set range of where the comments will be seen 
Set ws = Sheets("Sheet1") 


For Each c In rg 
comment = ws.Cells(i, 2).Value 'set location of comments you are grabbing from 
c.comment.Text Text:=comment 
i = i + 1 
Next c 
End Sub 

Answer 3

このコードを試してください。

Sub test() 
    Dim rngDB As Range, rngComent As Range 
    Dim rng As Range 
    Dim cm As Comment, i as integer 
    Set rngComent = Sheets(1).Range("a1:a5") 
    Set rngDB = Sheets(2).Range("b1:b5") 

    For Each rng In rngComent 
     i = i + 1 
     If Not rng.Comment Is Nothing Then 
      rng.Comment.Delete 
     End If 
     Set cm = rng.AddComment 
     With cm 
      .Visible = False 
      .Text Text:=rngDB(i).Value 
     End With 
    Next rng 

End Sub