Příspěvky uživatele
< návrat zpět
Opičák rychlejší, tak ještě příloha, když jsem se s tím patlal.
A nestačilo by dát navíc k tomu řazení filtr? Tam se dá ono "NENÍ K DISPOZIC" odfiltrovat. U nějakých dat možná toto nejde, nenapadá mě příklad, ale pak by šlo vložit nový sloupec se vzorcem, který podle té chybové hodnoty nastaví číslo, které vyfiltrovat jde. Nějaký nástin je v příloze.
Nejlíp ale je upravit už ty vzorce samotné, aby místo chyb.stavu dávaly třeba NULU.
=KDYŽ(JE.CHYBHODN(pův.vzorec);0;"původ.vzorec")
A příloha se dá vložit, když je zazipovaná .zip nebo .rar
Předpokladem tohoto řešení je stále stejný počet 4 mezer v textu, tak jak to je v úvodní příloze.
Jestli chceš použít řešení od Opičáka, nechám vysvětlení spíš na něm. Navíc když mám s jeho souborem ten problém, že mi funguje jen po prvním otevření. Pak, i bez uložení, když ho znovu otevřu, už mi vůbec nereaguje prvek ListBox, jako by tam nebyl. Nevím čím to je, ale tak se mi to chová na dvou počítačích.
Já bych na to šel jinak, zaměnit řádky a sloupce z toho příkladu a použít na to obyčejný aut.filtr. Je to naznačené v listu 2. Ale každý má svoji představu jak má to celé vypadat.
Dal jsem něco dohromady s pomocí vba.
Asi nepomůžu radou, jen sdělením, že se mi to stalo taky, provázané sešity vzorci s Svyhledat a pod., 2007 pohoda, 2010 pak hrůza. Nepomůže asi nic. Varuju před manuálním přepočtem. Při práci s více soubory se rychle ztratí kontrola nad tím stavem a najednou je uložený i tam, kde to nečekáš. A když pak něco nejde, nevíš čím to je. Toto celé mě donutilo opustit vzorce a nasadit jen makra, kterými jednorázově kdy chci "aktualizuju" vše potřebné. Dalo to práci, ale o moc se zmenší velikost souborů a přepočet mě netrápí.
Sheets("Celkove").PageSetup.PrintArea = "$A$1:$H$" & PosledniPlnyRadek
Tak jsem testnul vaše makro. On je tam celý dokument, jen je potřeba dát na něm pravé tlačítko myši, Object Dokument > Edit (nebo Open), pak je tam celý obsah. Vlastně stačí i dvojklik! Je to ono?
Když se vloží objekt, na poslední záložce před OK jsou zaškrt.boxy, propojení a zobrazit jako ikonu. Takže buď je objekt jako ikona z názvem a pak je jasné, že celý soubor je na pravém tlačítku, nebo se zobrazí celá 1.strana, ale chování je stejné.
No dobře, beru ... pochopil jsem, díky.
AL napsal/a:
pokiaľ to excel skutočne berie ako dátum (číslo), a to som si skoro istý, že áno, tak .....
A to bude asi ten problém. Omlouvám se, že trochu odbočím, ale v posledních tématech několikrát bylo něco podobného, a zlobí to i mě a neumím to vyřešit. Po kopii dat makrem "Entruju", abych dostal férové datum! V příloze je soubor, kde je to popsáno víc a možné vyzkoušet. Já si to nakonec vyřešil tak, že na konci makra násobím *1. ALE proč to nemít na "první dobrou", k čemu pak je formát datum, k čemu pak je tvrzení, že po kopii "jako-hodnoty" zůstane zachovaný formát buňky?? Kdo mi tohle vysvětlí?
Lukas: to makro bych asi uměl, aspoň fragmenty potřebného už používám (hromadné nahrazení ve všech souborech adresáře, cykly přes pole, kde by byly ty hodnoty .1. atd), ale určitě ne hned, tak za 2-3 dny, když se to nevyřeší jinak.
Nojo, Díky. Ten příklad fakt nemůže takhle fungovat.
Cyklus se skončí, když to v oblasti už nenajde tu hodnotu. To s tou adresou tam je na nic.
(Zato to skvěle funguje, kdybych nesmyslně měnil 2 za 2).
To není věc co musím nějak vyřešit, je to příklad, který by asi měl fungovat, ale když si ho z www zkopíruju a pustím, nejde. A chtěl bych zjistit, kde je ta chyba v tomhle kódu.
Ahoj, v nedávném tématu byl odkaz na www microsoft, http://msdn.microsoft.com/en-us/library/office/ff839746.aspx kde je příklad kódu na nahrazení hodnoty v dané oblasti.
Když to zkouším dá mi chybu 91: Object variable or With block variable not set. Je to v cyklu Do -Loop. Kde mám co špatně?
Sub hledej_nahrad()
With Worksheets(1).Range("A1:A20")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Jen jako inspiraci dám soubor, už nevím odkud ho mám, je tam hledání v podadresářích, dá se zadat název souboru maskou a udělá seznam nalezených.
Na mě ale tak složité, že to nepředělám na tohle zadání.
Možná pomůže tohle téma.
http://wall.cz/index.php?m=topic&id=10709&page=1#post-10713
(nebo zde vyhledat "otevírání excelu")
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