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

• #12737 poffsoft veterán bugizozi #12736

  Új Válasz 2012-01-31 09:59:00 #12737

  Ú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

  

  poffsoft

  veterán

  válasz bugizozi #12736 üzenetére

  Ennek örülök
  Közben meglett a hiba: a cells().addcomment előtt, ha van már comment a cellában, törölni kell a cells().comment.delete- vel.
  Csak nem tudtam értelmezni a hibaüzenetet (valami "object (_Global) failed" volt)...

  Viszont kommenttel kapcsolatosan újabb kérdés: hogyan tudom a comment szövegdobozát átméreteztetni vele úgy, hogy a teljes tartalom látszódjék benne? Az A1 cella commentjéhez ugyanis pár sort még hozzáfűzök, azt írom a B1-be, de az új sorok nem látszanak, mert kicsi marad az ablak magassága?

  

  p.s.: amúgy valamiért a te rövidített kódodat nem fogadja el, nekem így működik (persze lehet, itt meg az volt a baj, ha a scope1.comment volt üres (IsNothing)?):

  Set scope1 = Sheets("Sim training").Cells(MyMonthAr(MyMonth) + MyRow, 4 + MyCol)
  Set scope2 = Cells(cr1, cc1)
  
  sText = scope1.Comment.Text & vbLf & Text1 & vbLf & Text2 & vbLf & Text3
  If Not IsNothing(scope2.Comment) Then scope2.Comment.Delete
  scope2.AddComment sText

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