Excel sormagasság állítás

Excel sormagasság állítás
2014-06-19T11:43:15+02:00
2014-06-20T18:44:27+02:00
2022-12-01T05:30:37+01:00
ironika
Egy excel táblában változó adatok alapján egy soksoros lekérdezés kerül végrehajtásra. Az eredmény változó mennyiségű adatot eredményez. Az akutális cella első sorában megjelenik minden lényeges információ a felhasználónak, de további részletekért növelni kellene a sormagasságon. A adott cella mellé tennék egy akciógombot, mellyel az adott sor magasságát a szövegmennyiséghez növelné automatikusan, de ez utóbbival nem boldogulok.
Bár nem a legjobb megoldás, de próbáltam már az excel automatikus sormagasság állításával is operálni, de még az sem működik, bár az okát ennek nem tudom.
Köszi a segítséget előre is.
Mutasd a teljes hozzászólást!
Ahogy nézem az egyesített cella "fekszi meg a gyomrát"
---
Egy minta:
Sub meretez(str01) Application.ScreenUpdating = False On Error Resume Next Set AutoFitRng = Range(Range(str01).MergeArea.Address) With AutoFitRng .MergeCells = False CWidth = .Cells(1).ColumnWidth MergeWidth = 0 For Each cM In AutoFitRng cM.WrapText = True MergeWidth = cM.ColumnWidth + MergeWidth Next 'small adjustment to temporary width MergeWidth = MergeWidth + AutoFitRng.Cells.Count * 0.66 .Cells(1).ColumnWidth = MergeWidth .EntireRow.AutoFit NewRowHt = .RowHeight .Cells(1).ColumnWidth = CWidth .MergeCells = True .RowHeight = NewRowHt End With Application.ScreenUpdating = True End Sub

És meghívhatod:
meretez "e27"


pl. google: merge cell height autofit, első találat
Mutasd a teljes hozzászólást!

  • Szia Ironika!

    Az automatikus sormagasság valószínűleg azért nem működik, mert nincs szükség a sormagasság beállítására, mivel az adataid egy sorosak. Ha beállítanád a Sortöréssel több sorba lehetőséget, automatikusan beállnának a sorok a szükséges magasságba. Például így:

    Selection.CurrentRegion.WrapText = True

    Szerintem legalábbis ez megoldás lehetne.

    Üdv

    The Fool
    Mutasd a teljes hozzászólást!
  • Tudsz egy mintadoksit mellékelni?
    hogy próbáltad?
    pl:
    rows(2).autofit
    ?
    Mutasd a teljes hozzászólást!
  • Szia!
    Ironika ezt írta.

     próbáltam már az excel automatikus sormagasság állításával is operálni, de még az sem működik,

    Ebben igaza is van, mert ha nincs olyan cella ami több soros lenne, akkor nincs mit állítani. A WrapText viszont beállítja a szükséges magasságot.

    Szerintem

    Üdv

    The Fool
    Mutasd a teljes hozzászólást!
  • Sziasztok!
    A cellaban hosszu szoveg van, ami tobb dorban ferne csak el. A problemanak nem ez a forrasa. Pl. alt+enter karakter is van benne, ami sziveghossztol fuggetlsnul tobb sort kellene, hogy jelentsen.
    Mutasd a teljes hozzászólást!
  • Így viszont annak kellene működnie, amit Micu írt. Lehet, hogy ha feltöltenél egy egyszerű példát jobban értenénk. Valahogy így: Rows("1:18").EntireRow.AutoFit

    Üdv
    The Fool
    Mutasd a teljes hozzászólást!
  • Szia!

    Ironika ezt is írta
    Az akutális cella első sorában megjelenik minden lényeges információ a felhasználónak, de további részletekért növelni kellene a sormagasságon


    Ebből gondoltam, hogy van sortörés

    ---

    Rows("1:18").EntireRow.AutoFit


    Teljesen felesleges az EntireRow. Ha a rows-t használod, akkor az a teljes sorra vonatkozik.
    (Ha pl. a range("1:18") formát használnád, akkor kellene)

    ===
    Ironika:
    Próbáld azt, hogy a sormagasságot átállítod valami nagyra, ls utána autofit.
    pl:
    rows("1:5").rowheight=200
    rows("1:5").autofit

    (Tapasztaltam már olyat, hogy a kézi méretezés után beragadt a sormagasság- nem ment a dupla kattintással - , lehet, hogy nálad is ez van.)
    Mutasd a teljes hozzászólást!
  • Sziasztok!

    Lévén, hogy a probléma még továbbra is adott, mellékelem a problémás fájlt.
    Az elképzelésem az, hogy minden sor mellé (27-től) szeretnék elhelyezni egy plsu jellel ellátott akciógmbot, ami a felhasználó számára láthatóvá teszi az adott sor adott cellájában lévő teljes tartalmat.

    Köszi továbbra is.
    Mutasd a teljes hozzászólást!
    Csatolt állomány
  • Ahogy nézem az egyesített cella "fekszi meg a gyomrát"
    ---
    Egy minta:
    Sub meretez(str01) Application.ScreenUpdating = False On Error Resume Next Set AutoFitRng = Range(Range(str01).MergeArea.Address) With AutoFitRng .MergeCells = False CWidth = .Cells(1).ColumnWidth MergeWidth = 0 For Each cM In AutoFitRng cM.WrapText = True MergeWidth = cM.ColumnWidth + MergeWidth Next 'small adjustment to temporary width MergeWidth = MergeWidth + AutoFitRng.Cells.Count * 0.66 .Cells(1).ColumnWidth = MergeWidth .EntireRow.AutoFit NewRowHt = .RowHeight .Cells(1).ColumnWidth = CWidth .MergeCells = True .RowHeight = NewRowHt End With Application.ScreenUpdating = True End Sub

    És meghívhatod:
    meretez "e27"


    pl. google: merge cell height autofit, első találat
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd