Příspěvky uživatele

Včera som sa k ďalšiemu variantu nedostal.
Keď ste ešte len na riadku
Day1 = .Cells(2, 1).Resize(R1).Value2
tak pole nieje naplnené, len je vytvorené, teda má veľkosť
riadky 1-5
stĺpce 1-1
každá hodnota je Empty (prázdna hodnota)
keď dáte ešte raz F8 a prejdete na ďalší riadok, až potom sa riadok vykoná a pole dostane hodnoty z patričných buniek. Ožltnutý riadok v kóde pri krokovaní je len označenie riadka, ktorý sa bude najbližšie vykonávať, nieje ešte vykonaný.

Tých podmienok je tam preto toľko, lebo ak je napr meno iba jedno, tak ho Excel do VBA nevráti ako pole 1x1 ale ako jednu hodnotu. Ďalej napr. ak jedno pole je prázdne, tak je zbytočná kontrola, lebo to znamená, že všetky z neprázdneho v prázdnom chýbajú, tak sa iba skopírujú, samozrejme iba v prípade, že nieje prázdne aj jedno aj druhé, a samozrejme s ošetrením ak by to nebolo pole ale iba jedna hodnota (viď vyššie), a kombinácie týchto podmienok. Skoro to isté vypodmienkovanie stavov platí aj pri následnom zápise. A tým sa stáva kód dlhý, a čo je dlhé, je zložité, a čo je zložité je náchylné k chybám.
...

PS: Inak vidíte našiel ste ďalšiu nepresnosť v poznámke:
Day1 = .Cells(2, 1).Resize(R1).Value2 'načítanie mien do poľa Day2
a
Day2 = .Cells(2, 4).Resize(R2).Value2 'načítanie mien do poľa Day2
majú rovnaký popisok, ale samozrejme pri kopírovaní riadkov kde sa mení iba R1 na R2 a Day1 na Day2 som zabudol zmeniť popisok na
'načítanie mien do poľa Day1
v prvom prípade.

EDIT: Inak pre programátora je jedna z najťažších vecí ošetriť všetky možné veci, čo dokáže užívateľ vo svojej vynaliezavosti vyparatiť. Nadáva sa tomu blbuvzdornosť. A je to začarovaný kruh. Preto aj často veľmi zložité veci, ako napr. Windows, majú veľa chýb, lebo ich univerzálnosť tlačí pred sebou nepredstaviteľnú komplikovanosť, previazanosť, závislosť a robustnosť kódov. Vývojári nemajú šancu, ešte že majú užívateľov, ktorý ich upozornia (niekedy aj pár rokov v kuse).

No veď práve v tom linku je napísané toto:

Mám Office 2016 Professional x64 SK a nieje tam (doplnok Analytické nástroje mám zapnutý, ak by to s tým súviselo)

Ak nemáte predplatiteľskú verziu Office 2016 365 (to "365" je kľúčové), ani nemusíte hľadať

Opravené v príspevku s prílohou, bola tam ešte jedna chyba, ktorá vznikla premenovávaním mojich názvov polí na Vaše (D1 vs. Day1). To len potvrdzuje to, že samotné porovnanie je pár riadkov, ale desiatky sú kontrola rôznych nechcených stavov.

Keď ale píšete, že až 17K vs. 20K riadkov, tak Vám snáď ešte urobím tú, čo to robí cez reťazec, tá bude možno najrýchlejšia. A možno to aj otestujem

EDIT: No teraz keď je tam už toľko podmienok, ošetrujúcich všakovaké možné stavy a ich kombinácie, už sa mi to veru nepáči. Postupne ako to človek ladí, prichádzajú stále nové a nové komplikácie, až sa Vám nakoniec znepáči samotný návrh. Sú tam opakujúce sa časti pre obe polia, tak by sa to dalo spracovať procedúrou s parametrami, bolo by to snáď kratšie. Uvidím, ako večer dopadne 2. verzia.

Heh, kód je HardCore kvôli ošetrovaniu rôznych eventualít:
-čo ak nie sú zadané mená v jednom či druhom poli (vtedy stačí skopírovať opačné)
-alebo nie sú v oboch (vtedy sa nerobí nič)
-sú nejaké starý výsledky na zmazanie (pre obe polia) ?
-samozrejme musí byť kontrolovaný zápis každého poľa, či vôbec existuje...

kontroly eventuálnych chýb to nabobtnajú najviac
uvidím podľa času a chuti, možno Vám prekopen aj iný variant...

EDIT: Pozor, v mojom predošlom príspevku som našiel chybku. Príloha je tam vymenená.

No a keď výpočet zreťazíte - teda IF(ISERROR(výpočet);"";výpočet) ???

Upravil som len môj 1. variant z 3 a popísal. Chcete aj ostatné moje popisovať a prerábať ? Neviem či sa s tým mám piplať (čítajte srať)

