Ú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

• #6037 Cuci3 tag lapa #6036

  Új Válasz 2010-01-13 21:02:40 #6037

  Ú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

  

  Cuci3

  tag

  válasz lapa #6036 üzenetére

  Csak makróval tudom elképzelni. Vagy megadott cellák kommentjét kiszedi a makró és beírja megadott cellákba, vagy egy függvényben kell a cellát megadni és a függvény eredménye a cella kommentje lesz. Márha van.
  Programot is szeretnél, vagy csupán a válasz érdekelt?

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