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

Příspěvky uživatele

Zjednodušeně řečeno, nedá (nebo jsem na to ještě nepřišel). A je to obecně problém, který je na internetu řešen a vše co jsem našel, končilo v diskuzi něčím podobným:
I'm using Office 365 and "Preserve cell formatting on update" does not work.

U kontingenčních tabulek a grafů je bohužel problém, že si pamatují formátování pro různé nastavení filtrů. U tabulek se mi to daří řešit tak, že formáty nastavuji vždy při všech vypnutých filtrech. Pak to funguje.
U kontingenčních grafů to funguje stejně, jen si nejsem jistý 100% výsledkem.
Proto jsem kontingenční grafy opustil a řeším pomocí kontingenční tabulka + standardní graf (s navzorcovanou oblastí dat) a průřezy (slicery). Výsledek je 100%, jen přicházím o víceúrovňové osy (to tlačítko +/- u grafu)

@lubo
Zdravím - v případě takto dlouhých kódů bych požádal, aby byly vkládány jako textová příloha - v případě rozkliknutí se otevře přímo v prohlížeči a člověk tedy nemusí rolovat a rolovat a rolovat.
Takto dlouhé kódy se zobrazují špatně, ale i kdyby ne, tak je to nepřehledné.

V příloze je kód od lubo - není to něco, co jsem vytvořil - je to jen ukázka, jak by to mohlo jít.. Budu-li požádán, odstraním

Děkuji za pochopení

Kdysi jsem to hledal a pokud se pamatuji, našel jsem pouze placené doplňky. Možná novější verze excelu něco nabízí, já jsem se ale vydal zmíněnou cestou (UPDATE, DELETE + INSERT).

Je to tím, že upravuje každou buňku zvlášť a pokaždé přepočítává. Tzn. pokud v souboru nejsou žádné výpočty, úprava bude rychlá.

Vynásobení 1 (nebo přičtení 0) provede pouze jeden výpočet.

Nepotřebujete vůbec VBA
Do levého záhlaví (přes vzhled stránky) vložte&[Stránka]a do pravého&[Stránka]+25+mezera (bez té mezery to počítá divně)

Můžete použít PowerShellSub subFind()
Dim sPath As String
sPath = "H:\Filmy\"

Dim sFile As String
sFile = "Robocop.mkv"

Dim sCommand As String
sCommand = "PowerShell ""Get-Childitem –Path " & sPath & " -Include *" & sFile & "* -Recurse -File -ErrorAction SilentlyContinue | Select FullName -ExpandProperty FullName"""

Dim oShell As Object
Set oShell = CreateObject("WScript.Shell")

Dim sRerurn As String
sRerurn = oShell.Exec(sCommand).StdOut.ReadAll

Set oShell = Nothing

MsgBox sRerurn
End Sub

Nebo pomocí ZVOLIT ;)=J2-ZVOLIT(DENTÝDNE(G2;2);0;0;0;48;48;24;24)

ScrollArea vám sice zamezí buňku vybrat, ale pokud do ní chcete vložit data, tak v tom vám nepomůže - data vložíte z vedlejší buňky (pokud vkládaná oblast zasahuje mimo ScrollArea.

Zároveň existuje i způsob, jak vybrat buňky mimo vymezen

Jediná možnost, jak zabránit vložení je buňky se vzorci zamknout.

Zde
https://elcha-en.blogspot.com/p/downloads.html
si můžete stáhnout soubor General tournament for 3 to 8 players.xlsx, který jsem kdysi vytvořil a umí rozepsat turnaj pro 3-8 hráčů (týmů).
Můžete použít 2 soubory pro 2 skupiny a pavouka si udělat bokem.

Power query
Nový dotaz - Ze souboru - Ze složky

Vyřešeno už x-krát, stačí si vybrat
https://www.google.com/search?q=vba+get+distance+from+google+maps&rlz=1C1GCEU_csCZ821CZ821&oq=vba+get+dista&aqs=chrome.1.69i59l2j69i57j0i13l7.10418j0j4&sourceid=chrome&ie=UTF-8

@Fantastyk
No tady bych se spíše pídil po příčině. Vzorec "se nevymaže" sám. Pochopil jsem, že je to jeden vzorec - tzn ve stejné buňce případně oblasti. Napište si kód do události Worksheet_Change a sledujte změny této buňky. Uložte si datum+čas změny, uživatel atp. Takový log. Až "se vzorec vymaže", zjistíte kdo a čím. Pak můžete řešit dál.

Hromadná kontrola vzorců neexistuje (z logiky ani nemůže existovat). Existuje kontrola sousedních buněk, která může pomoct.

Jediná správná cesta je zámek buňky + listu.
U buněk se vzorcem nastavte ve formátu buňky zámek na zamknuto, u buněk, které chcete měnit na odemknuto. Teprve potom zamkněte list. Pak nebude chtít odemknout.

Nebo=HODNOTA.NA.TEXT(B1;"0\:00")/1-HODNOTA.NA.TEXT(A1;"0\:00")/1

;)

V excelu stiskněte ALT+F11, zobrazí se VBE (visual basic editor)
Tam si zobrazte Immediate Window (nabídka View nebo CTRL+G)
Vložte můj kód a stiskněte ENTER.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje