Příspěvky uživatele
< návrat zpět
napr takto
Ešte miniúprava (a keď ja by som si nahradil Range za Cell). Skúste si dočasne vyradiť riadok ActiveWorkbook.RefreshAll a uvidíte, aký budete mať rozdiel.
A nepomohlo by pretiahnutie tých súborov z LAN k Vám na disk a aktualizovať data z disku? Ale to iba tápem...
Ešte by som to upravil na oveľa kratšiu verziu s menším počtom prestupov, ale práve som si uvedomil, že makro pomalé nieje. Pomalý bude ten ActiveWorkbook.RefreshAll
Ako píše, prepojených 5 súborov + KT.
Niekde sa tu už tuším povaľuje diskusia o optimalizovaní KT (to je mimo mňa).
Toto riešiť bez prílohy ... to je pre vešticu :)
Skúste takto nejak. Pokusy robiť zásadne na kópii súboru.
Ak nepoznáte mená listov/súborov z ktorých načítate data to je fuk, to rieši makro a nemá to s týmto nič spoločné.
Naopak musíte vedieť meno listu ktorý je použitý vo vzorci, a to :
za A ) ten list má názov odkazovaný priamo vo vzorci, a meno listu je nemenné a známe.
za B ) meno toho listu vo vzorci je menné, a je použité pomocou INDIRECT, ale stále musí tento INDIRECT vedieť kde je meno listu uložené.
Excel nemá vzorcové možnosti, ako zistiť neznáme meno iného listu. Ale lepšie by bolo, keby ste v tom makre vložili upravený vzorec s korektným názvom listu.
Všetko snáď objasní príloha.
Napr takto:
Tools - VBA Project Properties - Protection
Nie, nezabudol, je to hneď druhé slovo...
Pred maskou Vám chýba úvodzovka "
V_*_2015_02_S.txt"
"V_*_2015_02_S.txt"
Robí to len na Vašom PC ? Skúsil by som iné PC, podľa možnosti s 32-bit Excelom (Win môže byť 64). Dávnejšie som riešil problém so 64-bit Office, kde mi hrozne sekalo maticové prepočítavanie rozsahov do cca 150 ComboBoxov. A priamo MS uvádzal, že to je problém 64-bit verzie, ak sa jedná o ovládacie prvky ActiveX, a sám MS túto verziu na svojich stránkach neodporúčal. To len na margo.
Dôležité budú typy vzorcov. To by ste sem museli ten súbor dať, aby sa Vám na to odborníci pozreli, či sa nedajú vzorce optimalizovať.
Podľa mňa to funguje. Musel som si pomeniť trochu dátumy a ŠPZ, aby som navodil požadovanú situácie pre testovanie, pretože Vaše dáta to neumožnili.
Oranžovou farbou som označil tie, ktoré síce spĺňajú podmienku že obsahujú bobo alebo triolo, ale tie ktoré sú iné ako bobo alebo triolo nemajú väčší dátum, čiže nespĺňajú druhú podmienkuk, preto "NE" (a "NE" je vypísané iba na tých kde je bobo alebo triolo).
Zelenou farbou som Vám vyfarbil prípad, keď je rovnaká ŠPZ aj v bobo aj v inom a zároveň je ten iný väčší dátum, tak v tom riadku kde je bobo nastaví "ANO".
Takto som pochopil, že to chcete.
Opravujem sa, ospravedlňujem sa, nemusíte mať ten index v A. Môžete ho mať v ktoromkoľvek stĺpci, ale musíte použiť toto
v Exceli
=INDEX('Z:\[Zošit1.xlsx]Hárok1'!$A$2:$D$4;MATCH($A2;'Z:\[Zošit1.xlsx]Hárok1'!$E$2:$E$4;0);COLUMN(A1))
v Googli
=index(jedna!$A$2:$D$4;match($A2;jedna!$E$2:$E$4;0);column(A1))
Formát netuším, ale posledné číslo IP zistíte vzorcom takto:
=RIGHT(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4));LEN(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)))-IFERROR(FIND(".";IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)));0))
Potom si na koniec vzorca dajte +1. Ale čo potom ak dôjdete na číslo 255 ? Pri IP adresách sa nemôžete "preliať" zo 4 úrovne a prirátať 1-ku k 3. úrovni, a 4. počítať od 0. To tak nejde, to by bola už úplne iná podsieť.
EIDT:
=LEFT(A1;LEN(A1)-LEN(RIGHT(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4));LEN(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)))-IFERROR(FIND(".";IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)));0))))&RIGHT(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4));LEN(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)))-IFERROR(FIND(".";IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)));0))+1
alebo oveľa kratšia verzia :
=LEFT(A1;FIND(".";A1;1+FIND(".";A1;1+FIND(".";A1))))&RIGHT(A1;LEN(A1)-FIND(".";A1;1+FIND(".";A1;1+FIND(".";A1))))+1
EDIT2: A ešte ma napadlo urobiť Vám extrakciu každého čísla:
1. úroveň
=LEFT(A1;FIND(".";A1)-1)
2. úroveň
=MID(A1;FIND(".";A1)+1;FIND(".";A1;FIND(".";A1)+1)-1-FIND(".";A1))
3. úroveň
=MID(A1;FIND(".";A1;FIND(".";A1)+1)+1;FIND(".";A1;FIND(".";A1;FIND(".";A1)+1)+1)-1-FIND(".";A1;FIND(".";A1)+1))
4. úroveň
=RIGHT(A1;LEN(A1)-FIND(".";A1;1+FIND(".";A1;1+FIND(".";A1))))
Skúste ešte na skúšku zameniť "\\" na začiatku sieťovej cesty za "//", alebo odinštalovať aktualizáciu KB2553073.
U mňa to funguje aj na sieti. Akurát je to podstatne pomalšie. Takže sa tu trápim(e) zbytočne. Problém je v obmedzeniach prístupu na sieťové úložisko. S tým Vám neporadím.
Týmto teda spoločne s Barnie prosím niekoho s väčšími sieťovými skúsenosťami o pomoc.
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