Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  8 9 10 11 12 13 14 15 16   další » ... 30

nosekpav napsal/a:

já se ptat kde se vzalo 43679,73


je to excelovské počítanie roku, je to zápis dátumu vo všeobecnom tvare - ako poradové číslo

pozri
https://office.lasakovi.com/excel/funkce/ms-excel-datum-a-cas/

Stalker ma predbehol.

nosekpav napsal/a:

jo to číslo 43679,73 když zformátuji na datum a čas tak to sedí i když čas se liší o 2 min 17 s
jak se dopracuji z 1564767209 k 43679,73


1564767209 toto číslo sa Ti nikdy nebude zobrazovať ako uvedený dátum, lebo poradové číslo nezodpovedá tomu dátumu.

elninoslov napsal/a:

Tu pomôže asi iba ComboBox.Příloha: 43918_zoznam-combo.xls (32kB, staženo 3x)


Vďaka, aj som si to myslela.
Medzitým som ho už skúmala.
Urobím to cez combobox.

Mám vytvorený rozbaľovací zoznam.
Ale nie je vidno celý obsah, musím rolovať.

Je možné to ošetriť, aby bolo vidno celý obsah
rozbaľovacieho zoznamu, nielen prvých pár položiek?

Prišla som k zaujimavému zisteniu.
Keď som vo Windowse zmenila formát dátumu z dd.mm.rrr na dd-mm-rrrr, tak zmena formátu zafungovala pri dvoch vzorcoch.

Tu bude niekde pes zakopaný.

Stalker napsal/a:

V Excelu 2003 opravdu hlásí vzorec chybu, ale po "editaci" => F2 a Enter se umoudří a vrátí výsledek, nebo taky zabralo přepsat rok a vrátit zpět.
(Přepočet listu - automaticky)


Ja som stlačila F9 (to mám ja na prepočet)a enter a nič.
Rovnako som aj prepísala rok a vrátila späť a nič.

Píše mi, že hodnota použitá vo vzorci má neplatný typ dát.

Rovnako sa správa aj originál súbor z linku.

http://www.excelvpraxi.sk/clanky/vzorec-velka-noc.html

Vymenila som aj bodkočiarky ; za čiarky , aj bodky . za lomítka / a nič.

Všimla som si, že v nastavení dátumu mám rrrr, ale excel 2003 aj 2007 udáva yyyy.

Budem pokračovať v tejto téme.

Windows7 v sk lokalizácii
Mám excel 2007 v sk lokalizácii s anglickými vzorcami.
Mám excel 2003 v cz lokalizácii s českými vzorcami.

Ak súbor xls otvorím v xceli 2007 je to v poriadku.
Ak ho otvorím v v exceli 2003 tak vyhodí chybu hodnota.

Bude to nejaká prkotina, ale už fakt neviem kde.
Bunka C2 má formát čísla nie textu.


FLOOR(DAY(MINUTE(C2/38)/2+56)&".5."&C2;7)-34

(DOLLAR(("4/"&C2)/7+MOD(19*MOD(C2;19)-7;30)*14%;)*7-6)

FLOOR((4&-C2)-DAY(5)+97%*MOD(18,998*MOD(C2+8/9;19)+INT(68%*INT(C2%)-INT(C2%/4)-5/9);30);7)+DAY(1)



ZAOKR.DOLŮ(DEN(MINUTA(C2/38)/2+56)&".5."&C2;7)-34

(KČ(("4/"&C2)/7+MOD(19*MOD(C2;19)-7;30)*14%;)*7-6)

ZAOKR.DOLŮ((4&-C2)-DEN(5)+97%*MOD(18,998*MOD(C2+8/9;19)+CELÁ.ČÁST(68%*CELÁ.ČÁST(C2%)-CELÁ.ČÁST(C2%/4)-5/9);30);7)+DEN(1)


Pozerala som aj oddeľovač záznamov ;

@lubo... Ďakujem sa vysvetlenie.

VYRIEŠENÉ... Ďakujem veľmi pekne marjankakovi...

https://www.porada.sk/t317546-rozdiel-medzi-vzorcami-na-vypocet-velkej-noci-vyriesene.html

Prosím pekne, aký je rozdiel medzi týmito funkciami?
A čo je lepšie použiť pre excel 2003?

=FLOOR(DAY(MINUTE(YEAR(NOW())/38)/2+56)&".5."&YEAR(NOW());7)-34
=FLOOR(DAY(MINUTE(bRok/38)/2+56)&".5."&bRok;7)-34
=(DOLLAR(("4/"&YEAR(NOW()))/7+MOD(19*MOD(YEAR(NOW());19)-7;30)*14%;)*7-6)
=(DOLLAR(("4/"&bRok)/7+MOD(19*MOD(bRok;19)-7;30)*14%;)*7-6)


ZDROJ:http://www.excelvpraxi.sk/clanky/vzorec-velka-noc.html

Rejpal napsal/a:

Pro off. 2003 jsou jen 3 podmínky.


ja viem, že sú len tri, preto to potrebujem obísť.

@JoKe Ďakujem, ale potrebujem 4 farby, tak ako sú zvyknutí.

VYRIEŠENÉ

Našla som riešenie pomocou makra od Marjankaja.

Keby to bol súbor pre ofice 2007 nie je problém, ale s týmto súborom sa pracuje v office 2003.

Prkotina, ale neviem to zadefinovať.

VYRIEŠENÉ - upraveným makrom od Marjankaja z www.porada.sk

https://www.porada.sk/t184286-podmienene-formatovanie-bunky-zafarbenie-pri-splneni-podmienok.html

VYRIEŠENÉ

Pridala som makro na zobrazenie aktuálneho času do stĺpca J a využila som farebnú škálu podmieneného formátu - najvyššia a najnižšia hodnota.

Našla som toto makro na zvýraznenie aktívnej bunky.
Ale potrebovala by som, aby mi farene zvýraznilo aspoň 5 posledných záznamov v stĺpci E. Možno sa to dá aj funkciu a podmieneným formátom, ale neviem ako.

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

Tak už som vyriešila aj druhý problém so zachovaním vzorcov a odkazov. Len by som trochu potrebovala učesať makro, ktoré som si nahrala, aby nebolo také dlhé.

Mohla by som vybrať oblasť (Array), ale oddelenie OK má oblasť 29 a Očné iba 25, tak neviem ošetriť výnimku.
FaP som trochu skrátila, neviem či sa dá ešte viac.

Sheets("KUCH").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$4"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E28"), Type:=xlFillDefault
Range("E3:E28").Select

Sheets("OK").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$5"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E29"), Type:=xlFillDefault
Range("E3:E29").Select

Sheets("NK").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$6"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E28"), Type:=xlFillDefault
Range("E3:E28").Select

Sheets("UK").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$7"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E28"), Type:=xlFillDefault
Range("E3:E28").Select

Sheets("ORL").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$8"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E28"), Type:=xlFillDefault
Range("E3:E28").Select

Sheets("OMFCH").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$9"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E28"), Type:=xlFillDefault
Range("E3:E28").Select

Sheets("KPCH").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$10"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E28"), Type:=xlFillDefault
Range("E3:E28").Select

Sheets("Očné").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$11"")"
Range("E3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E3:E25"), Type:=xlFillDefault
Range("E3:E25").Select

Sheets("FaP").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$4"")"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$5"")"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$6"")"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$7"")"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$8"")"
Range("B7").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$9"")"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=INDIRECT(""'zoznam pacientov'!$D$10"")"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


Strana:  1 ... « předchozí  8 9 10 11 12 13 14 15 16   další » ... 30

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje