Příspěvky uživatele

@lubo
Teď opravdu jen střílím, ale tipoval bych, že pokud to projde bez cesty, tak to bude hledat buď ve složce aplikace nebo v systémové (např. System32)

@Richard99
Máte to ve FreeBasic, takže Basic - není jednodušší doplněk? Klidně ve VBA?
Nebo nějaký objekt volaný pomocí CreateObject?

@marjankaj
;))
zvětšení nebo zmenšení o 0.5 jsem já osobně použil poprvé v roce 1989 - na ZX Spectru - tam totiž nebyla funkce ROUND a používalo se pouze INT.
Považuji za přínos, že se v MS rozhodli některé funkce přidat a rozhodně je neodmítám používat.

Je to věc, kterou zkoušet nebudu, protože nemám jak. Ale můžete zkusit něco takovéhoDeclare Function Rdol1 Lib "Cesta1\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As Double
Declare Function Rdol2 Lib "Cesta2\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As DoublePokud kompilátor sežere deklaraci na neexistující soubor, tak by pak mohlo fungovat něco jakoIf Len(Dir("cesta1")) > 0 Then
Rdol1
Else
Rdol2
End If
Ale asi by bylo lepší, kdybyste popsal, co chcete udělat. Protože je možné, že to vše lze udělat úplně jinak.

Možnosti aplikace - Centrum zabezpečení - Nastavení centra - Při uložení odebrat z vlastností souboru osobní informace

Excel Vás pouze upozorňuje, že u některých prvků v souboru můžou být informace, které Vy podle nastavení asi chcete odstranit, ale on toho není schopen.

@Vovka
V Excelu všechno komplikuje taková nejapnost, že formát pro funkci ZAOKROUHLIT chce znát počet desetinných míst, zatímco funkce ZAOKR.DOLŮ a ZAOKR.NAHORU vyžadují velikost zaokrouhlovacího intervalu
Nejedná se o nejapnost, ale (mírně řečeno) o nepřesnost v překladu (můj názor). Když už někdo použil překlad ZAOKR.DOLŮ tak to měl být ekvivalent funkce ROUNDDOWN nikoliv FLOOR (moje chyba, nedošlo mi, že tazatel je slovák - částečně jeho chyba, vždy si má vyhledat správný překlad. Nicméně na jeho místě bych pravděpodobně udělal to samé).
A k té funkční ukázce - funkci popíšete správně a pak ji v podstatě použijete, jako by to byla ROUNDDOWN. Proč násobíte a dělíte~~=ZAOKR.DOLŮ(B2*96;1)/96~~když to lze udělat rovnou (viz můj 1. příspěvek).

Hmmm - to je pěkná divočárna ;))
Nebudu tvrdit, že to vím, protože tuhle myšlenku jsem nikdy neměl a proto jsem to nikdy nezkoušel (a nikdy ani nebudu).

Ale teoreticky
Prostě nadeklarujte všechny a pak v kódu použijte tu co potřebujete.If něco Then Rdol(x) Else ZateR(x)

Pepeho vzorec funguje, já přidám svůj ;)=SUBTOTAL(3;B2)+KDYŽ(JE.ČISLO(A1);A1;0)nebo lépedo A2=SUBTOTAL(3;B2)a do ostatních=SUBTOTAL(3;B3)+A2

@netopier13
zaokruhlovani nahoru mi nejde :-(
=ROUNDUP(B2;1/24/4)

Jistěže nefunguje - protože ROUNDUP je úplně jiná funkce než ZAOKR.NAHORU. Ta naopak slouží přímo k tomu, co jste požadoval.
Anglicky:=CEILING(B2,1/24/4)

=ZAOKR.NAHORU(B2;1/24/4)=ZAOKR.DOLŮ(D2;1/24/4)

nebo prostě

On Error Resume Next
MkDir "V:\" & Range("A1").Value
If Not Err.Number = 0 Then MsgBox "Už je!"
On Error GoTo 0

@lubo
Tak toto byl ten impuls, který Vás konečně donutil se zaregistrovat? ;)

Předpokládám, že O7:Q15 jsou výsledky. Pak ale nemáte vyřešeno, že cyklista se může vyskytnout pouze jedenkrát (třeba 3 jede do A i do B).

A taky vidím problém v tom, že se to řeší jednotlivě (tedy i v tom mém řešení). Pokud totiž najdu první kombinaci do A, pak druhou do B tak do C už musím dát jen to co zbyde (vyšlo mi to celkem dobře, ale taky to mohlo rozhodit úplně jinak). Takže by se to asi mělo řešit najednou...

Možná to Vovka ve svém řešení takto má - kouknu se na něj až budu mít více času...

A proč to nenechat tak jak to je?
Vždy to bude miniálně 4 znaky dlouhé ("0.00"), takže 1 znak to splňuje. A max 13 znaků - hrozí Vám, že budete posílat částku větší než 10mld. nebo menší než -1mld. ?

Nápověda excel, google - funkce VLOOKUP je spojená s nejvíce dotazy a proto je toho o ní hodně napsáno.

Mno - tak jsem to zkusil pomocí vzorců - jde to hrubou silou => testoval jsem všechny možnosti. Nejdříve je ale potřeba zjistit všechny možné kombinace - to není problém, na to stačí DEC2BIN + filtr.

Pro účely grafu (taky jsem se s tím moc nebabral, takže berte z rezervou - jen pro ukázku) jsem posunul start jednoho cyklisty (aby neměl stejnou souřadnici X jako jeho cílové město).

Chtěl jsem zkusit lubův postup pomocí řešitele, ale dostalo mně Metoda GRO nonlinear. Hledám na internetu a nic. Pak jsem našel GRG nonlinear a svitlo mi. Otevřel jsem E2013 a tam je jiná verze Solveru než ve 2007 ;))) - jaká je ve 2010 nevím. V každém případě ve 2007 toto nastavení (GRG, evolutionary) nemám a přiznám se, že s tímto doplňkem jsem ještě nedělal a nevím, co přesně nastavit - řešení mi nenašel. Zatím to nezkoumám, protože tento typ úloh moc neřeším. 2013 mám ve virtuálu, takže tam jsem to nespouštěl. Ale tipl bych, že když to tu napsal, tak to zkusil a podle jeho návodu by neměl být problém to odzkoušet.

Máte tam minimální a maximální délku.
Takže Vy byste měl vlastně řešit jen to minimum, protože maximum ošetříte pomocí Left (pro změnu jiná možnost).
Takže např.:s1 = Left$(rRow.Cells(1).Value, 120)
If Len(s1) < 4 Then
s1 = s1 & Space(4 - Len(s1))
End If
s1 = """" & s1 & """" & ","
Píšu to rovnou sem bez testování, takže pokud tam je nepřesnost, tak se omlouvám a opravte si.

A ještě jen upozorním, že csv je standardní formát v excelu a možná by v tomto případě bylo jednodušší použít vzorce a použít uložit jako. Nicméně dnes už nemám čas.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje