Új hozzászólás Aktív témák

• #52702 Delila_1 veterán karlkani #52701

  Új Válasz 2024-05-25 10:08:09 #52702

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz karlkani #52701 üzenetére

  Szia,
  Indítás előtt kijelölheted a cellákat.
  Range("A2, B2:D8").Select , de lehet "gyalogosan" is.

  Sub Megjegyzes()
    Dim CV As Object
    
    For Each CV In Selection
        If Not CV.Comment Is Nothing Then CV.Comment.Delete
        CV.AddComment
        CV.Comment.Text "megjegyzes"
        CV.Comment.Shape.TextFrame.Characters.Font.Bold = True
        CV.Comment.Shape.TextFrame.AutoSize = True
    Next
End Sub

Új hozzászólás Aktív témák