< návrat zpět

MS Excel


Téma: Přičtení částky rss

Zaslal/a 15.3.2011 19:22

Dobrý den,potřeboval bych poradit mam vytvořeny list ve kterém se přičítá každy měsíc částka k částce z předešlého měsíce.Částka se přičte pouze když složku otevřu poslední den v měsíci pokud ji otevřu v jiný den částka zůstane neřičtena.Tudíž potřebuji aby se částka přičetla automaticky vždy jen poslední den v měsíci a né pokud soubor otevřu v poslední den v měsici a když ho otevřu v jiný den tak se nepřičte.
Předem děkuji za rady...

Zaslat odpověď >

Strana:  « předchozí  1 2 3   další »
#004586
avatar
Do "C1" si přidej rok, aby to fungovalo i na přelomu roku

Sub Auto_open()
If Not (Month(Now) = Cells(1, 3) And Year(Now) = Cells(1, 4)) Then
i = CInt((Cells(1, 4) - Year(Now)) * 12 + Cells(1, 3) + 1)
For i = i To Month(Now)
Cells(1, 1) = Cells(1, 2) + Cells(1, 1)
Next i
Cells(1, 3) = Month(Now)
Cells(1, 4) = Year(Now)
End If
End Sub
citovat
#004587
avatar
Jde to i jednodušeji
Sub Auto_open()
If Not (Month(Now) = Cells(1, 3) And Year(Now) = Cells(1, 4)) Then
Cells(1, 1) = Cells(1, 1) + Cells(1, 2) * (Month(Now) - (Cells(1, 4) - Year(Now)) * 12 - Cells(1, 3))
Cells(1, 3) = Month(Now)
Cells(1, 4) = Year(Now)
End If
End Sub
citovat
#004588
avatar
Mohl bych poprosit o vytvoření vzorové tabulky?Nejsem v těch makrech tolik zběhlej!citovat
#004589
avatar
Snad toto
Příloha: zip4589_pokus.zip (7kB, staženo 40x)
citovat
#004598
avatar
Už je to dobré...akorát bych potřeboval tedy pokud to je možné?Aby se částka přičetla vždy poslední den v měsíci...kůli tomu protože přičtená částka se může během měsíce změnit a když bych soubor otevřel třeba za půl roku tak by se za 6 měsíců přičetla poslední částka která tam je 6x stejná...!citovat
#004599
avatar
Dostávám infrmace po kapkách, to se pak velmi špatně něco dělá, neboť ne vše (každá varianta řešení) směřuje k jednomu cíli.
1. Jak měníte v souboru data když ho celý půlrok nebo i více neotevřete? Test musí být někce jinde, kde data vzikají!
2. Pokud se má přičíst vždy částka na konci měsíce, nevím, jak se tam dostane viz výše, pak je nutno ve windows zadat jeho pravidelné zpuštění 1. dne v měsící, aby tam byla správná hodnota.
3. Data vkládáná (sčítanec) musíte vést pod datumem a přičíst vždy hodnoty, které tam byly na přelomu měsíce.
Hlavně ale nechápu proč a jak tam měníte hodnoty sčítance bez otevření sešitu!!!citovat
#004620
avatar
1. Ano, data jsou propojená z jiného sešitu kde se na základě úspěšnosti pracovníka mění jeho ohodnocení každý měsíc může být vyžší,nižší nebo stejné.
2.Tudíž shrnutí ohodnocení za uplinulý měsíc vždy k poslednímu dni v měsíci,aby se přičetlo k částce již nastřádané z předešlích měsíců!Pouze jednou...
3.Takže každý pracovník ma 2 tabulky!V jedné se mění jeho ohodnocení v průběhu měsíce kde se pohybuje částka dle schopností pracovníka,ta je propojená s tabulkou v druhém sešitu kde potřebuji aby se částka automaticky přičetla aniž bych musel soubor otevřít,ale vždy jen poslední den v měsíci...citovat
#004626
avatar
Zaslat odpověď je zde dosti složité, jelikož neznám konkrétni soubory a hlavně, kdy a co na nich provádíte.
Soubor 1 - mám namysli ten, co má sečíst každý měsíc ohodnocení
Soubor 2 - ten, který nějak podkytuje data, není napsáno jak, zda makrem, povázaností nebo jinak.
Změna měsíce není událost v Excelu, která by vyvolala u neotevřeného souboru akci (pokud to někdo zná sem s tím) takže je tu řada možností jak to udělat jinak, která je ta nejlepší vychází ze způsobu Vaší práce a práce se soubory:
1. mít soubor 1 stále otevřený a první den v měsíci provést akci
2. pravidelné spouštění souboru 1 v první resp. x tý den v měsíci (do doby spuštění platí hodnota načítací v souboru 1 tedy i několik měsíců.
3. vést si historii změn v souboru 2 a při otevření souboru 1 načíst data podle historie vždy k 1. dni příslušného měsíce, kdy soubor nebyl otevřen, v tomto případě mohu mít i ohodnocení od do.
4. při změně dat v souboru 2 (ohodnocení) vyvolat automatické otevření souboru 1, který načte dosud platná ohodnocení a soubor 2 dodá nové ohodnocení pro další měsíc (měsíce) do změny ohodnocení, pokud bude 2x hodnocení v měsíci je platné jen to poslední, to které je k poslednímu dni měsíce.
5. další varianty, které mohou vyplývat ze způsobu práce viz výše
Mít neustále spuštěnýcitovat
#004633
avatar
Předem děkuji za vaši trpělivost...myslím že v jste se asi nejvíc trefil v té 4. verzi myslíte že b jste mohl vytvořit vzorové sešity abych se na to podíval jak to funguje...ale myslím že to by nejvíc vyhovolvalo...citovat
#004654
avatar
Neumím vložit obrázekimgcitovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje