Příspěvky uživatele
< návrat zpět
Tak niečo takéto som ešte nevidel. To si vymyslel úplne sám? 
Skontroluj si hranice v tabuľke. Ten tvoj vzorec sa "nedá" čítať.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo chyba
a = Split(Target)
a(0) = UCase(a(0))
For i = 1 To UBound(a)
a(i) = WorksheetFunction.Proper(a(i))
Next i
Target = Join(a)
chyba:
End Sub
Opičák napsal/a:
=IFERROR(VELKÁ(ZLEVA(A5;NAJÍT(" ";A5;1))) & ZPRAVA(A5;DÉLKA(A5)-NAJÍT(" ";A5;1));"")
Doplnil by som o funkciu PRPOER=VELKÁ2
=IFERROR(VELKÁ(ZLEVA(A5;NAJÍT(" ";A5;1))) & VELKÁ2(ZPRAVA(A5;DÉLKA(A5)-NAJÍT(" ";A5;1)));"")
Asi to celkom nefunguje
Tak niečo takéto
MsgBox ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
MsgBox ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1, ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1).Select
No ja mám v excel 2010 poslednú bunku AFD1048576 
Ale ak si myslel poslednú použitú bunku, tak napríklad takto
Selection.SpecialCells(xlCellTypeLastCell).Select
Alebo
MsgBox Selection.SpecialCells(xlCellTypeLastCell).Address
Alebo makrom.
Vyznač bunky ktoré potrebuješ "naformátovať" a spusti makro.
Predtým vymaž prípadné medzery. Funkcia TRIM.
..
=INDEX(A1:D8;MATCH(15;A1:A8;0);MATCH(0,01;A1:D1;0))
Tak tam pridaj "="
=(D5-C5)-(F5-E5)*((F5-E5)>=1/48)-(H5-G5)
=(D5-C5)-(F5-E5)*((F5-E5)>1/48)-(H5-G5)
=YEAR(TODAY())-A1
takto?
alebo tam daj takýto vzorček
=INDEX($B$2:$B$11;MATCH(A2-0,01;$B$3:$B$11;1)+1;1)+1&" : "&INDEX($B$2:$B$11;MATCH(A2-0,01;$B$3:$B$11;1)+2;1)
MATCH=POZVYHLEDAT
alebo
=K1-KDYŽ(J1="";I1;J1)
píš do A1
No ja pridám súbor bez makier.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články