Příspěvky uživatele
< návrat zpět
Moje nervy. Samozrejme, že okraje a rozmer ROZHODUJE, ak máte štítkový papier - taký na ktorom sú štítky predperforované/rozdelené ! A ak máte iba nerozdelený papier, iba vtedy nie ste limitovaný rozmermi. Na to som sa pýtal.
A ak je to ten druhý prípad (nerozdelený papier, nerozštítkovaný papier od výrobcu), tak aj vtedy treba brať trošku ohľad na veľkosť plochy boxu s jedlom. Včera som zrovna vyhadzoval 2 diametrálne rozličné jednorazové baliace boxy na jedlo, a to mávam ešte tretí druh, ktorý je zase úplne iný a menší, a na ten rozhodne štítok o šírke A4 nenalepíte.
70x20 - teda vľavo a vpravo bezokrajová tlač? Určite? Ak nie, treba myslieť na odsadenie textu od okrajov.
Takže 3 stĺpce - odpovedám si sám.
Hore a dole bezokrajová tlač? Určite? Často to je tak, že hore cca 5 mm a dole cca 12 mm tlačka nevytlačí. Áno aj laserovky.
Filter jedla - odpoviem si sám - netreba.
Makro - to si radšej počkám na odpoveď, aj keď by to šlo navzorcovaním s vypočítavanou oblasťou tlače.
Ale veď porozprávam sa aj sám... 
Meno a jedlo vedľa seba? Teda to budú úzke pásiky? Alebo meno a jedlo pod seba (teda 2 riadky na štítok) a 2 stĺpce štítkov na stranu? To máte samolepkovú A4 alebo štítkovú A4? Ak štítkovú, treba uviesť presné rozmery okrajov aj štítkov. A predpokladám, že bez makra to chcete.
Inak na čo je tam ten filter jedla??? Veď musíte vytlačiť všetky jedlá za vybraný deň, a jedlo je pri mene uvedené. Filtrovať jedlo je zbytočné.
A ako má ten štítok vyzerať?
Na to je predsa Kontingenčná Tabuľka. A áno, tú KT napojíte priamo na PowerQuery dotaz, ktorý tam mimochodom nie je. A pochybujem aj o reálnosti toho výstupu v Zdroj. Bez názvov stĺpcov ??? A ten "dátum" nie je dátum, to treba previesť už v tom PQ na 1.X.rok alebo rozdeliť na 2 čísla vyjadrujúce mesiac a rok.
=IF(List1!A1="";"";"TEXTPŘED"&List1!A1)
=KDYŽ(List1!A1="";"";"TEXTPŘED"&List1!A1)
Vyskúšajte to s Vašim súborom a nejakým skorším časom, aby ste nečakal do rána :)
Možno bude treba aktualizovať Connections, PivotTables, Queries aktualizovať samostatne po jednom, s vypnutím BackgroundQuery, aby to čakalo na dokončenie. Neviem, čo tam máte.
Pri pokusoch nezabudnite potom pokusný čas z naplánovaných zmazať pomocou SERVICE_PROC_STOP.
Sub Aktualizacia_Dat()
Dim Cesta As String
With ThisWorkbook
.RefreshAll
Cesta = .Path & "\"
.Save
End With
With Workbooks.Open(Cesta & "MAKRO1.xlsm", True)
.RefreshAll
.Close True
End With
Application.OnTime TimeValue("04:00:00"), "Aktualizacia_Dat"
End Sub
Sub SERVICE_PROC_STOP()
On Error Resume Next
Application.OnTime TimeValue("04:00:00"), "Aktualizacia_Dat", Schedule:=False
End Sub
Takže v súbore "MAKRO.xlsm" bude makro, ktoré naplánuje v udalosti Application.OnTime (na najbližší čas 04:00 v noci) spustenie druhého makra v tomto súbore "MAKRO.xlsm". To druhé makro spustí aktualizáciu všetkých dát v tomto súbore "MAKRO.xlsm", uloží tento súbor. Stále sme v tom istom súbore "MAKRO.xlsm".
A teraz, načo sa má otvárať súbor "MAKRO 1.xlsx" (.xlsm ?), ukladať a zatvárať? Pri jeho otváraní dôjde k nejakej udalosti jeho vlastného makra Workbook_Open či aktualizácii dotazov? Ak nie, tak je popisovaná manipulácia zbytočná.
Ono sa dá urobiť takmer všetko. Len treba pochopiť zadanie. Ale zadanie musí chápať aj zadávateľ. Či má logiku. To nie je narážka. Proste to musí byť logicky uskutočniteľné. Aplikovanie iba na filtrované riadky nie je problém. Dokonca by sa to dalo urobiť tak, aby ste neprišli o Undo, že makro vytvorí nový list/súbor s výsledkami, ale tieto dáta si pomocou Ctrl+A, Ctrl+C, Ctrl+V, skopírujete do pôvodných dát sám. O Undo tak neprídete. A ten dočasný novovytvorený list/súbor len zahodíte, zmažete, neuložíte a pod.
Ale potreboval by som odpovede na moje poznámky vyššie a prílohu. Inak to nepôjde.
Tak teraz Vám už nerozumiem absolútne vôbec.
Kde v tom príklade sú nejaké produkty? Logicky by mali byť niekde v prvom stĺpci, príp. v druhom ak v 1. je ID. V tom prípade ale nesedí to, že sa vyhľadáva od 1. stĺpca doprava po Cenu.
Stále nereagujete na to, či dopĺňaný text do buniek, je rovnaký pre všetky dopĺňané bunky (v príklade červené), alebo je text pre každý riadok (produkt) iný, prípadne pre každý stĺpec kategórie iný (teda pre riadky v category1 je TextABC, pre riadky v category2 je TextQWERTY, ...).
Sú vlastne teda stĺpce nazvané "categoryX" ?
To, že budú dáta filtrované je zásadná info. A to, že sa má dopĺňať iba vyfiltrovaná časť ešte zásadnejšia.
Ako môže taký zoznam filtrovania horizontálnych kategórií fungovať vo vertikálnom zozname rôznych druhov produktov? To by chcelo prílohu, redukovanú, anonymizovanú, so zmysluplnými názvami produktov a kategórií, reálne rozmiestnenie a formáty.
Ak totiž v category1 vyberiem "dopravný prostriedok" AUTO a RAKETOPLÁN, v category2 bude u ÁUT farba ČERVENÁ a ČIERNA, v RAKETOPLÁNOCH bude ČERVENÁ a BIELA. Lenže v do akcie pôjde len ČIERNE Auto a ČERVENÝ Raketoplán. Ako zaistíte, aby sa nezobrazovalo ČERVENÉ Auto?
Naopak, ak teda categoryX nemusia znázorňovať ten istý typ informácie/kategórie produktov, tak v tom filtri bude spolu naraz napr. ČERVENÁ, AAA, Rozbalené, CAT5E 50 m, ...?
Chcelo by to spomínanú prílohu.
A áno, makro má nevýhodu, že nielenže nemá Undo, ale navyše logicky zruší všetky vrátiteľné kroky pred spustením makra. No nijako inak ma to nenapadá urobiť. Možno malá náplasť by bola, že by makro pred aplikáciou samo vytvorilo kópiu súboru niekde v záložnom adresári.
Taký prvý nástrel. Ak treba, nový stĺpec si to vytvorí samé, vložením a posunutím. Toto je príklad na vloženie rovnakého textu do všetkých riadkov. Ak má ísť na každý riadok iný text, tak sa to dá ľahko prerobiť tak, že sa hodnoty vyplnia do zadávacieho stĺpca. a budú sa brať odtiaľ. Ďalej sa dá upraviť, ak sa teda všetky kategóriové stĺpce začínajú na rovnaký text "category" a mení sa číslo na konci, tak sa dá urobiť, aby ten nový stĺpec automaticky nazvalo aj s nasledujúcim číslom. Ak je každý z tých stĺpcov nazvaný podľa nejakého iného pravidla alebo zdroja, treba uviesť akého.
Makro je popísané, ktorý riadok čo robí. Bez makra neviem, ako by sa to dalo poriešiť.
Tie stĺpce "categoryX", tých je pevne stanovený počet 5 ? Alebo je rozhodujúcim stĺpcom stĺpec Cena? Teda prvá voľná bunka sa hľadá od prvého stĺpca A:A category1 až po x-tý stĺpec, pokiaľ nie je stĺpec Cena? A čo v prípade ak voľnú bunku nenájde? Vytvorí pred Cena nový stĺpec categoryX+1? Alebo neurobí nič? Tie texty v tých bunkách sú texty alebo vzorce? Asi texty, len pre istotu sa pýtam, lebo by bolo jednoduchšie urobiť hromadný zápis poľa hodnôt, aj tých istých do tých istých buniek, a aj nových do nových buniek. Makro nebude problém, len upresnite veci...
PS: Prílohu môžete priložiť až po zaregistrovaní.
Ako môže byť niečo vpravo, keď vravíte, že ste za poslednou bunkou v riadku??? Ja by som to čo popisujete urobil makrom na tlačítko.
Každý riadok končí na inom stĺpci? Priložte prílohu s príkladom.
Dátum tam zapíšete pomocou Date
Bunka.Offset(0, 2).Value = Date
Tú bunku/oblasť/celý stĺpec, kam to vkladáte, majte buď predformátovanú na Vlastný formát
dd.mm.yyyy
v CZ
dd.mm.rrrr
alebo nastavujte formát bunky v makre
Bunka.Offset(0, 2).NumberFormat = "dd/mm/yyyy"
To je tým, že Vy nevkladáte dátumy, ale text.
Riešenie vo vedľajšom dotaze
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