Příspěvky uživatele

Po dlhom skúmaní prichádzam s inou metódou premenovania, ktorá nemá problém s Unicode znakmi.
Rozdiel v rýchlosti je takmer 0.

Ale sú tam stále chyby. Všade sa vždy nájdu.
Vymenil som čítanie príponu súboru za natívnu funkciu objektu FSO, ďalej odstránil som 2 nepoužívané Fnc, opravil/upravil podmienené formátovanie na základe hodnôt, a opravil kontrolu maximálneho počtu položiek, ktorá nefungovala dobre.
Prípadné postrehy privítam.

Pridal som tam ešte ukazateľ priebehu (ProgressBar) dole vľavo v stavovej lište Excelu. Kvôli tomu aby som mohol ukazovať %-tuálny priebeh, som musel pridať ďalšiu metódu na zistenie počtu súborov, predtým ako prebehne vlastné zisťovanie názvov súborov. Ale už sa mi to nechce prerábať, tak aby to bolo možno o 0,5 sek rýchlejšie.

Testoval som to na 7 GB dát - 1000 súborov MP3 - cca 30 znakové názvy :
- načítanie názvov súborov - cca 1 s (nepodarilo sa mi to ani odmerať)
- premenovanie 1000 súborov trvá 5,6 sekundy
- zistil som, že ako chybu vyhodnotí pokus o premenovanie súboru v ktorom je "è" ("é" s opačným dĺžňom - francúzština) a ruské znaky. Toto by bolo treba ešte doriešiť, ak to bude niekomu vadiť, ale popravde neviem ako to v objekte FSO riešiť.

Ďalšia vec, ktorú ešte premyslím, či tam niekedy zapracujem, je import nejakého textového súboru s pripravenými novým názvami, a viacnásobný výber adresárov.

PS: Časy testované na 7200rpm disku (ostatné komponenty sú pre toto nepodstatné ale uvediem i7 4770S, systém na SSD)

Tak som Vám niečo urobil

Nemente žiadne bunky okrem zelených !
Prosím okomentujte.

Perfektné, presne takto to potrebujem.
Použijem to ešte aj pre jeden rozrobený projekt pre toto fórum. Len je pomenej času.
Ďakujem veľmi pekne.

Funguje to parádne. Aj to radí, vzostupne. Ja si to potom radím presne opačne zostupne (od najväčšieho) v pomocnom stĺpci. Nedal by sa ten vzorec urobiť s opačným radením ?
PS1: Maticový to byť samozrejme nemusí.
PS2: Pre SK uživateľov - treba v anglickom vzorci zmeniť "," na ";".
Ďakujem veľmi pekne.

2 eLCHa : To ma nenapadlo. Stále je tam ale potrebné dorobiť Resize Tabuliek, tak ako som robil ja, rovnako ako OnChange s kontrolou iba tabuliek. Bez toho to nieje dobré. Díky za motiváciu.

Zdravím.
Potreboval by som helpnúť s úpravou maticového vzorca. Všetko funguje ako má, len v jedinom prípade nie, a to keď je v stĺpci A iba jedna hodnota. Vtedy mi nedá žiadnu jedinečnú hodnotu do stĺpca C (stĺpec D je iba pokus). Ak sú v A žiadna, 2, alebo viac hodnôt, všetko je OK. Len nie keď je tam iba 1 hodnota.
Odvčera sa trápim, ďakujem veľmi pekne, za každý help.

Urobil som ti to makro. Funguje tak ako chceš. Podrobne som ho popísal, ale zdá sa mi že tie komentáre ho trochu spomaľujú. Tak si ich prípadne skús dať preč.

Tie Tabuľky (objekty) to všetko komplikujú.

Škoda, že to musí byť Tabuľka. Inak by stačilo sa odkazovať na Dynamicky počítanú oblasť
=OFFSET(List1!$B$3:$D$3;;;(1+COUNTA(List1!$B$4:$B$103));)
Toto ale nefunguje korektne ak to nastavím v "Zmeniť veľkosť tabuľky" ani ak "Zmeniť veľkosť tabuľky" odkážem na pomenovanú oblasť definovanú týmto vzorcom. Riadok do rozsahu Tabuľky sa pridá aj naformátuje, ale nelogicky ho nedokáže ubrať. Škoda, dalo by sa to doplniť o riešenie od pepe74287.
S SQL ti nepomôžem, dokážem ti potom pomôcť jedine makrom.

Nie, to nefunguje. Keď zadáš číslo 2, stále číta január. Musíš pripočítať riadok pre každý mesiac. Ja som to v predošlom príspevku poriešil cez MATCH. Potom ale musíš použiť INDIRECT, čo nesie zo sebou ďalší problém, že sa ti kopírovaním vzorca/bunky nezmení stĺpec, čiže musíš odkazované stĺpce prvý krát zapísať ručne, alebo použiť nejaký komplikovaný prepočet čísla stĺpca na písmeno stĺpca, alebo použiť RC1.
Tá moja verzia, ale podľa mňa funguje OK.

Niečo takéto ?
Zmenil som aj aby to zobrazovalo názov dní podľa jazykového nastavenia. Mesiac si môžeš vybrať v rozbaľovacom zozname. Zrovnal som ti formátovanie.

- Dám kopírovať "tab1" a "tab2", a to 1 kópiu.
- Vytvorí mi list "12.3.2015-TR-1-TB".
- Zaplním tie 3 bunky pod bunkou "hodnota" v "tab1", pričom adekvátne bunky v "tab2" nechám nevyplnené.
- Stlačím "Ulož PDF a spočítaj vyplnené bunky", do listu "Databaza" sa mi vloží do stĺpca "TAB1" číslo 3, a do stĺpca "TAB2" číslo 0.

Ak ťa dobre chápem, funguje to presne ako chceš.
Mám Office 2013 Pro SK 64-bit.

Nevšimol som si, že to kolega už robí. Keď som pozeral naposledy, tak to tu ešte nebolo.
Každopádne som spravil svoju verziu, použil som ten jeho predošlí kód, upravil, doplnil. Funguje to aj na akýkoľvek výber, to znamená kľudne vyber aké chceš bunky, riadky, nesúvislé, to je jedno, ak nájde medzi súbormi obrázok odpovedajúci názvu bunky vo vybranej oblasti, vloží ho.

Ak chceš vkladať napr. do A20:A100, nemusíš označovať A20:A100. Označ celý stĺpec (klik na uško) a on do A1:A19 nič nevloží ak nenájde také obrázky. Ak chceš vložiť iba niektoré z obrázkov, a pritom adresár obsahuje aj obrázky korešpondujúce s inými bunkami v stĺpci, musíš logicky vybrať iba tie bunky ktoré chceš. Teda napr. máš obrázky pre A1:A100, ale chceš vložiť iba A20:A100, v tomto prípade nemôžeš označiť celý stĺpec "A" ale iba A20:A100.

Ešte to kontroluje správnosť odkazu na bunky, a samozrejme nedovolí vloženie do nevybraných buniek. Sú tam ošetrené aj nejaké chyby, ale bez Messages (to si dorob, vidíš kde je On Error, a Exit Sub).

Zadávanie horného okraja som poriešil a je to docela presné. Aj prvotné nastavenie šírky ľavého a pravého stĺpca, do ktorých sa netlačí. Ale Excel, pokiaľ je mi známe, neumožňuje zadať šírku sĺpca v cm, preto existujú rôzne algoritmy na prepočty. Ja som použil jeden, čo som našiel, ale rovnako nieje presný, ako aj Application.CentimetersToPoints. Prečo to musia byť voľné stĺpce ? Lebo ako píšeš, potrebuješ podčiarknutie aj v týchto stĺpcoh do ktorých sa netlačí, a ak to nebude stĺpec ale okraj, tak tam nič nevytlačíš, lebo na okraj sa netlačí, ten vymedzuje netlačenú plochu. Procedúru Nastav použiješ iba raz, nastaví šírku týchto stĺpcov. Problém ale je v tom, že každá tlačiareň má vytlačiteľnú plochu. Proste aj keď dáš napr. pravý okraj na 0, nebude 0, ale napr. 0,5 cm. Ako zistiť šírku vytlačiteľnej plochy a jej posunutie sa mi neporadilo zistiť.
Preto by som ti aj vzhľadom na nepresnosť Excelu v nastavení šírky stĺpca, doporučil, nachystať si potrebný počet stĺpcov v prostrednej tlačenej časti strany, a vyskúšal akú nepresnosť ti dá na makro Nastav, a upravil si to manuálnym posunutím šírky stĺpca. Za pár minút snahy a 2-3 vytlačené pokusy to máš nastavené. Keďže potrebuješ 5cm a 7 cm po stranách. Z tohto čo ti tu posielame, použi len horný okraj, tlačenie a automatické formátovanie, zabezpečujúce podčiarknutie.

A teraz otázka pre odborníkov. Prečo mi Excel tlačí miniatúry znakov - viz. príloha PDF, ak tam mám podmienené formátovanie používajúce fnc vo VBA ?
=Row()=LastRow()
Kontroluje akýkoľvek posledný riadok, nielen v stlpci B.
Ak ho dám preč, a použijem vrozec, ktorý ale funguje len na stlpec B, je to OK, a veľkosť písmen je v poriadku.
=Row()=MATCH(TRUE;INDEX(ISBLANK($B$1:$B$100);0;0);0)-1

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje