• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

V tom případě tady vložte nějakou funkční přílohu, na které vám to odladíme, protože takto bychom si museli vytvářet vlastní soubor...

Možná jsem to špatněpochopil, ale není to tohle?

http://wall.cz/excel-navod/hromadne-skryvani-polozek-v-kontingencni-tabulce

Pokud se chcete vyhnout opakování, museli byste si nejdříve vytvořit tabulku kombinací a z ní pak "losovat", která se použije a z dalšího "losování" ji pak vyřadit, dokud se nevyčerpají všechny ostatní (něco podobného, jako byste si simulovali losování sportky, jen místo míčku by byla kombinace).

Jen tak uvažuju, jestli si zbytečně nekomplikujete život. Píšete tady o měsících až letech - kdo si bude pamatovat, které písmeno (úkol) kdy bylo - vytvořte si jednu nebo dvě řady a pak je prostě opakujte donekonečna (ani nepoznáte, že to vlastně není náhoda).

Stejně bych této úloze nedával tak dlouhou životnost, na jakou si to představujete.

Upozorňuji, že pouze spekuluji, protože s danou úlohou jsem se nesetkal a asi už ani nesetkám.

Takže tak jak to máte udělané si myslím, že se k těm datům nedostanete. Prostě data pro Chart jsem tam nenašel.
Pokud mám pravdu, tak bych zkusil ta data někde přímo uložit do tabulky (skryté, skrytý slide atp) a tahat ta data odtud (při ztrátě spojení tam podle mne zůstanou zachovaná).

Co se mne týče, tak od zkoumání problému mne odrazují 2 věci

kod je pisany pre powerpoint

a hlavně bych si musel něco vytvářet, ne čem to budu zkoušet. Takže možná kdybyby byla příloha...

Takže ta chvilička se vyskytla poměrně brzo

=SOUČIN.SKALÁRNÍ(((B3-$G$2:$G$5)>0)/1;(B3-$G$2:$G$5);($H$3:$H$6-$H$2:$H$5))

Je tam třeba vložit skrytý řádek. Viz příloha

Zapomeňte už jednou na makra, když je nepotřebujete

Pro tento konkrétní případ:
Do buňky D2 vložte vzorec
=B2*$H$2+((B2-$G$2)>0)*(B2-$G$2)*($H$3-$H$2)+((B2-$G$3)>0)*(B2-$G$3)*($H$4-$H$3)+((B2-$G$4)>0)*(B2-$G$4)*($H$5-$H$4)
a zkopírujte

Pokud budu mít chviličku, ještě se kouknu, mohlo by to jít i jednodušeji (obecněji)

Mno jo no. To jsou ty (nejen) vaše sloučené buňky ;))
Zrovna v tomto případě navíc zcela zbytečné, stačí
Zarovnat na střed výběru. Pak by to jelo.

Pokud na nich trváte, nahraďte
.PasteSpecial xlPasteValues
za
.PasteSpecial xlPasteValuesAndNumberFormats
toto by mělo fungovat i se sloučenýma buňkama (vyzkoušejte)

Nicméně se vám stejně nezkpoíruje ten WordArt. Navíc ho tam máte zbytečně, můžete to mít normálně v buňce

Pokud i na tom trváte, tak potom už jedině takováto šílenost
Sub subCopy3()
Dim rForm As Range
Set rForm = Range("B4:L51")

Dim wNew As Workbook
Set wNew = Workbooks.Add
rForm.Copy

With wNew.Sheets(1)
.Cells(1).PasteSpecial xlPasteColumnWidths
.Paste .Cells(1)
.Cells(1).PasteSpecial xlPasteValuesAndNumberFormats
End With 'wNew.Sheets(1)

Set wNew = Nothing
Set rForm = Nothing
End Sub

Umístěte kurzor na E8 a dejte ukotvit příčky.

Pokud vím, tuto funkcionalitu excel nemá

Např.:

Viz obrázek
http://wall.cz/index.php?m=topic&id=10620&page=1#post-10638
pokud bude list v souboru první - i v tomto seznamu bude první

Nebo

Pokud nevyhovuje, použijte záznamník maker a nahrajte si makro, ve kterém se přepnete na váš list. Tomu přiřaďte klávesovou zkratku a tu potom používejte.

Ale otázkou je, proč má váš soubor tolik zobrazených listů. Je nepravděpodobné, že byste je všechny stále používal a proto je nejjednodušším řešením nepoužívané listy skrýt a zobrazit je pouze v případě potřeby.

Např.:
Sub subCopy()
Dim rForm As Range
Set rForm = Range("A1:K30")

Dim wNew As Workbook
Set wNew = Workbooks.Add
rForm.Copy wNew.Sheets(1).Cells(1)

Set wNew = Nothing
Set rForm = Nothing
End Sub

nebo pro tento případ vhodnější (nebude obsahovat vzorce, takže se příjemci nepřepočte)
Sub subCopy2()
Dim rForm As Range
Set rForm = Range("A1:K30")

Dim wNew As Workbook
Set wNew = Workbooks.Add
rForm.Copy
With wNew.Sheets(1).Cells(1)
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
End With 'wNew.Sheets(1).Cells(1)

Application.CutCopyMode = False

Set wNew = Nothing
Set rForm = Nothing
End Sub

API, Shell nebo dávkový soubor. Zkuste kouknout tady, třeba vás to navede.

http://www.vbnet.cz/forum-tema--1384-namapovani_nasdileni_sitoveho_disku.aspx

http://technet.microsoft.com/cs-cz/library/cc758918(v=ws.10).aspx

Von si s tím tendrem prostě nedá pokoj ;)))))))))

Chlape (popř. děvče) - dneska jste mě hodně pobavil - a i přesto, že jste tvrdohlavý mezek a tu radu si zřejmě nezasloužíte, tak vám ji dám.
Jestli se do přílohy podíváte nebo ne - to je vaše věc, ale předpokládám, že tam je to, co jste chtěl.

@hortv
Reakci očekávám od odborníků na Excel
Ups! Omlouvám se. Už mlčím.

@AL
;)

Mno já nevím - spojnice tendru - to mi zní skoro protizákonně ;)

Pokud myslíte spojnice trendu, tak vám zřejmě nikdo neodpoví, protože by si nejdříve musel vytvořit nějaký graf, pak přemýšlet co asi myslíte a to po nikom nemůžete chtít.

Dejte sem příklad a na něm ukažte - o co vám jde přesně. Pak vám snad někdo odpoví.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse