daj tam písmo curier.
priložil som subor
Skus toto makro
koef je približný počet znakov v zlúčenej bunke.
Private Sub Worksheet_Change(ByVal Target As Range)
koef = 36
If Target.Column = 7 Then koef = 54
vyska = (Int(Len(Target) / koef) + 1) * 15
Target.RowHeight = WorksheetFunction.Max(Target.RowHeight, vyska)
End Sub
Zdeno-Frano napsal/a:
Ďakujem.
Skúšal som oboje, ale nech som robil čo som robil, to 1.riešenie mi nechcelo fungovať. Asi sa mám čo učiť ešte :-).
Ale ešte som to nevzdal, prídem na to!!!
Ak to nebude viac ako mesiac, tak asi takto.
Ako si prestavuješ to "ohlídaní" netuším.
Sumavak napsal/a:
Už to jde :) teď už to jen použít na více řádků v jednom listě.
@elninoslov
Bavíš sa s "odborníkmi". Ak je v C1 5, tak je to málo. Ak je tam 2 tak je to OK.
Len mi nie je jasné prečo pcháš tie procedúry(aktualní a dochází) do hárkov a nie do modulu.
A keď bude hodnota "3" tak sa žiadne makro nespustí? Fakt to bolo "zrozumiteľne" napísané.
Sumavak napsal/a:
Asi jsem fakt blbej a stále my to nejde :( a nejde my přiložit přílohaPříloha: 42215_pokus1.xlsx (21kB, staženo 1x)
=SOUČIN.SKALÁRNÍ(--(DENTÝDNE(A1:A14;2)>5);C1:C14)
Je nejaký rozdiel spustiť *.xls a *.xlsx?
Stano012 napsal/a:
=INDIRECT(ADDRESS(ROW(Hárok2!A1)*15+1; 1; 4; 1; "List2"); TRUE)
eLCHa má pravdu.
Ale excel to predsa dokáže. viď príloha.
Prípadne vo VBA použiť datový typ "decimal" až 28 platných cifier.
https://office.lasakovi.com/excel/vba-teorie-zaklady/promene-excel-vba/
Čo spočítavaš? Zrnká piesku v náklaďáku? Keď k fúre prihodíš ešte hrsť piesku?
@elninoslov
Dá sa to aj takto. Ale potom tam lomítko nedáš.
Názov súboru vyjadruje, čo si myslím o zadaní.
@mepexg
To sa asi hodí sem, ale "študentík" chcel riešenie makrom, keďže ho usilovne študuje.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.