Příspěvky uživatele
< návrat zpět
Skúste namiesto "Řádek" a "Sloupec" použiť "Row" a "Col". Vo funkcii CELL/POLÍČKO zrovna funguje aj v CZ mutácii napr. anglický parameter "filename" namiesto "návevsouboru". Tak snáď aj ostatné parametre fičia. Odpadne Vám problém na inojazyčnom Office. V SK Office ide aj SK aj EN parameter. Parameter sa totiž automaticky neprekladá ako vzorce.
Vo VBA "Hotovo" nie je to isté ako "HOTOVO". V Exceli v bunkách je to zhodné pomocou "=". Presné porovnanie je pomocou EXACT/STEJNÉ. Vo VBA je "=" ako v Exceli EXACT. Ak vo VBA chcete niečo ako "=" v Exceli, tak potom StrComp("Hotovo", "HOTOVO", vbTextCompare) = 0
Alebo použite UCase()/LCase()
Musí byť C1 veľkými písmenami? Ak áno, tak musíte mať menný zoznam názvov mesiacov vo Vašom jazyku, nájdete pozíciu a máte mesiac. Zložiť to nie je problém. Ale na inojazyčnom systéme budú stále Vaše (CZ) názvy.
Ak to môže byť aj malými písmenami, tak sa názov mesiaca zobrazí Vlastným formátom, zo zoznamu pevných dátumov, a v každom jazyku to zobrazené správne - daným jazykom. Zložiť to zase nie je problém do B2.
Tak ako?
Môžete prihodiť ešte ten zdrojový súbor s dátami (anonymizovaný)? S vyznačenými dátami na načítanie. Každý taký súbor bude mať 4 riadky dát? Zdrojové bunky idú za sebou zvislo aj vodorovne? Formát dát (číslo, dátum, text, %, ...)? Sú tam zlúčené bunky? Z Vašej prvej vety to skôr vyznie, že chcete načítať dáta z viacerých súborov (pobočiek) naraz, a nie označovať po jednom súbore ...
Príloha s makrom XLSM musí byť zabalená v ZIP, a menšia ako 300 KB (asi).
Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.
Samozrejme, napr. v takomto prípade to vloží link na pôvodný súbor. Záleží, aké tam máte vzorce. Nejaká príloha so zachovanými vzorcami a štruktúrou by nebola?
Nejaké príklady ... link na GoogleDrive (5,5 MB ZIP)
To je prázdne. Pošlite mi to na mail môj nick gmail, alebo to hrknite niekam na uloz.to
V UDF nie je možné priamo čítať DisplayFormat, ale obabraním cez EVALUATE áno. Preto som to tak robil v tom druhom súbore s PF to tak mám
... = Bunka.DisplayFormat.Interior.Color
V obyčajnom makre to ide, ale nie v UDF.
Ak je to súbor XLSM, musí sa zaZIPovať. Veľkosť by malo zobrať asi do 300 KB.
Súbor "Okresy SK mapa.xlsm" je na tlačítko na liste Data. Akú farbu manuálne dáte v Data, takú bude mať okres. Teda to nie je automaticky počítaná farba ako v PF. Toto sa dá naviazať predsa hocikam.
Naopak súbor "Okresy SK mapa PF.xlsm" používa ofajč pomocou vlastnej funkcie COND_COL_SHAPE (v stĺpci Funkcia na liste Data), ktorá volá EVALUATE aby získala práve zobrazenú farbu danej bunky, ktorú vypočítal PF. Toto sa prefarbí pri každom prepočte listu.
Musel by som vidieť ten Váš súbor, ako vyzerá zdroj, vzorce, čo je vstupom a čo má byť presne výstupom KT. A možno prídem na to ako to prerobiť a prispôsobiť. Makro je takmer vždy vysoko špecifické. A tu napr. nie je možné pridať taký funkčný stĺpec do KT, ktorý by obsahoval vlastnú VBA funkciu s odkazom na vedľajšiu bunku.
Nie, podmienený formát pre objekty nefunguje. S tým prepočtom bude rýchlostný problém. Ak nie na tlačítko, dá sa to naviazať na udalosť Calculate, ktorá bude vyvolaná ale pri každej zmene bunky, pri každom filtri v KT. To bude pomalé.
EDIT:
Keby išlo len o pivotku tak udalosť PivotTableUpdate. To ale samozrejme nereaguje na zmenu dát v bunkách, či už manuálnu alebo vzorcom.
Mrk sem
Určite to pôjde, ale bola by lepšia nejaká príloha pre predstavu o čo presne ide. Je potrebné skutočne hľadať posledný vyplnený riadok v Tabuľke??? Tam sa nastavuje vzorec na celý stĺpec - automaticky sa dopĺňa. FormulaHidden určo nefachá - chýba tam bodka. Vy chcete dopĺňať dáta až za posledný vyplnený riadok MaxR? O veľkosti R, S? REPT je tam z dôvodu 0? Teda ťaháte dáta cez vzorec z iného zošitu? Nerobí REPT problém s nejakým formátom čísla a pod? Dá sa to aj cez podmienku IF. Dajte prílohu...
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