Příspěvky uživatele

V buňce AF17 změňte vzorec na=KDYŽ(MĚSÍC(AE17+1)=MĚSÍC(AE17);AE17+1;NEDEF())Pak to zkpírujte o pár buněk doleva - bo únor.

@Tlumic01
Pokud se rozhodnete si to vytvořit, nezapomeňte použít místo dynamických oblastí tabulky (objekt Excel-Table, karta Vložení-Tabulka). Toto Vám ušetří spoustu práce. Pokud chcete s něčím poradit, ptejte se konkrétně a ideálně s přílohou (jak psal marjankaj, nutno se zaregistrovat).

Zkušený člověk by funkční variantu zvládl během pár hodin. Pokud s tím zkušenosti nemáte, bude to trvat mnohem mnohem déle, takže záleží jak moc to Váš známý potřebuje...

Mimo téma:
Zápis do zavřeného sešitu
Podařilo se mi sešit přejmenovat z xlsx na zip, rozbalit, zabalit a přejmenovat zpět (zápis do xml jsem zatím nedělal). U souboru, který má velikost 1777kb mi to celé trvalo cca 30s, takže to opravdu moc praktické není (což bylo samozřejmě jasné už předtím, jen zkouším). Zajímavé je, že výsledný sešit má velikost 1450kb, tedy celkem výrazná úspora a přitom je zcela funkční (obsahuje i KT). Pouze jeho uložení v excelu (007) pak jeho velikost změní na 1786kb ;)) .
Je ale docela možné, že lze dekomprimovat pouze vybranou část archivu (tedy konkrétní list) - změnit data a vložit zpět do archivu. To by bylo mnohem rychlejší. Tady už by ten kompresní rozdíl mohl být ale problémem. Až budu mít čas, vyzkouším...

@Tlumic01
přesně ten opačný způsob jsem měl, ale narazil jsem na to, že ve faktuře není jen jedna položka za XY Kč, ale je to obvykle celý výpis několika položek, kde se až na konci zobrazí celková suma, kterou je zapotřebí dostat do sešitu daňové evidence

Počet položek není problém, těch můžete mít v řádku několik. Ono stejně bych Vám doporučil přenášet do té databáze všechny údaje z té faktury. Už jen proto, že si tu fakturu budete moci kdykoliv vytvořit znovu. Pokud vytváříte nějakou databázi, je vždy vhodné zamyslet se dopředu a pouvažovat, co bych z toho ještě mohl získávat. Zase samozřejmě s rozumem, protože nevím kolik položek se max může na jedné faktuře objevit.

Z toho co zatím vím:
- dělal bych vše v jednom souboru - 1 list databáze dokladů, 1 list databáze zboží, 1 list databáze odběratelů, 1 list faktura (může sloužit pro vstup i pro výstup), další vstupní a výstupní listy podle potřeby
- list faktura bych používal jako vstup i výstup (+ tlačítka ulož, načti). Přece jen zadávání do řádku pokud je ruční a je položek hodně nemusí být pohodlné a přehledné, tak je lepší použít formulář. Takže by to bylo s kódem.

Dále byste měli vyřešit zálohování souboru(ů). Mělo by být pokud možno automatické a nemělo by být na tom samém disku. V tomhle bych ten cloud tak úplně nezavrhoval (můžete si otevřít i starší verze souboru).

Mimo téma:
Jen poznámka k zápisu do zavřeného sešitu. Teď teoritukuji.
Vzhledem k tomu, že od verze 2007 používá office formát souborů OpenXML, tak "by neměl být problém" něco takového udělat.
Muselo by se "pouze vyřešit" rozbalení+zabalení souboru zip.

Takže asi to možné je, třeba to i někdy zkusím, ale jestli bych to reálně používal, to nevím. Asi ne.

@Tlumic01

Záleží na tom, jestli trváte na té šabloně.
Protože pokud ne, tak zvolte opačný postup. Vytvořte si nový sešit a vyplňujte ta data "do jednotlivých řádků". Z této databáze pak generujte faktury a další výstupy. Pravděpodobně nebudete potřebovat vůbec žádný kód. Tak bych to dělal já.

Pokud na ni trváte, tak to samozřejmě lze. Opět můžete vytvořit sešit, kam budete vkládat data a z toho pak generovat nový z Vaší šablony. Pak už asi kód bude potřeba.

Mimochodem, pokud trváte na tom, že data budete vkládat do šablony, tak zavřený sešit (o kterém jste nepsal Vy, ale elninoslov) je možné otevřít, vložit do něj data a zase zavřít.

@elninolov
nepoužil bych Worksheet_Change, ale Before_Save nebo lépe novější After_Save (tu já nemám, záleží na verzi excelu žadatele)...

