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

Příspěvky uživatele

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

Nepočíta sa tam ale s akoukoľvek zmenou. Či už v menách alebo ich počte, a už vôbec nie s rokmi. Ďalej čo ak nieje priestupný rok. Je bezpodmienečne potrebné aby sa "Karolinka" vyjadril/a. Či napr. chce kalendár s posúvaným začiatkom, tak ako to má v "Harmonogram směn", alebo či chce kalendár s menením názvov dní.
Nech dá definitívne a upresňujúce informácie nap. o:
- Kde vlastne bude/je úplný zoznam pracovníkov. Bude dopĺňaný?
- Zásadná vec - budú pribúdať mesiace a roky vo forme nových listov v tomto zošite ? To totiž mení všetko, od toho sa všetko odvíja.
- Nech určí ktorá tabuľka smien ostane, niesú totiž rovnaké.
atď....
Navrhoval by som zoznam pracovníkov dať do "Setup", a v "Harmonogram směn" nechať len čistý výstup informácií, obdobne ako to urobil "kmarecek" na "list1".

Hlavne je ale potrebná komunikácia zadávateľa ...

Ahoj.
Po dlhšej dobe som si k tomu zase sadol. Ak je to stále aktuálne, pozri na prílohu. Vysvetľovať sa mi to nechce, makro som dopodrobna okomentoval. Urobil som aj nejaké zmeny v zošite, na to prídeš :)
Išlo ti hlavne o to spočítanie vyplnených/neprázdnych buniek, to funguje aj pri kópiách. Čo som pochopil to funguje, ale nepochopil som načo je list "zoznam" a makro "zadatrequest_funkcnypokus".
Daj vedieť, čo a ako.

Takmer sa mi to podarilo, ALE:
-Neviem rozlúsknuť spočítanie napr. dovolenky za celý vybraný rok, vybraného pracovníka. Iba za vybraný mesiac. Nech robím čokoľvek s maticovými vzorcami, stále hádžu chybu. Niekto zdatnejší snáď pomôže.
-To isté platí o súčte hodín za rok.
-Odstránených niekoľko problémov, ako chybné formátovanie buniek, zlúčené bunky (nemôžu byť pri maticiach), posunutie tabuľky Leden o riadok (všetky mesiace musia byť rovnaké)
-Vypĺňanie tabuľky je urobené pomocou "brutálnych" vzorcov s neustálym vyhľadávaním a prepočtom pozície, dňa, hodnoty. Tu som narazil na neprekonateľný problém (asi len v mojom Exceli 2013), keď nemôžem do Správcu názvov dať komplikovanejší vzorec s vyhľadávaním VLOOKUP a MATCH. Okamžite hádže chybu. Ak to isté skopírujem do bunky, okamžite všetko funguje. Veľmi frustrujúce. Preto sú tie vzorce v tabuľke nehorázne neprehľadné, ale nebolo ich možné zjednodušiť pomocou Názvov.
-Upravil som názvy listov (mesiac + rok), neboli konzistentné
-Na listoch sú vyplnené kolónky počty hodín u dovolenky a choroby D a N, na liste "Harmonogram směn" niesú. Bral som data odtiaľ. položka Hodiny je v listoch už bez prestávky, v Harmonograme je s ňou.
-V tabuľke som urobil aj podmienené formátovanie na zvýraznenie D a N
-Doplnil som jeden celý riadok tabuľky, pretože ak mesiac začne v nedeľu, 30. 31. by sa nevošlo.
atď. atď.
-Zatiaľ som nechcel používať VBA, aj keď v ňom by to bolo oveľa jednoduchšie. Ale neviem ako inak sa bude kontrolovať, aké roky už existujú v názvoch listov, a ako získať ich zoznam inak ako cez VBA. Tento zoznam je potrebný pre výber roku.

Proste je s tým dosť veľa problémov.
Posielam súbor, snáď som aspoň v niečom niekoho nakopol k riešeniu. Určite niekto urobí oveľa jednoduchšie konštrukcie vzorcov, a hlavne by mohli byť maticové.

Ak by ti to pomohlo, spravil som ti to pomocou makra.
Cez to CHOOSE to ja urobiť neviem, tak aspoň takto.
Pekný deň.
Heslo : "-ElninoSlov-" bez úvodzoviek

Ahoj
Prosím Ťa v bodoch mi ešte raz vysvetli, čo má presne robiť tento zošit. Nejak sa v tých komentoch strácam.
Otázky:
1. Prečo názov Tabulka00 odkazuje na oblasť A36:F38. Ostatné názvy Tabulka01-07 odkazujú na farebné časti, typovo podobné. Tabulka07 ale odkazuje na A63:F70, čiže na posledné dve farebné časti. Nieje to ďalšia chyba ? Je to nesúrodé.
2. Keď do bunky B3 zadáš "A" alebo "B", tak sa ti majú zmeniť tie veľké čisla v F39:F67, podľa toho čo je napísané pod daným písmenom v modrej tabuľke "zdroj dat" teda B23:C30 ?
3. Načo je určený "prazdny riadok" 14 ?
4. Na čo je prázdny rozbaľovací zoznam v D12 ?
5. Bunky V18:V19 berú nulový dátum z neoznačených buniek B18:B19
4. Na druhom hárku spomínaš list "tabulka", ktorý neexistuje, rovnako ako tlačítko "ULOZ POCET ZAPLNENYCH BuNIEK". Myslíš tým tlačítko "spocitaj" a hárok "pocet zaplnenych buniek" ?
5. Čo bude potom s tými skopírovanými hárkami ? Pár krát použiješ stlačítko "Kopíruj" a neprehľadne veľa hárkov.
6. Máš tam pár kozmetických chýb. Riadok 66 a 70 sú dvojnásobne vysoké, F43:F54 chýba pravý rám, nevystredené písmo riadok 37 ...
7. Čo sa to má vlastne spočítať pri stlačení "spocitaj". Výsledok spočítania tej štvorbunkovej oblasti sa vynásobí počtom kópií danej oblasti v celom zošite ? Ak raz zadám 2 kópie, pritom budú označené oblasti tabulka02 a tabulka04. Vytvorí 2 identické listy, na ktorých bude po jednom kuse tabulka02 tabulka04. Keď znova vykonám kopírovanie s označením tabulka02, má ten súčet spočítať tie švorbunkové oblasti len s tých prvých dvoch identických kópií, alebo k tomu prirátať aj rovnakú oblasť z tretieho listu? Alebo sa má zrátať len súčet daných švorbunkových oblastí len v danej skupine kópií, ktoré boli na raz urobené ?
8. Budú sa v tých skopírovaných hárkoch potom nejako upravovať data ?

Je tam strašne veľa nepovadaného/nezrozumiteľného. Navyše nejaké technické a logické komplikácie. Čím viac to upresníš, tým skôr ti niekto pomôže.

Ak som ťa správne pochopil tak potom takto.

Ak slovom ZOZNAM myslíš iba rozsah buniek, tak potom asi takto - Kopiruj zoznamy.xlsm.
Ak tým ZOZNAM myslíš rozbaľovací zoznam, tak potom takto - Kopiruj zoznamy 2.xlsm.
Ale to je blbosť, lebo ten rozbaľovací zoznam, musí mať od niekiaľ data, a je predsa jednoduchšie testovať tie data ako obsah rozbaľovacieho zoznamu.

Kvôli tebe som si narýchlo urobil virtuálnu sieť. A bohužiaľ, na disku sa to správa tak ako má. Na sieti do toho vstupuje systém alebo Excel, natívnym upozorňovaním na otvorený súbor. Táto natívna featurka navyše podľa netu obsahuje bug, keďže nezobrazuje vždy korektné meno. My by sme potrebovali túto featurku (Lock Open File PopUp Message) vypnúť. Preštudoval som už niekoľko ENG fór, no zatiaľ som na nič poriadne nanarazil. Rôzne rady s odstraňovaním vlastníka súboru, vypínanie FileInfo Popup Message (neviem kde), ešte nejakej fnc, ktorej 3-písmennú skratku si nepamätám... Keď bude viac času, ešte pohľadám.

