Dobry den Tomas, dna 04.12.2000 si napisal(a):
> Dobry den preji,
>
> uz nejakou dobu me trapi jista funkce v excelu, ktera nechce fungovat.
> Mam
> obycejnou tabulku o cca 10 sloupcich a 80 radcich, je to jakasi
> databaze,
> kterou prubezne doplnuji. V jednou z onech sloupcu jsou texty, ktere
> temer
> vzdy presahuji sirku bunky. Proto mam ve formatu bunek nastaveno
> zarovnani
> textu: vodorovne: do bloku, svisle: nahoru. Tato funkce zpocatku svuju
> ucel
> plnila, bunky se zarovnavaly, tj. zvetsovaly a zmesovaly podle toho,
> kolik v
> ni bylo textu. Dnes uz ovsem musim vysku radku nastavovat rucne, protoze
> se
> to s prybyvajicimi daty uplne rozhodilo. Tak jak celou tabulku prubezne
> sortuji, tak se casto vyska radku na danem radku zachova dle puvodnich
> dat a
> uz se neprizpusoby tem novym, tzn. bud tam mam spoustu volneho mista a
> nebo
> je naopak spousta textu schovana a je videt jen pocatek. Ubezpecuji, ze
> mam
> stale nastaveno ono formatovani. V cem je tedy problem? Poradte mi
> prosim,
> nechce se mi nastavovat porad vysku rucne po kazdem sesortovani.
>
> Dekuji mnohokrat.
>
> Tomas
>
daj jeden alebo obidva kody do ThisWorkbook:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'predtym ako budes tlacit oznaci vsetky bunky a zarovna riadky
Cells.Select
Cells.EntireRow.AutoFit
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
'po stlaceni F9 spravi to iste, oznaci vsetky bunky a zarovna riadky
Cells.Select
Cells.EntireRow.AutoFit
End Sub
riesi to tvoj problem (je to na stlacenie jednej klavesy)
preco nefunguje automatika excelu ???
--
s pozdravom
AleXXX
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 04:35 CEST