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

• #6048 Delila_1 veterán lapa #6036

  Új Válasz 2010-01-14 11:59:19 #6048

  Ú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 lapa #6036 üzenetére

  A C1:C15 terület képleteinek értékét illeszti be a cellákhoz rendelt megjegyzésekbe.

  Sub IrBeillMegjegyzbe()
  Dim CV, Comment As Object
  Dim Cellák As Range
  
  Set Cellák = Range("C1:C15")
  
  For Each CV In Cellák
  If CV.Value > "" Then
  CV.AddComment
  CV.Comment.Text Text:=CV.Value & ""
  
  'CV.Value = "" 'Cella képletének törlése
  End If
  Next
  End Sub

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