Příspěvky uživatele
< návrat zpět
@hard, Ak to je ešte aktual, tak pošlite prílohu.
EDIT: Naozaj neviem, o čo ide, ja kopírujem data do iného zošitu normálne. viď príloha.
Nedávno som posielal na iné fórum zaujímavý variant pre N-té slovo.
=TRIM(RIGHT(LEFT(SUBSTITUTE(B1;B2;REPT(" ";LEN(B1)));B3*LEN(B1));LEN(B1)))
=PROČISTIT(ZPRAVA(ZLEVA(DOSADIT(B1;B2;OPAKOVAT(" ";DÉLKA(B1)));B3*DÉLKA(B1));DÉLKA(B1)))
Od eLCHa samozrejme funguje tiež. Prihodil som ho do súboru s úpravou voliteľného oddeľovača.
Ak to bude vzorcami tak si overte či ten "jiný program" zožerie tie 0 (nuly) ktoré vzniknú ťahaním prázdnej bunky vzorcom. Ak nie tak vzorce upravte takto:
=IF('[Packing List.xlsm]LIST'!A9=0;"";'[Packing List.xlsm]LIST'!A9)
=KDYŽ('[Packing List.xlsm]LIST'!A9=0;"";'[Packing List.xlsm]LIST'!A9)
Ak to chcete makrom, tak by som nepoužil nahrávanie makra ale niečo takéto:
Sub Kopiruj()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\Data.xls"
.DisplayAlerts = True
With Workbooks("Data.xls")
.Worksheets("Data").Cells(2, 1).Resize(16, 6).Value = ThisWorkbook.Worksheets("LIST").Cells(9, 1).Resize(16, 6).Value
.Close SaveChanges:=True
End With
.ScreenUpdating = True
End With
End Sub
A načo tam máte zlúčené bunky, keď ich evidentne nepotrebujete ?
Presne tak, pozor na presný názov listu, Select, Aktivate a pod. Ale ak používate viac naraz otvorených zošitov, tak v makre pridajte pred ThisWorkbook.Worksheets(... pre istotu.
A najlepšie hodte nám do pľacu tie makrá a súbory...
No veď práve to je problém na ktorý som narazil a neviem ho rozlúsknuť (ak vôbec nejako pôjde). Chcel som použiť na prevod vloženie do pomocnej bunky ako FormulaLocal a prečítanie ako Formula, čím sa vzorec preloží a dá sa potom vypočítať cez EVALUATE. Lenže zmena inej bunky vo funkcii nefunguje. Funkcia môže meniť bunku iba v jedinom prípade, ak je volaná z procedúry. Ale priamo, akonáhle by bola táto fnc volaná z proc volanej z fnc, už to opäť nefunguje. Skúsil som vytvoriť aj Class, ktorá mala meniť bunku, v nádeji, že ak je to Class (Object) tak zdedí Range so všetkým. Akonáhle ale prebieha interná procedúra v triede tak na riadku kde má zapísať do bunky, to vyvolá okamžite Class_Terminate, a bez chybovej hlášky.
Zatiaľ jediné riešenie ma napadá spúšťať výpočet tlačítkom, to fungovať bude.
Alebo mať schovaný list s bunkami s rovnakými vzorcami ako vo formátovaní.
Alebo rovnaké kontrolné mechanizmy implementovať do UDF. Teda prepísať vzorce do VBA.
Tam môže byť veľa problémov. Najpravdepodobnejším môže byť jazyková mutácia Excelu, ďalším problémom môže byť konkrétny druh formátovania. Ja som robil iba jednoduchú verziu, lebo vidíte sám na cpearson, aké je to komplikované (a stále to nefunguje). Musíte sem dať reálnu prílohu, s reálnymi dátami a reálnym typom formátovania, ak nie, tak aspoň niekomu s CZ Excelom to pošlite mailom, lebo mne sa ďalší virtuál s CZ E teda nechce vytvárať (navyše som teraz pár dní chorý v posteli s málo výkonným bookom)...
A len zo srandy si dajte Breakpoint na
If Evaluate(Replace(FC.Formula1, ";", ",")) Then ColorCF = FC.Interior.Color: Exit For
označte FC.Formula1 kliknite pravým a Add Watch. V spodnom okne Watches v stĺpci Value 2x klik a označenú hodnotu nám sem skopírujte.
@eLCHa: ... červen/červenec... sakra to ma vôbec netrklo.
Prečo musíme mať furt smolu, a zrovna naše jazyky podporu mmm nemajú ... ale máme eLCHu, ešteže tak 
No ako začať. Ako by ste si chceli dopĺňať všetky vzorce k novým klientom (riadkom) ? Kopírovať 1000 stĺpcov? Alebo nechať vypísaných 500 riadkov po 1000 stĺpcov s polmetrovými vzorcami, a 500 000 podmienených formátov ? Potom upravovať popridávané Podmienené formátovanie (vzniknuté pri kopírovaní)...
Neviem prečo ste mali Názov "DNES" za poslednou bunkou vpravo, kde zákonite pri rozšírení tabuľky (z predošlej prílohy to vyplýva, že môže dôjsť k rozšíreniu, lebo tam máte až rok 45) tento skrytý odkaz s bielym písmom prepíšete, a celá tabuľka prestáva fungovať. Mi trvalo kým som na to prišiel. Dal som ho rovno do Definovaného názvu.
To nieje šťastné riešenie. Pravdepodobne bude lepšie to previesť na Tabuľku, tá si vzorce, podmienené formátovanie, rozbaľovací zoznam, aj rozsahy doplní sama. Takto si pretiahnete v prípade potreby rozšírenia horné 2 riadky (štvorica stĺpcov) o koľko mesiacov potrebujete, potom pretiahnete posledné 4 stĺpce Tabuľky. Stále je tam ale komplikácia, že musíte doplniť do 1. riadku za posledný stĺpec ďalší mesiac (pretiahnuť poslednú bunku a zrušiť zlúčenie). Tak máte postavené tie komplikované vzorce, čo s tým. Inak Vám Tabuľka nebude fungovať.
Zdá sa Vám to po prečítaní komplikované, ale verte, že pridávanie stĺpcov je max na 30 sec.
No a pridávanie riadkov si rieši Tabuľka sama, len napíšete meno, a počkáte chvíľku kým doplní sama vzorce (do 1000 stĺpcov to chvíľu trvá).
Ten zeleno/červený ukazovateľ som Vám tam urobil inak, mrknite.
Máte tam 2 definované názvy "u" a "tu", oba majú chybnú hodnotu, zmazal som ich.
Odstránil som množstvo nepoužívaných riadkov a stĺpcov mimo tabuľky, čím sa značne zmenšila veľkosť súboru. Odstránil som prázdne makrá. Zarovnal som formátovanie v niektorých stĺpcoch.
Vaše prílohy sa od seba veľmi líšia, ďalšiu sa mi už kompletne premýšľať a prerábať asi nebude chcieť.
Pozrite sa na to, vyskúšajte...
Len mi nepovedzte aj teraz, že to nefunguje.
A podľa čoho sa vyberá hodnota v stĺpci 12 ? Raz je tam z ANA = N, druhý krát ale z ANA = A.
No keď si myslíte, že to bude prehľadnejšie/rýchlejšie medzi toľkými číslami...
Žiaľ fnc z odkazu sa ani mne nedarí sprevádzkovať, hneď prvý test končí pádom fnc úplne bez debugovania chyby. Ak zadám druh formátovania "rovná sa" 1, spadne pri krokovaní v GetStrippedValue na tom MID, kde nastane záporná hodnota.
Ak by ste použil iba PF vzorcom, tak som Vám urobil maximálne zjednodušenú verziu. A mne sa zdá, že funkčnú.
Zmažte číslo 1 v A1 a uvidíte zmenu.
Ľavý Alt+F11. V otvorenom okne Microsoft Visual Basic for Application kliknite pravým mišítkom na VBAProject(názov dokumentu) - Insert - Module. Dvojklik na ten vytvorený Module1 a v do pravej bielej časti okna nakopírujete jedno alebo druhé makro. Makro potom priradte napr. tlačítku, ktorému nastavte vlastnosť Netlačiť.
Pozor ale, ako vstupná/výstupná bunka je tam nastavená
Cells(1, 5)
teda E1
To si upravte podľa seba.
PS: Príkaz Cells pracuje s indexami riadkov a stĺpcov. Čiže Cells(číslo riadka, číslo stĺpca)
Stačí takto?
Ja by som to skôr asi urobil takto. Je tam minimum formátovaní - 2.
Vypočítava sa to na základe indexu podľa čísla stĺpca.
Ak budete potrebovať pridať ďalšie štvorstĺpce, len pri pripočítajte vo formátovaní rozsah. Alebo si urobte dostatočný predstih.
Čo to tam máte za makro ? Čo to malo robiť, pomôžeme...
EDIT: Máte tam až po riadok 526 v stĺpci H Výberový zoznam. Tak som to prerobil na oblasť $I$5:$AWV$526. Vymenil som prílohu.
Alebo tento druhý variant je tuším jednoduchší.
Pozeral som nejaké miestne a jazykové nastavenia, ale nevidím tam nič o strednom formáte.
Skúste to zatiaľ vyriešiť definovaným názvom, podľa návrhu eLCHa.
Malo by to fungovať na SK,CZ,HU.
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