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

Příspěvky uživatele

Samotná XLOOKUP na zavřený soubor funguje. Ale POLÍČKO ne.

Funkce xlookup vrací ODKAZ na nalezenou hodnotu:

=POLÍČKO("názevsouboru";XLOOKUP(A1;[test2.xlsx]List1!$A$1:$A$3;[test2.xlsx]List1!$B$1:$B$3))

jen soubor:
=LET(adresa;POLÍČKO("názevsouboru";XLOOKUP(A1;[test2.xlsx]List1!$A$1:$A$3;[test2.xlsx]List1!$B$1:$B$3));
start;NAJÍT("[";adresa)+1;
konec; NAJÍT("]";adresa) - start;
ČÁST(adresa;start;konec))

Zase nepíšete verzi. Pokud jsou datumy seřazené, použijte funkci xlookup. Tam se dá nastavit hledání od konce.

elninoslov má svatou trpělivost, ale já už jsem to nevydržel...

Víte jak se používá klávesa F1?

Pokud je angličtina nesrozumitelná, zkusil jste zadat google dotaz, třeba "on error resume next statement česky" :

https://www.google.com/search?q=on+error+resume+next+statement+%C4%8Desky

Vrátí :

https://learn.microsoft.com/cs-cz/dotnet/visual-basic/language-reference/statements/on-error-statement

Zkuste také zadat dotaz na MsgBox.

nebo třeba
=JE.ČISLO(HLEDAT($C$3:$AG$3;"ST"))
To když by bylo písmen víc...

Použijte funkci filter.

Asi nejsnažší je začít s makrem ve vba v aktualizovaném souboru, které zajistí načtení tabulky z oracle i aktualizaci všech navazujících struktur. Jeho spuštění je vhodné podmínit "správným" uživatelem (strojem, ...). bat (v čemkoliv) zajistí spolupráci s plánovačem úloh vč. nastavení prostředí.

Problémy:
Při aktualizaci v excelu řada kroků probíhá asynchronně, občas se něco předbíhá (typicky aktualizace kt předbíhá čtení dat, ...). To je nutné v makru zohlednit - např. zakázat během aktualizace operace na pozadí, ne vždy to jde.

Velký počet požadavků na aktualizaci tabulek může vyvolat nahodilé chyby (excel prostě spadne).

Rychlost :
Načítání dat z oracle je hodně pomalé (mám pocit, že to ms dělá schválně). Při větším objemu dat je někdy rychlejší vygenerovat csv soubor data čerpat z něj.
Ale v takovém případě je nutné nějak synchronizovat samostatně běžící úlohy.

Počet paralelních aktualizací souborů je často omezením.

Je také třeba myslet na administraci:
Tady je vhodný samostatný systém (tabulka, db, ..) db je asi nejlepší - umožňuje nejlépe monitorovat průběh pro více uživatelů.

