Příspěvky uživatele
< návrat zpět
Přesně 
Tak to vypadá, že se budu muset smířit s diskotékou. 
Jediné na co sem přišel je, pokud by se makro spouštělo opakovaně, cílový soubor minimalizovat. Při prvním spuštění "problikne" -> animace minimalizace (nejspíš záležitost OS), při následném spuštění je klid.
Ahoj, diky za reakci.
Přesně takhle to mám napsaný a funkční. Na konci procedury poté oba sešity ukládám.
ThisWorkbook.Save
If CilZavreny = True Then
WbCil.Close True
Else
WbCil.Save
End If
Problém je "pouze z estetického" hlediska pokud dojde na řádek WbCil.Save Přepne se ze zdrojového na cílový soubor a zase zpět.
Ahoj, přicházím si pro radu, protože už mi dochází nápady i trpělivost.
Mám vba kód který přenáší hodnoty mezi dvěma sešity. Pokud je cílový sešit uzavřen, dojde k jeho otevření (přes CreateObject) na pozadí, přenosu hodnot a opětovnému uzavření s uložením (WbKCil.Close True). To vše funguje bez problému.
Ten mi nastává v případě, že by byl cílový soubor otevřen uživatelem před spuštěním makra.
Přiřadím sešit do proměnné, provedu přenos hodnot a pouze uložím (WbkCil.Save), chci nechat soubor otevřený. Přesně v tomto kroku dojde k přepnutí mezi jednotlivými okny excelu a tedy problikávání obrazovky.
Přenos hodnot jako takový funguje, ale ta diskotéka mě irituje, bohužel Application.ScreenUpdating = False nic neřeší.
Máte někdo nápad?
Přiznám se, že se mi vůbec nechtělo to makro nějak extra studovat nebo přepisovat.
Jen sem upravil tvorbu textového řetězce a jeho přeměnu na pole přes fci SPLIT.
Sakra nezaregistroval sem, že to Elnino již vyřešil.
No nic přidám sem svůj pokus o řešení přes Evaluate (Elninova specialitka) 
.
Má to však menší chybu, je to závislé na jméně listu.
I to by se snad dalo pořešit, ale to již není potřeba. Ber to jen jako ukázku další možnosti, která by se dala využít.
upraveno
Než přijde Elnino s něčím sofistikovanějším 
elninoslov napsal/a:
Pre blbca ??? To nemyslíte Vážne! Vy ste práveže šikula. Alebo si tykajme. Nehnevaj sa za katastro-formu ako som to popísal, ale už fakt ponáhľam spať. Takže nekameňovať pls :). Dúfam, že je takto pochopiteľný aj vzorec aj prečo som zmenil to A1 za B1.
Ten vzorec sa dá ešte zjednodušiť vynechaním ISNUMBER a hľadať sa v MATCH nebude TRUE ale nejaké obrovské číslo 9E+307 a tretí parameter bude 1.
EDIT:
@marjankaj : však som aj písal minule, čo mi všetko je, že som chorý Příloha: 49506_vysvetlenie-vzorca.xlsx (16kB, staženo 4x)
Teda chlape wow, převeliké díky za ten soubor z toho už je všechno jasné.
No šikula, nevím nevím. V poslední době si spíš sedím na vedení.
MS by měl zapracovat na okně "Vyhodnocení vzorce" a změnit ten jeho pidi rozměr na něco použitelnějšího.
PS: Jen tak pro zajímavost, jak dlouho trvalo vymyslet (zapsat) vzorec do funkční podoby?
elninoslov napsal/a:
To B1 som tam dal naschvál aby To nelákalo meniť aj to $A$1, čo je iba pomoc pre vytvorenie poľa čísiel.
Přiznám se, že tohle sem nepochopil. S jako vstupní buňkou pracuješ?
Pokud budu vycházet ze zadání tazatelky a jako vstupní buňku použiju A1, vzorec nevrátí výsledek dokud nezměním B1 na A1.
Vzorec sem si uložil do archivu jako variantu k makru.
Bohužel i po několika marných pokusech s jeho vyhodnocováním sem se nedopátral toho, jak se vlastně dobere výsledku (což mě neskonale dráždí)
.Nebyla by nějaká light verze pro blbce ?
elninoslov napsal/a:
Ak je EAN z 13-ich po sebe idúcich čísel, tak maticový vzorec:
=IFERROR(MID(B1;MATCH(TRUE;ISNUMBER(--MID(SUBSTITUTE(B1;" ";"@");ROW(OFFSET($A$1;;;LEN(B1)-12));13));0);13);"")
=IFERROR(ČÁST(B1;POZVYHLEDAT(PRAVDA;JE.ČISLO(--ČÁST(DOSADIT(B1;" ";"@");ŘÁDEK(POSUN($A$1;;;DÉLKA(B1)-12));13));0);13);"")
Supr ukládám do Archivu k makru.
PS: Nemá být ve vzorci místo B1 - A1?
Řešením by mohlo být použití regulárního výrazu ve VBA.
Spuštění makra: Karta Zobrazení -> Makra
Fantasyk napsal/a:
Po mnoha letech...
A když se jedná o UF ? nevíte někdo ?
Díky
Stejně jako na listu.
Edit: soubor
Jeden maticový.
To elnino
Sorry v příspěvku sem viděl něco co tam vlastně ani nebylo. Musím říct že mě Excel pěkně nas*al. Přiznám se, že poslední dobou taky chytám na první našlápnutí .
Pro pořádek, s tím buďte negativní, bylo myšleno v rámci toho ... covidu. Nikoliv negativní -> nasraní .
To lubo
Pěkný. A můžeš prosím k té klasice dát nějaký "návod"?
9E+307 je nějaká konstanta či co?
Děkuji převelice.
Teď sem si to pořádně přečetl. Nejspíš si chtěl něco jinýho. Pokud se nebude dařit, dej vědět.
Ale chtělo by to nějaký lepší popis jak si představuješ, že by to mělo fungovat.
Uživatelské menu
\nFormulář 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