Jak píše Vovka, standardní ovládací prvky moc možností nenabízejí.
Kdysi tady bylo téma, že chtěl někdo ListBox se seznamem listů + jednotlivé položky odlišené podle barev oušek. Nemohu to najít, ale dal jsem tam řešení pomocí kombinace Frame+Labely - prostě vytvoření vlastního prvku kombinací standardních. Takto to lze.
Záleží co chcete dělat a zda to stojí za tu práci...

Očislované Shapes by som nepoužíval, radšej pomenované.

Samozřejmě. Já jenom navrhl způsob, jak by si to mohla otestovat, zda jdete správnou cestou a neztrácíte jen čas... ;)

Mno, on El Niño, když něco dělá večer, tak už se tak nesoustředí ;))
Snad se na mně nebude zlobit, když to trochu popoženu ;)

Má tam jednu nepřesnost v řádkuSet Klik = Intersect(Columns(2), Target.Cells(1, 1))A další důvod proč to nejede a proč do toho vstupuji není jeho chybou, ale je to opět ta lokalizace.
Shapes("TextBox 1") mám já v českém excelu 2007 jako Shapes("BlokTextu1")

Abyste otestovala, tak to zatím sjednotíme na 1. Zkuste a dejte vědět, jestli je to to, co jste chtěla.
Nahraďte si jeho kód tímto:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Klik As Range, TX As String, Stlpcov As Integer, dStlpec As Integer, dRiadkov As Integer
Set Klik = Intersect(Columns(2), Target.Cells(1).EntireRow)
If Not Klik Is Nothing Then
If Klik.Value = "" Or Klik.Row < 2 Then
Shapes(1).Visible = False
Else
With Worksheets("Data")
Stlpcov = .Cells(1, Columns.Count).End(xlToLeft).Column
If Stlpcov = 1 And .Cells(1, 1) = "" Then Shapes("TextBox 1").Visible = False: Exit Sub
On Error Resume Next
dStlpec = WorksheetFunction.Match(Klik, .Cells(1, 1).Resize(, Stlpcov), 0)
dRiadkov = .Cells(.Rows.Count, dStlpec).End(xlUp).Row
If Err = 0 Then TX = Join(Application.Transpose(.Cells(2, dStlpec).Resize(IIf(dRiadkov > 2, dRiadkov - 1, 1)).Value), vbNewLine)
On Error GoTo 0
With Shapes(1)
.Visible = True
.TextFrame.Characters.Text = TX
.Left = Klik.Offset(, 1).Left
.Top = Klik.Offset(, 1).Top
End With
End With
End If
Else
Shapes(1).Visible = False
End If
End Sub

@elninoslov
Pokud je to ono, můžete zkusit místo textového pole využít Ověření dat - Zobrazit zprávu při zadávání. Nemusíte pak řešit pozici zprávy. I když nevím, jak to OP myslela s těmi odkazy
"spíš formou odkazu."

Jak jsem psal, toto budete muset udělat ručně. Klikněte dvakrát (pomalu - ne dvojklik) na každý bod a v nabídce Domů-Písmo-Barva pozadí (prostě kbelík ;)) - nevím jak to mají slováci) zvolte barvu. Toto musíte opakovat u všech bodů zvlášť. Bohužel jiná cesta je kód, ale to mi přijde zbytečné, pokud to neděláte každý den několikrát. Váš graf mi netrval ani 3 minuty.

edit - koukám, že pár jsem jich vynechal, ale princip jsem ukázal. Toto nijak nezautomatizujete (kromě kódu), protože řady jsou napříč jmény.

Pokud řádky přidáváte, souhrnný řádek se posune nakonec. Pokud ubíráte, musíte je odstranit sám (opět pod pravým tlačítkem, prázdné řádky kromě součtového).
Takže si vytvořte vzorovou tabulku, kde budete mít jen 1 řádek datový a pod ním souhrnný. Do té pa vkládejte data a máte vystaráno.
Já myslím, že na to přijdete. Pokud ne, klidně použijte nějaké řešení (tip a trik) od ostatních.

Naformátovat si ji můžete jak chcete.

Vložil se mi tam název DATA22. Ve spojení s tabulkou můžete pojmenované oblasti, tak jak jste je použil, vymazat.
Pokud přidáváte data pomocí kopírovat vložit - sumární řádek se Vám posune automaticky (prostě vložíta data do něj). Pokud dáváte data po řádku, musíte nejdříve vložit řádek nad (nabídka pod pravým tlačítkm)

Vložení -> Tabulka

Ten soubor mi nelze otevřít. Ale pokud převedete oblast na tabulku, dáte zobrazit řádek souhrnů, tak do tohoto řádku můžete vložit vzorec. Ten pak bude vždy na konci tabulky. Nepotřebujete tedy kód.

Tak už se mi to podařilo ;)))
Chtělo to jiný typ grafu ;)

Nevím jestli to tak chcete, ale já chtěl zjistit, jestli to tak jde ;)))

Kontingenční graf na větším vzorku dat. Kdyby někoho napadlo, jak otočit ty zpropadené osy - jsem buď slepý, nebo nevidím ;))) .

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje