@elninoslov
Dajte si do Watches premennú "i", "PL", "ERR", "JMFSE(i)", "MVPT" a krokujte makro.
Mrkněte na okno Locals ve VBE - možná vám to ušetří nějaký klik ;)
Nemyslím. V prostředí VBA "S" jako název proměnné použít může.
To bude nějaká blbost, ale bez přílohy to asi nepůjde
Není třeba nic programovat
ActiveX combobox (listbox) vlastnost MatchEntry nastavte MatchEntryComplete.
Ideálně seřadit položky abecedně
Pokud potřebujete pouze vidět, kolik je to sekund, tak nemusíte nic přepočítávat. Stačí vlastní formát[ss]
Pokud s tím chcete dále počítat, tak můžete použít to co napsal LOBO, další možnost je=HODNOTA.NA.TEXT(A1;"[ss]")/1
V obou případech stačí to s jenom jedno - tady to ale nelze vložit, protože s v hranatých závorkách je tag pro toto
@xlnc
píšeš rychleji ;)
musel jsem dát většinou platí místo musí být, protože mne překvapilo, že to u mně funguje ;)
U mně funguje OK (E2010), ale u funkce SVYHLEDAT většinou platí, že hledaná hodnota musí mít stejný typ jako data v hledané oblasti (číslo-číslo, text-text)
Nejjednodušší je převést ty nulou začínající na číslo, naformátovat pomocí "00000000", takže ty nuly budou vidět.
a pak vzorec=SVYHLEDAT(E3/1;A2:C8;3;NEPRAVDA)
Funkce Environ
Pro Win7 (počítám, že pro Win10 to bude stejné)sPath = Environ("USERPROFILE") & "\Documents\"
Pokud to chcete v listu - vytvořte si UDF
Pokud sem nevložíte přílohu, nemůžete dostat adekvátní odpověď.
Co je to za ComboBox - ActiveX, formulářový nebo v Userformu.
Jak propojím ComboBox s buňkou?
všechno hledejte v pravém tlačítku
Ale nejjednodušší bude to, co píše xlnc
ComboBox propojte s buňkou a do vzorce dejte odkaz na tuto buňku
Okurková sezóna ;))))
Sice jsem se nedíval ani na řešení vovky ani elninoslov, ale přesto mi podle příspěvků přijde, že jsem jako jediný odpověděl přesně na to, na co se OP ptal. ;)))
Začal jsem řešit pomocí comboboxu, ale narazil jsem na: jak měnit rowsource pro každý seznam viz příloha
Ale to nevadí, záleží na pohlu úhledu.
Ambiguous = máte tam stejně pojmenovanou funkci NAJDI minimálně 2x a to VBA neumožňuje
Stačíjednu přejmenovat
Pokud jsou data seřazená, tak bude stačit fce POZVYHLEDAT - worksheetfunction.match
Píšu z tabletu - omluvte prosím chyby
Ve sloupci G najdi nejbližší d
Bod (sloupec) G už zdá se našel, teď jde po větším detailu - špatné fórum? ;)))
10001 hodin a 01 minut => 416,709027777778
10600 hodin a 59 minut => 441,707638888889
To jsou čísla, se kterýma musíte počítat - získal jsem je takto
10001/24 + ČAS(0,1,0)
10600/24 + ČAS(0,59,0)Tato čísla naformátujte zmíněným formátem a udělejte rozdíl. Ten naformátujte stejně. Dostanete 599:58
Vlastní formát buňky
[h]:mm
Co znamená, že nestačí Wait?
Vyzkoušejte, jestli nepomůže totoDim dLimit As Date
dLimit = Now + TimeSerial(0, 1, 0)
Do While Not Len(Dir(adresar, vbDirectory)) = 0
If Now > dLimit Then
Exit Do
End If
LoopKontroluje jestli existuje adresář, když neexistuje, jede dál. Kontrola trvá 1 minutu
Psáno zbrucha - otestujte ;)
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.