Příspěvky uživatele
< návrat zpět
Pro převod textu na datum slouží fce =DATUMHODN()
ukázka žluté buňky
Pokud se s výsledným datem se bude dále pracovat jako s textem, jde to takhle.
Pokud je formát dvanácti (čas 00:00) nebo jedenáctimístný (čas 0:00), mohlo by fungovat tohle.
? 
Krátkým makrem. Po dopsání km, mth a litrů stiskni tlačítko. Dopočítá řádky mezi předchozím a posledním tankováním.
Vzorec odkazuje na C4 B5 (obojí hodnota 1) a na "insert_tick_currency" = 10.
Laicky ať počítám jak počítám 1x10 = 10.
Jak píše AL, není jasné, kde se má sebrat hodnota 20, má se snad jednat o (C4+C5) x insert_tick_currency ???
Zkusil bych to třeba tak,
- načíst oblasti tisku do pole
oblastTisku(1,1) = od (číslo řádku)
oblastTisku(1,2) = do (číslo řádku)
a vyhodnotit, jestli daná oblast obsahuje alespoň první záznam, když ne tak
oblastTisku(1,3) = False
a netiskne se
to už je třeba dále ošetřit a pracovat s polem OblastTisku
Předpokládám, že všechny výkazy jsou totožné, co se rozvržení týče.
Nevím jak má vypadat soubor do kterého se budou kopírovat data z výkazů, tak jsem to nějak udělal.
Soubory s výkazy musí být v samostatném adresáři.
Vyzkoušej.
Teď přes vikend asi ne, ale v týdnu se pokusím vysvětlit.
Mrknu na to, ale teď mam nějakou práci. Řešení pošlu.
Řešilo se to tady:
http://wall.cz/index.php?m=topic&id=11684#post-11707
Je to jen ukázka jak napsat kod a jak tahat data ze "zavřeného" sešitu, je funkční. Asi jsi nenapsal nějaký svůj soubor "pokus" a neupravil cestu k souboru v kódu.
Set wb = xlApp.Workbooks.Open("C:\dokumenty_moje\pokus.xlsm")
Odkazem to samozřejmě jde, ale musíš mít sešit, ze kterého taháš data otevřený.
Pokud se tahají data z několika souborů stále ze stejného místa (není podmínkou), tak není problém.
Dej sem příklad zdrojových sešitů a cílového, kod upravím a jistě se tu objeví i jiné varianty.
Jedna z možností jak získat data z jednoho souboru do druhého. Je potřeba samozřejmě upravit dle svých požadavků a cest.
Sub ReferToExcel()
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim x As Long, y As Long
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("C:\dokumenty_moje\pokus.xlsm")
Set ws = wb.Sheets("List1")
x = 5
y = 10
Rem --- načtené udaje budou ze sl.10 a řádku 5 Listu1 souboru pokus.xlsm ---
MsgBox "Row 5, Col 10 value=" & ws.Cells(x, y).Value
wb.Close False
Rem Quit Excel
xlApp.Quit
Set xlApp = Nothing
Set wb = Nothing
Set ws = Nothing
End Sub
to AL:
reset ani nic jiného nepomáhá 
to AL:
explorer řádek nezobrazuje ???
ale zobrazoval
firefox zobrazuje
v exploreru je místo vzoce jen posuvník
Uživatelské menu
\nMenu
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.
RSS nejnovější články