Máte tu už 5 variantov, treba si 1 vybrať a mi Vám ho popíšeme doladíme.

EDIT:Výmena prílohy, našiel som chybičku:
V starej prílohe je
WorksheetFunction.Max(R1, R1)
má to byť samozrejme
WorksheetFunction.Max(R1, R2)
Takže tu je vymenená príloha

EDIT: Opravená aj chyba, keď bolo meno iba 1, a oprava názvu poľa.

=COUNTIF(OFFSET(C7;;;;MATCH(TODAY();$C$6:$AG$6;0));"X")
=COUNTIF(POSUN(C7;;;;POZVYHLEDAT(DNES();$C$6:$AG$6;0));"X")

1. Nič čo popisujete teraz, v zadaní nemáte. Tam ste mal niečo iné. Tak som to pochopil ja.
2. Takéto príklady sa nepopisujú slovami, ale príkladom vo forme súboru (XLSM súbor musí byť zabalený do ZIP), kde bude na konkrétne manuálne vytvorenom príklade ukázané čo máte, a čo má byť výsledok.
3. Aké statické polia ? Moje polia sú dynamické. Veď si pri každom spustení nájde rozsah každého poľa. Ešte si aj predošlý výsledok dynamicky vymaže.
4. Že Vám hádže zlé výsledky po "úpravách" - no veď práve. Najskôr si dajte záležať na prílohe, potom Vám snáď urobíme nejaké verzie postupov, ktoré si otestujete na reálnych dátach (reálnom množstve údajov), a zistíte, ktoré Vám pobeží najrýchlejšie, alebo bude inak vyhovovať. Či máme okomentovať všetky naše riešenia, a Vy zmeníte zadanie ?

Polepšite sa

Sem s tou prílohou, a keď bude čas...

EDIT: Čo má ten Váš uvedený kód robiť ?
-chýba End Sub - to nieje problém
-Worksheets"Tabelle4") - to funguje bez zátvorky asi ťažko
-deklarácia last_row je, last_row2 nie
-použil ste najpracnejšiu možnú formu kopírovania oblasti buniek z jedného listu do druhého - bunku po bunke
-a čo index poľa 0 a 1 ? Keď dáte Redim(2) dostanete trojmiestne pole (0,1,2)
-takže z listu Tabelle4 nakopíruje A->A , D->B, žiadne porovnávanie to nerobí.

Tá príloha s príkladom a rozšírený popis je ešte potrebnejší.

Ďalšie 3 možnosti makrom. To sa dá ale aj cez KT. Musíte si na reálnych dátach skúsiť čo bude lepšie. Inak pozor funkcia TRANSPOSE funguje len do cca 32K záznamov, inak je treba pole otočiť cyklom.

Odstavte
On Error Resume Next
A čekujte, či Vám hodí na nejakom riadku chybu. Páč asi kvôli hádzaniu nejakej chyby to tam vôbec je.

Čo má tlačítko robiť vieme, čo ale nevieme je kde to má robiť.
-Ten navi-program vytvorí súbor XLSX, kde nebude nič iné len obdobná tabuľka? Ak je to inak popíšte ako.
-Tá tabuľka je v dobe prepočtu zasadená aj do iných číselných dát (je niečo kdekoľvek okolo nej) ?
-Je rovnako rozmiestnená a koncipovaná, teda vždy 10 bodov v stĺpcoch po piatich so zlúčením 3-och riadkov v čísle bodu, vynechaním jedného riadku medzi uzlom a míľou, je rovnako odsadená od okrajov listu, rovnako sa volá list, ... ?
-Ak je vždy iná, ako ju máme identifikovať ? Vyhľadaním "Otočný bod" ?
-Konvertované majú byť na inom liste - teda je jednoduchšie urobiť kópiu prvého listu, kvôli tomu že netreba potom riešiť opätovné formátovanie, zlučovanie a pod. Je to možné takto robiť, alebo je ten list na nové hodnoty, už prichystaný aj s niečím iným okolo ?
To je spústa a ešte viac nejasností...

luky81: Zmenil ste zadanie, nie ? Nemal ste tam najskôr každý 5-ty stĺpec ?
mepexg: ten Váš mi ale nefachá ani na každom 5, ani 8 (EDIT: aha tak Vy chcete riešiť aj transponovanie, mi to až teraz došlo:) )

Na každom 8-om mi fachá tento:
=INDEX(List1!$5:$5;;(ROW(A1)-1)*7+1)
=INDEX(List1!$5:$5;;(ŘÁDEK(A1)-1)*7+1)

tipujem:
=INDEX(List1!$1:$1;;ROW(A1)*5-5)
=INDEX(List1!$1:$1;;ŘÁDEK(A1)*5-5)

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje