• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Zjednodušení a urychlení makra

Zaslal/a a.mlady 24.11.2015 12:53

Přeji hezký den.

Chtěl bych se zeptat, zdali jde zjednodušit a tím i urychlit stávající makro, případně jestli toto makro se dá udělat nějak jinak.
Makro se spouští tlačítkem "Zadat data". Otevře se sešit s daným názvem a z něj se překopírují data do listu "Data". Sešit s daty se zavře. Poté z listu "Data" ze sloupce "C" se vyhledá "1" a do listu "Poruchy" se zapíše čas z téhož řádku. Pak se hledá poslední "1" v souvislé řadě a opět se zapíše čas z daného řádku. Tak to pokračuje až na konec dat.
Poté následuje kontrola až sloupce "M" po skončení tohoto sloupce, pokračuje kontrola postupně až do sloupce "BE".
V listu "Data" jsem ponechal vzorové data.
Více snad napoví přiložený soubor.
Předem děkuji za pomoc.

Příloha: 28279_vypis-poruch_1.rar (256kB, staženo 17x)

Zaslat odpověď >

---

xlnc(24.11.2015 13:47)#028280

Až si někdo přestane vážit svého času, tak to rozluští a udělá.citovat

a.mlady(24.11.2015 14:05)#028281

xlnc napsal/a:

Až si někdo přestane vážit svého času, tak to rozluští a udělá.

Děkuji za odpověď.

Nevím, jestli Vám vadí můj popis problému nebo hromada volaných maker. Ve své podstatě je to jen jedno makro, ve kterém je posun na jiný sloupec.citovat

xlnc(24.11.2015 16:03)#028282

Viděl jsem to asi na minutu, ale od boku hádám, že ta hromada maker by šla minimalizovat.citovat

xlnc(24.11.2015 16:14)#028283

Vnořené nejspíš zbytečné cykly For a Do, zbytečné Select, Activate..., nejspíš z 99 % podobné procedury, skoro určitě to jde optimalizovat. Bez striktního slovního zadání chování ale ne.citovat

xlnc(24.11.2015 16:56)#028285

Rozdělil bych to na dvě fáze:
1) načítání CSV - není jasné, jak to děláte (procházení složky, existence více souborů, Open nemusí být ideální, spíš bych doporučil efektivnější variantu přes MS Query a nebo ADO)
2) stávající harakiri, kdy jsem se ztratil u ověřování buňky výše (jinak jsem přesvědčený, že to půjde zkrátit/urychlit na zlomek stávajícího - filtr, pole, hromadné překlopení dat)

A mezi námi, on se najde někdo, kdo to třeba udělá, ale tohle už je drobátko za hranicí free pomoci. Dát dohromady jednoznačné zadání a řešení s vyzkoušením je už o hodině práce určitě.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse