Příspěvky uživatele

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.

Skúste či je to to, čo ste chcel. Nezdá sa mi, že chcete zlučovať rôzne dátumy, a nepovedali ste ani koľko to má stĺpcov, akého formátu, či sa budú sčítavať (tak som to urobil) atď. Je to minimum informácii, navyše bez prílohy...

EDIT: 5.2.2015 09:08
Oprava prílohy
Na tom čo som si vytvoril to funguje tak ako si myslím, že aj má. Ak to Vy máte ako Tabuľku a nie tabuľku, alebo máte pred tým (asi áno) iné dáta atď, atď, tak to fungovať nebude.
Príloha je bezpodmienečne nutná.

Načo tam máte vo vzorci C2, keď je mimo tabuľkových dát a nič v nej nieje?

No a na ktorom presne riadku ? Nie náhodou na Evaluate ?
Akú hodnotu má FC.Formula1 ?

Nejako takto asi...

Váš kód ale neumožňuje prípadnú ďalšiu prácu s číslom palety. Navyše funguje pri dvojkliku hocikde, čo spôsobuje problém pri potrebe prepísať nejaké iné dáta na liste. Skôr by som to upravil na niečo takéto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("Pocitadlo").Address Then
With Range("Pocitadlo")
If .Value = 6 Then .Value = 1 Else .Value = .Value + 1
Application.Goto Range("Pocitadlo").Offset(1)
End With
End If
End Sub
A formát bunky
###?"/6"
Prepínanie zo 6 na 12 by som riešil netlačiteľným zaškrtávacím políčkom.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje