staci spustit UserForm takto:UserForm1.Show vbModeless
Do bunky N2 vlozte vzorec:
=INDEX(A1:I15;POZVYHLEDAT(K3;B1:B15;0);POZVYHLEDAT(L3;A2:I2;0))
Samozrejme je nutne mit vyplnene hodnoty v bunkach K2 a L2.
V Office 2007 existuje moznost vlozeni konce stranky.
Karta Rozlozeni stranky / Konce
Pro minimalizovani aplikace lze pouzit tento kod:Application.WindowState = xlMinimized
Problem je, ze pokud toto chcete udelat z UserFormu, musi byt tento userform otevren jako Modeless, jinak to nebude fungovat.
Nevim o zadne vestavene funkci Excelu, ktera by to umela - tak je nutne pouzit vlastni funkci.
Staci funkci nize zkopirovat do modulu sesitu a do bunky napsat: =PosledniZmena()
Public Function PosledniZmena() As Date
PosledniZmena = ThisWorkbook.BuiltinDocumentProperties("last save time").Value
End Function
Myslim, ze je mozne pouzit standardni vkladani z txt, co nabizi excel.
Dotaz je ulozen na listu zdroj a na dalsim listu pak snad zadany vysledek
Napada me jen zapisovat hodnoty do nejake bunky (treba do skryteho listu)
Poprve se zapise napr. do A1 (skryteho listu) dnesni datum (tedy datum prvniho spusteni). Pak se vzdy overi, jestli je A1 prazdne, kdyz ne, tak se porovna A1 s datumem dnesnim (kdyz bude dnesni datum vetsi nez prvni otevreni o vice nez 30 - skoncila doba 'testovani')...
Po zadani hesla se do A1 zada napr. 31.12.9999
Problem je, ze by musely byt makra spustena pomoci workbook_open (ale pokud uzivatel zakaze spousteni maker - je to v haji)...
Nic neprustelnyho v Excelu urcite udelat nejde... (bez pomoci jinych aplikaci...)
tak nevim, kde je chyba, ale po rozbaleni je tam soubor bez pripony, kterej nejsem schopen regulerne otevrit s ani jednou variantou pripony Excelu...
cau,
na tohle se pouziva zakaz udalostnich procedur.
Za zacatek kodu, ktery vyplnuje nova data do listu das:
Application.EnableEvents = False
...
a nakonec zase povolis spousteni udalostnich procedur:
Application.EnableEvents = True
=SUMA(($A$2:$A$65000>=0)*($A$2:$A$65000<=5)*($A$2:$A$65000))
S OpenOffice jsem nikdy nepracoval, takze opravdu nevim...
tak nevim, pokud byste mohl poslat soubor, podivam se na to...
Muzete do modulu sesitu (ThisWorkbook) vlozit tento kod:Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub
Pri zavreni se uz nebude ptat a nebude se take nic ukladat - otrevovat ale bude pri otevreni sesitu hlaska, jestli chcete povolit makra (pokud si ten sesit digitalne nepodepisete) - makra museji byt povolena, jinak se bude sesit opet ptat, jestli chcete ulozit.
Tezko rict, jak toho docilit, kdyz nemam k dispozici onen soubor.
Slo by tento soubor prilozit...nebo obsahuje prilis citliva data (to by asi obsahovat nemel, kdyz to posilate e-mailem...)
Zdravim,
v seznamu maker (ALT+F8) se neobjevuji procedury listu a sesitu - tedy makra ulozena v modulech jednotlivych listu nebo sesitu (ThisWorkbook).
Stisknete ALT+F11 (otevre se Editor VBA).
V tomto editoru vlevo nahore uvidite seznam otevrenych sesitu a kdyz vyberete ten vas a podivate se, co obsahuje, muzete prozkoumat vsechny moduly, kde muze byt ulozeno makro (jak jsem psal vyse - vsechny list maji modul a jeden modul je i pro cely sesit).
Snad jsem to popsal srozumitelne.
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.