Příspěvky uživatele
< návrat zpět
Základem je udělat si "zdroj dat", někam bokem si uděláš tabulku s údaji pro Výdaj a údaji pro Příjem. A do toho druhého seznamu jako zdroj dat umístíš fci když s odkazem na tu tabulku.
No v příloze je jednoduchá ukázka tak na ní mrkni.
Základem je udělat si "zdroj dat", někam bokem si uděláš tabulku s údaji pro Výdaj a údaji pro Příjem. A do toho druhého seznamu jako zdroj dat umístíš fci když s odkazem na tu tabulku.
Ten vykřičník znázorňuje že šešit obsahuje MAKRO. Máš je vůbec povolená??
Tlačítko Office - možnosti aplikace excel - centrum zabezpečení - nastavení centra zabezpečení - nastavení maker a povolit.
Nene v buňce F5 není žádný vzorec o tu buňku se stará makro. Když bude posledního tak makro při otevírání sešitu zkontroluje jestli se datum v buňce C1 shoduje s datem v D1 a vypíše hodnotu z buňky F8
Pro vyzkoušení je možné do buňky C1 napsat datum 31.1.2011 a sešit uložit a uzavřít, při opětovném otevření makro vyhodnotí shodu dat a přepíše hodnotu buňky F8 do F5. Po "testu" znovu do buňky C1 napsat fci =DNES().
Můj pokus "funguje" až do řádku 2000
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For i = 1 To 2000
If Cells(i, 6).Value = "ahoj" Then
Rows(i).ClearContents
End If
Next i
Application.ScreenUpdating = True
End Sub
Tak mám tu ještě jeden pokus, ten předchozí by při změnách v šešitu k "poslednímu" v měsíci házel špatný výsledky.
Úprava spočívá v buňce C1, která obsahuje fci DNES() a makru které při každém spuštění sešitu zkontroluje datum a když najde shodu přičte hodnotu buňky F8 k F5
To znamená když bude 31.1. makro automaticky při otevření sešitu přičte hodnotu, jestli-že provedu změny v sloupci F od řádku 11 a chci aby se přičetla hodnota do F5 musím sešit zavřít (s uložením) a opět otevřít.
Snad jsem to popsal srozumitelně. Líp to udělat neumím, snad se najde někdo kdo to vylepší.
Tak sem to zkusil pomocí malýho makra, snad to bude vyhovovat.
V buňce C1 je aktuální datum (zadáš pomocí fce DNES(), ručně nebo kombinací kláves CTRL + ;), v buňce D1 je "poslední" datum v měsíci pomocí fce EOMONTH. Když se budou hodnoty (data) shodovat makro přičte hodnotu buňky F8 k buňce F5
Ostatní sloupce prostě skryješ.
Označíš 6-tý sloupec (F), stiskneš Shift a držíš poté klávesu end stále se stisklím shiftem a jako poslední kurzorovou šipku (pravou),teď pustíš ten shift. Tím se ti označí všechny soupce, poté klik pravým tlač. myši a vybereš skrýt.
Můžeš poskytnout "vzorek" toho sešitu?
Nesmíš v tom (smajlu) hledat nějakej skrytej smysl, prostě sem v půl jedný ráno nevěděl co napsat, tak sem tam máznul smajla, kterej mi padnul pod ruku.
Hlavně že to maká podle představ, není zač.
Když chceš excel "úplně" zavřít použij příkaz:
Application.Quit
Tak sem něco zkusil koukni na přiložený soubor, použil sem funkci EOMONTH na zjištění posledního dne v měsíci. Používám Office 2007 tak nevím jak je to s touto funkcí u starších verzí Office.
Když změníš "Aktuální datum" na "posledního" dojde k součtu.
Edit:
Nebo můžeš místo fce EOMONTH použít vzorec
=DATUM(ROK(D4);MĚSÍC(D4)+1;0)
kde D4 je buňka s aktuálním datem
Nevím jestli sem udělal přesně co si chtěl, jedná se o změnu čísla faktury. Po každým exportu se změní číslo faktury o 1 a uloží se změny v sešitě.
Vyzkoušej, mělo by to běhat.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články