Sledovat:
Stav aktualizace souborů z pohledu správce, hlášení o chybách (pád, chybějící data, nevalidní data po aktualizaci, ...), statistika aktualizací (doba trvání aktualizace jednotlivých souborů, počet paralelních úloh, ... - určité pomůže při plánování aktualizací.

Pro uživatele - info o úspěšné aktualizaci, řešení neúspěšné aktualizace (např. ponechání původního souboru + info)

Musí to běžet automaticky. Informace o chybách by se neměly v případě pádu ztratit.

Nepopsal jste ekosystém. Co máte k dispozici, co máte hotovo, objem dat, počet tabulek, proč data nenačitate přímo z db, kolik uživatelů to bude spouštět, z jakého prostředí,...

Tohle řešit přes diskusi je hodně složité - více systémů, často složitá synchronizace kroku...

Zpracování pár tisíc řádků by ve vba nemělo trvat víc jak několik vteřin.

Součástí maker je kumulativní aktualizace listu. To se v power query nedělá snadno, bylo by nutné spojovat dva světy. Úprava maker by nemusela být až tak složitá.

Hlavní? problémy maker, pár příkladů.

1. Zbytečný a časově drahý kód
* filtr čísel ve sloupci K - proč to neudělat v sql dotazu??? Dotaz může data také seřadit.
* sub OznacKArchivaci je zbytečná. Řádky už označeny jsou - v "O" je "Uzavřeno"
* Používání metody Aktivate a Select je v naprosté většině případů zbytečné (a pomalé)
* Nesmyslný kód. Ve funkci Najdi:
For Each Bunka In Selection
jmeno = Bunka.Value 'uloz do promene
bun = Bunka.Address
Next Bunka
Tenhle kód si zapamatuje adresu a obsah poslední buňky ve výběru. Smysl nechápu.
* zase v Najdi:
Vyhoď Application.ScreenUpdating = True
Tady to povolí zobrazení po každém hledání...
Zkontroluj i ostatní funkce. To má být jen tak, kde je to opravdu nutné (na konci obsluhy tlačítka).

2. Pomalé operace
* identifikace objektu "proléza" pokaždé celý strom objektů (pomalé). Místo:
ThisWorkbook.Worksheets("souhrn").Activate
For i = Range ...
If Cells(i, 1) ...
používej With např.:
With ThisWorkbook.Worksheets("souhrn")
For i = .Range("B"...
If .Cells(i, 1 ...
Mimochodem, i takový kód je také dost pomalý.
* procházení buněk pomocí Cell.Offset(1, 0).Select - použij index řádku, nebo metodu .Find, nebo ještě lépe nahraj data sloupce do pole a pak hledej v tomto poli (při dobrém kódu to je v nejhorším případě stejně rychlé, jako Find),

3. Pomalé algoritmy.
* Mazaní, kopírování - doba málo závisí na velikosti bloku, ale hodně na jejich počtu -> je výhodné seskupit archivované řádky do jednoho bloku -> setřídit tabulku tak, aby mazané/kopírované řádky byly v co nejmenším počtu bloků a ty pak vyšejit jediným příkazem.
* Nesmyslný kód:
Set Naj = Sheets("souhrn").Range(sadre).Find(What:=jmeno, SearchOrder:=xlByRows) 'hledá označené HNV
P001 = Sheets("souhrn").Range(Naj.Address).Offset(0, 1).Value 'vytvořeno
P002 = Sheets("souhrn").Range(Naj.Address).Offset(0, 17).Value 'množství

Raději?
Set Naj = Sheets("souhrn").Range(sadre).Find(What:=jmeno, SearchOrder:=xlByRows) 'hledá označené HNV
' + ošetření chyby
With Naj
P001 = .Offset(0, 1).Value 'vytvořeno
P002 = .Offset(0, 17).Value 'množství

nebo ještě rychleji
Dim data() As Variant
' hledej HNV
Set Naj = Sheets("souhrn").Range(sadre).Find(What:=jmeno, SearchOrder:=xlByRows) 'hledá označené HNV
If Naj Is Nothing Then GoTo Konec ' Konec najdi.
data = Naj.Resize(1, 68).Value
P001 = data(1, 2) 'vytvořeno
P002 = data(1, 18) 'množství

1. Pokud vzorec nefunguje po přidání 2. funkce index, tak je chyba tam.

2. AND(něco; něco jiné;...; 0) je buď CHYBA nebo NEPRAVDA

3. Když tvoříš podobné obludy, tak je aspoň slušně formátuj. (řádky/odsazení)

Použijte kontingenční tabulku a seskupte řádky podle roku a měsíce. Excel to udělá automaticky.

Zkuste zaguglit, třeba

https://www.google.com/search?q=longest+common+substring+problem+vba

A něco či vyberte.

Tak jak to popisujete, je to dost obecné. Podobné počítání s velkým objemem dat podmíněnému formátu moc nesvědčí. Vzorec by možná šel, ale při obecném zadání vznikne zase obluda.

Pokud to má rozumně fungovat, je nutné upřesnit zadání. Jinak tu bude zase řada zpráv "... je to skvělý, ... ale ještě drobnost....".

Co třeba použít kontingenční tabulku?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse