Ajouter des commentaires aux cellules à l'aide de VBA

Question

Existe-t-il un moyen d'activer un commentaire sur une cellule en le survolant? J'ai une gamme de cellules que je voudrais tirer les commentaires respectifs d'une autre feuille en survolant chaque cellule individuelle. L'événement hover tire les commentaires de leurs cellules respectives dans l'autre feuille.

Les commentaires sont de valeur de chaîne. Fondamentalement, j'ai une gamme de cellules dans la feuille 1, disons A1: A5 et j'ai besoin de commentaires pour apparaître quand je les survole et que je tire de la feuille 2 de la plage B1: B5. La raison pour laquelle je ne le ferai pas manuellement est que le contenu de la feuille 2 change tous les jours. C'est pourquoi j'essaie de voir s'il existe une solution VBA.

Answer 1

planant au-dessus toute cellule, qui contient un commentaire, montre que le commentaire de la cellule

c'est comment ajouter un commentaire à une cellule et comment mettre à jour le commentaire du texte

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

Ce code rafraîchira le contenu des commentaires chaque fois que vous ouvrez le classeur. Il est basé sur des plages de destination et de source. Assurez-vous d'abord d'ajouter un commentaire pour la plage de cellules en premier. Vous n'aurez pas besoin de VBA pour cela.

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

Essayez ce code.

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