Mne to ale presne ako popisuješ funguje.

Situácia A:
Ak niekto otvorí súbor a zadá heslo, čiže pošle požiadavku na otvorenie súboru s plnými právami, čiže na zápis, tak sa skontroluje, či je záznam o tomto súbore v tom TXT zozname súborov otvorených na zápis.

Riešenie 1. situácie A:
Ak nieje záznam v zozname TXT, hneď zapíše jeho meno, názov súboru, čas a dátum do toho kontrolného TXT súboru, kde sú zapísané iba a len udalosti otvorenia súboru heslom - čiže na zápis.

Riešenie 2. situácie A:
Ak je záznam v zozname TXT, zmení príznak súboru na ReadOnly, nič sa do zoznamu TXT nezapíše, a súbor je len na čítanie. Excel napr. pri prípadnom ukladaní zmien v takto otvorenom súbore upozorní na nemožnosť uloženia.

Situácia B:
Ak niekto tento istý súbor otvorí tak, že nezadá žiadne heslo, čiže stlačí Enter na požiadavke na heslo, alebo stlačí to tlačítko "Iba na čítanie" na tej požiadavke na heslo, tak sa nič neurobí. Ani sa nič nikam nezapisuje, a Excel si sám odsleduje, že je súbor ReadOnly.

Perfektne funguje aj odmazanie riadka zo zoznamu súborov na zápis, pri zatváraní súboru otvoreného na zápis.

Prepisuješ si správne tie konštanty 2x "ZoznamSuborov" a "Cesta" ? Ja asi natočím video ako to funguje, pretože si asi fakt nerozumieme. Len teraz mám strašne veľa inej roboty. Skúste pls na to zatiaľ mrknúť aj niekto iný. Ja už fakt nestíham.

Podmienkou je prvotné uloženie všetkých tých súborov "Uložiť ako - Nástroje - Všeobecné možnosti - Heslo na úpravy - OK". A pozor na ten TXT súbor ! Ja som ho pozmenil, a v kóde funguje len opravená verzia! Bez dvojitých Tabulátorov, bez medzier v dátume, bez čiarok na konci riadku. Treba si upraviť v tých svojich súboroch aj toto ukladanie, ak to máš inak riešené ako ja.

Prepracované, doplnené, zmenené, otestované ale bez sieti. Upravil som aj zoznam súborov na zápis.
heslo pre súbor na otvorenie pre zápis je "abc" (bez úvodzoviek)
EIDT: S pripájaním do siete to bude treba zase riešiť, presne podľa toho ako sieť funguje. Je namapovaný disk v systéme ? Namapovaný vo VBA? Zdieľaná zložka na serveri ? Uživateľ pristupuje do zdieľanej zložky/na server pod menom a heslom ? Proste je to rôzne. Viď napr.:
http://stackoverflow.com/questions/27248221/access-shared-network-folder

Okrem hesla, to čo som urobil robí presne to čo chceš. O hesle si sa zmienil teraz prvý krát. A tie MsgBox som tam dal len pre to aby bolo vidieť ako som to myslel, a ktorá časť kódu čo urobí. Celú konštrukciu Case 0,1,2,3 si musíš urobiť podľa toho, čo presne chceš aby v danom prípade macro robilo.
To isté platí pre ostatné MsgBox v kóde. NEMUSÍŠ ich použiť.
Takže tie súbory budú zaheslované ? A rozlíšené to bude, podľa toho, či zadáš 1x heslo (súbor na čítanie) alebo 2x heslo (súbor aj pre zápis) ? Či si chceš obslúžiť nejakým svojim mechanizmom otvorenie na ReadOnly a ReadWrite, napr. cez vyvolanie vytvoreného formulára pre heslo ? Ale súbor bude inak bez hesla.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse