Příspěvky uživatele
< návrat zpět
Jestli pomůže tohle..., je to z nějakého tématu odtud, nemůžu už najít, které to bylo.
@Opičák - ano, nekouk jsem na help, psal jsem to dle paměti: ale proč mi to fungovalo??!! asi skryté není to samé jako vyfiltrované.
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
Uživatelské menu
\nMenu
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.
RSS nejnovější články