Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #12737 poffsoft veterán bugizozi #12736
    Új Válasz #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?

    :R

    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