Příspěvky uživatele
< návrat zpět
??? Veď stačí iba do bunky C3 napísať =B3-B2, a vzorec z C3 za ten malý štvorček vpravo dole natiahnuť po C1000 alebo kam... alebo Ctrl+C na bunke C3, označiť C4:C1000 a Ctrl+V.
Posun môžete riešiť aj cez OFFSET/POSUN alebo INDIRECT/NEPŘÍMÝ_ODKAZ.
Zdravím dámy a páni.
Riešil ste už niekto A-Z radenie v PQ v lokálnej abecede?
Mám napr.:
Čistý
Ábel
Bublina
Žuvačka
Zvon
SK Excel to zoradí správne :
Ábel
Bublina
Čistý
Zvon
Žuvačka
No SK PQ dá všetku diakritiku až za "Z" :
Bublina
Zvon
Ábel
Čistý
Žuvačka
Nemôžem nájsť riešenie.
PS: Áno stále sa to dá dosortovať následne v hotovej Tabuľke v Exceli, no potreboval som One-Click riešenie.
Ďakujem.
=IFERROR("Jistina - "&REPLACE(REPLACE(A1;1;FIND("ANO / NE 1";A1)+10;"");FIND(" 0 21";REPLACE(A1;1;FIND("ANO / NE 1";A1)+10;""));LEN(A1);"");"")
=IFERROR("Jistina - "&NAHRADIT(NAHRADIT(A1;1;NAJÍT("ANO / NE 1";A1)+10;"");NAJÍT(" 0 21";NAHRADIT(A1;1;NAJÍT("ANO / NE 1";A1)+10;""));DÉLKA(A1);"");"")
alebo
=IFERROR("Jistina - "&TRIM(LEFT(SUBSTITUTE(REPLACE(A1;1;FIND("ANO / NE 1";A1)+10;"");" 0 21";REPT(" ";LEN(A1)));LEN(A1)));"")
=IFERROR("Jistina - "&PROČISTIT(ZLEVA(DOSADIT(NAHRADIT(A1;1;NAJÍT("ANO / NE 1";A1)+10;"");" 0 21";OPAKOVAT(" ";DÉLKA(A1)));DÉLKA(A1)));"")
Prílohu som ešte nepozeral. Mám rozpracované to čo som spomínal. Bude to ukladať disk priamo do spoločnej tbl, s tým že nahradí predchádzajúce údaje z disku s rovnakým názvom, prípadne pridá celý nový disk. Ďalšie listy budú zbytočné. Ale je to zložitejšie na premyslenie, je to na 2. koľaji. Dám vedieť.
Neviem síce čo chcete označiť, ale skúste nepoužiť xlDown, ale od konca xlUp. A pracujte s určite vyplneným stĺpcom, čo A nieje.
Lomítko "\" na konci - ako som písal minule, bez neho to bola asi prapôvodná vizuálna požiadavka. Neviem.
Sub Vytvor_HL()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Start", "niečo iné" 'vylúčené listy
Case Else: ws.Range("C3").Hyperlinks.Add ws.Range("C3"), "", "Start!A1", "List Start", "List Start" 'na všetky ostatné urobí link
End Select
Next ws
End Sub
Tu máte to makro. Treba otestovať, príliš som to neladil...
Ale ten stĺpec s príznakom zaplatenia by som tam doplnil.
Skúste si toto. Je to iba PF + vzorce + Smart Filter.
Hmm, no podľa mňa možno termínom "faktúra po splatnosti" označiť iba faktúru, ktorá nebola do konca dňa jej splatnosti zaplatená. Nie faktúru, ktorej dátum splatnosti je menší ako dnešný. Treba rozlíšiť, ktorá je už uhradená. A iba neuhradené kontrolovať na "po splatnosti".
Výpis do msgboxu je veľmi nepraktický, nedá sa odtiaľ nič napr. skopírovať, a musíte ho zatvoriť, aby ste mohol pokračovať v Exceli.
PQ je dobrá voľba. Ak budete trvať na makre tak Vám ho kľudne napíšeme. No na takéto zvýraznenie ani nepotrebujete znalosti PQ či VBA. Stačí Podmienený formát + filter na farbu (+ možno nejaká informačná bunka so vzorcom COUNTIFS a textom upozornenia).
Na jednorazové doplnenie:
vyplnenie:
A1
Ctrl+Shift+medzernik
Ctrl+Shift+šípka vľavo, aby ostal len A
Ctrl+G - Špeciálne - Prázdne bunky - OK
napíšeme "=" a šípkou hore sa doplní prvá bunka nad prvou prázdnou, teda "=A2"
Ctrl+Enter
prevod na hodnoty
A1
Ctrl+Shift+medzernik
Ctrl+Shift+šípka vľavo, aby ostal len A
Ctrl+C
pravé myšítko, prilepiť hodnoty (ikona "123")
Vo Vašom prípade ale ide o dynamický report, takže určo buď doplniť stĺpec, alebo na tento report urobiť PowerQuery dotaz do dátového modulu a naň napojiť KT.
EDIT:
Vy máte výsledný súbor XLS? Takže ide o starší Office ako 2010? Tak to PQ nepôjde.
Zatiaľ málo času, ale prišiel som na zaujímavé veci.
Uvádzam príklad toho, čo dám načítať v objFSO.GetFolder a aký adresár skutočne dostanem:
"c:" - "C:\Program Files\Microsoft Office\root\Office16".
"d:" - "D:\Dokumenty"
"e:" - "E:\Download"
a keď tam nechám lomítko \:
"c:\" - "C:\"
"d:\" - "D:\"
"e:\" - "E:\"
sranda čo? To lomítko tam musí byť! Neviem, prečo sme ho dávali vtedy preč, asi podľa požiadavky vzhľadu.
Teraz k chybe. Tá vzniká pri načítaní disku a určovaní veľkosti spracovávaných dát.
Ak spracovávame adresár vieme určiť jeho veľkosť (kvôli progresu)
CelkVelkost = objFolder.Size
ale ak sa jedná o root
tak táto vlastnosť neexistuje, a veľkosť obsadených dát potrebujeme vypočítať na základe kapacity a voľného miesta
CelkVelkost = objFolder.Drive.TotalSize - objFolder.Drive.FreeSpace
takže
If objFolder.IsRootFolder Then CelkVelkost = objFolder.Drive.TotalSize - objFolder.Drive.FreeSpace Else CelkVelkost = objFolder.Size
Nad ďalšími vecami musím najskôr porozmýšľať a mať na to čas. Ale to s tým označovaním farbou asi nepôjde...
Potrebujete Office 365.
Takže to makro parametrizujeme, pže ho potrebujete spúšťať na inom liste/disku. To že ste povedal z iného modulu, to vyznie úplne inak. To nebude problém.
Počet zdrojov je známy a nemenný?
Každý zdroj/disk má svoj list?
Ak sa jeden zdroj aktualizuje (teda sa spustí makro na jeho liste), ako sa aktualizuje tá tabuľka "zdroj spojené"? vymazať sa nemôže, to by sa museli aktualizovať všetky zdroje. Dalo by sa vyhľadať/vyfiltrovať iba podľa mena zdroju/disku/partície a vymazať iba tie, a pridať aktualizované...
No a načo je potom tá Tabuľka "Tabuľka1" na liste Tabulka? To sú už vlastne triplicitné dáta. Dávala by zmysel, ak by sa pomocou PowerQuery z nej robil ten zoznam na liste Filmy. No tu je problém, že si tam značíte manuálnym podfarbením asi čo ste videl, alebo vlastné hodnotenie, alebo neviem čo, a to by Vám po akejkoľvek aktualizácii nesedelo. Pže po pridaní jediného filmu by sa to zoradilo, ale iba dáta, nie podfarbenia. Riešením by bolo asi jedine, toto značenie robiť v ten súhrnnej tabuľke/Tabuľke v nejakom pridanom stĺpci, napr. hodnotenie 1..5, alebo V - videl. A to by sa premietlo do Podmieneného Formátovania pri danom filme, nech by bol zoradený kdekoľvek. ALE. Museli by byť vytvorené jedinečné identifikátory v tejto tabuľke/Tabuľke (napr. jedinečné číslo, ktoré by sa neopakovalo, ani po zmazaní záznamu). Prečo? Lebo sa film môže volať rovnako, a pritom pôjde o niečo iné. ALE. Toto tiež skrachuje na aktualizácii PQ.
Myslím, že niektoré veci, ktoré chcete dosiahnuť, mi zapínajú. Ale bude to možno komplikovanejšie, ak si zatiaľ myslíte.
Tiež mám zbierku, a ako pribúdali komplikácie katalogizácie, tak som sa to vysr...kašľal, a teraz mám krásny nefalšovaný chaos a neviem nič nájsť 
No a kým som urobil progres, napíšete, že ho netreba 
Neva skúste. Neskôr pozriem aj na ten Váš súbor.
Tu som urobil aj nejaký popis + drobné úpravy makra. Tento Váš príspevok som si prečítal až po tom, čo som to dokončil, každopádne mne to funguje, aj na USB (root aj adresár) aj na internom HDD (root aj adresár).
Ešte premýšľam, či by sa dalo (a či by sa mi chcelo), celé to prekopať tak, že by si najskôr urobilo zoznam súborov (možno kolekcia aj s objektami súborov/adresárov, možno len pole súborov urobené rovnakým spôsobom len bez načítavania informácií). Až následne by sa v druhom kole načítavali informácie o súboroch. Získame počet súborov na spracovanie a môžeme zobraziť progres. No na rýchlosti ale stratíme 2x. Raz duplicitným cyklom a raz spomaľovaním pri vypisovaní progresu. No získame prehľad.
O koľkých súboroch a akej celkovej veľkosti sa tu väčšinou bavíme? Nech si to skúsim nasimulovať.
V procedúre GetFiles ten riadok s Dir() už byť nemá. Naopak som tam ja zabudol dať ešte deklaráciu premennej CountHidden
CountHidden as Long
Pre lepšiu čitateľnosť kódu ešte odporúčam zarovnať vždy na rovnakú úroveň tabulátorom začiatok a koniec konkrétneho cyklu For-Next, priradenia With-End With, alebo podmienky If-Else-End If.
No a čo tie prvé 2 stĺpce, to nechcete radšej tiež v tom makre urobiť? Príde mi zbytočné následné rozkopírovanie vzorcov.
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