{"id":4720,"date":"2020-07-19T18:57:49","date_gmt":"2020-07-19T16:57:49","guid":{"rendered":"http:\/\/dobretrejdy.com\/?p=4720"},"modified":"2024-08-18T09:15:05","modified_gmt":"2024-08-18T07:15:05","slug":"backtestovani-v-excelu-vba-vi","status":"publish","type":"post","link":"https:\/\/dobretrejdy.com\/?p=4720","title":{"rendered":"Backtestov\u00e1n\u00ed v\u00a0Excelu (VBA) \u2013 VI."},"content":{"rendered":"

\u00a0\u00a0 Vyrobit anal\u00fdzu t\u0159\u00eddenn\u00edho dr\u017een\u00ed akciov\u00e9ho obchodu pomoc\u00ed Excelu je nyn\u00ed ji\u017e t\u00e9m\u011b\u0159 hra\u010dka. M\u011bnit d\u00e9lky dr\u017een\u00ed takov\u00fdch fiktivn\u00edch obchod\u016f je ji\u017e hra\u010dkou tak\u00e9, toto v\u0161echno bylo pops\u00e1no v minul\u00fdch \u010dl\u00e1nc\u00edch p\u0159i postupn\u00e9m pozn\u00e1v\u00e1n\u00ed, jak funguje z\u00e1kladn\u00ed logika a psan\u00ed VBA skript\u016f. Na p\u011btilet\u00fdch sta\u017een\u00fdch datech z Yahoo.finance jsem toto prov\u00e1d\u011bl na akciov\u00e9m titulu Goldman Sachs (GS). Prozat\u00edm tomu ale op\u011bt n\u011bco chyb\u00ed. Ve sv\u00fdch uk\u00e1zkov\u00fdch excelech, kter\u00e9 jsou k dispozici ke sta\u017een\u00ed, jsem ji\u017e m\u011bl data ve sv\u00e9m excelovsk\u00e9m se\u0161itu sta\u017eena a p\u0159ipravena k testov\u00e1n\u00ed a tato data za\u010d\u00ednala v p\u011btilet\u00e9 historii v n\u011bjak\u00e9m n\u00e1hodn\u00e9m historick\u00e9m okam\u017eiku, ani ji\u017e dokonce nev\u00edm, pro\u010d je to zrovna 6.7.2015 a nikoliv n\u011bjak\u00e9 jin\u00e9 datum. Pravd\u011bpodobn\u011b bych tak\u00e9 neza\u010dal obchodovat v n\u011bjak\u00e9m chaoticky vybran\u00e9m dni, ale volil bych (u krat\u0161\u00edch period nap\u0159\u00edklad) n\u011bjak\u00e9 pevn\u00e9 dny v t\u00fddnu. P\u011btidenn\u00ed obchody bych patrn\u011b za\u010d\u00ednal v pond\u011bl\u00ed a ukon\u010doval je v p\u00e1tek, dvoudenn\u00ed obchody bych mohl zkou\u0161et nap\u0159\u00edklad od ka\u017ed\u00e9ho pond\u011bl\u00ed do \u00fater\u00fd nebo b\u011bhem \u010dtvrtka a p\u00e1tku atd. Nav\u00edc jsem si po\u0159\u00eddil zdarma tato data z tohoto voln\u00e9ho zdroje v \u201eamerick\u00e9m form\u00e1tu\u201c dat a m\u00e1m m\u00edsto desetinn\u00fdch \u010d\u00e1rek te\u010dku, toto se pak projev\u00ed zejm\u00e9na p\u0159i dal\u0161\u00ed pot\u0159eb\u011b, abych sta\u017eenou p\u011btiletou datab\u00e1zi pro Goldman Sachs nahradil datab\u00e1z\u00ed jinou, t\u0159eba p\u011btilet\u00fdmi daty Bank of America (BAC) a provedl stejn\u00fd test tak\u00e9 na tomto titulu. V dne\u0161n\u00edm \u010dl\u00e1nku tak budu hledat odpov\u011bdi, kter\u00e9 by mi mohly pomoci vy\u0159e\u0161it pr\u00e1v\u011b tyto probl\u00e9my. Mohl bych si tak naformulovat tento \u00fakol. Na sta\u017een\u00fdch p\u011btilet\u00fdch datech GS budu cht\u00edt testovat dr\u017een\u00ed akci\u00ed, kter\u00e9 po\u0159\u00edd\u00edm ka\u017ed\u00e9 pond\u011bl\u00ed na Open<\/strong> a t\u011bchto akci\u00ed se zbav\u00edm v p\u00e1tek<\/strong> stejn\u00e9ho t\u00fddne na Close<\/strong>, budu tak cht\u00edt tr\u00e1vit v\u00edkendy bez dr\u017een\u00ed akci\u00ed. Tento obchod pak budu cht\u00edt podrobit zji\u0161t\u011bn\u00ed, jak by si v n\u011bm vedly tak\u00e9 jin\u00e9 tituly<\/strong> \u2013 nap\u0159\u00edklad MCD, JNJ, BAC \u010di F. Tuto \u010dinnost bych pak cht\u011bl co nejv\u00edce zautomatizovat pomoc\u00ed VBA. Cel\u00fd excelovsk\u00fd se\u0161it je op\u011bt ke sta\u017een\u00ed i s makry a skripty, kter\u00e9 budou p\u0159edm\u011btem dne\u0161n\u00edho \u010dl\u00e1nku a bude se jednat o dal\u0161\u00ed vylep\u0161en\u00ed excelovsk\u00e9ho souboru z minul\u00e9ho \u010dl\u00e1nku. St\u00e1hnout jej lze z tohoto um\u00edst\u011bn\u00ed<\/a><\/strong><\/span>. <\/span>P\u0159i otev\u0159en\u00ed mus\u00edte „povolit makra“. \u00a0Cel\u00fd probl\u00e9m pak bude v postupn\u00e9m \u0159e\u0161en\u00ed t\u0159\u00ed z\u00e1kladn\u00edch krok\u016f<\/strong>. Nejprve \u00faprava<\/strong> po\u0159\u00edzen\u00fdch dat v listu se\u0161itu pro pr\u00e1ci v \u010desk\u00e9m prost\u0159ed\u00ed Excelu.<\/strong> D\u00e1le \u00faprava, vyt\u0159\u00edd\u011bn\u00ed a kontrola sta\u017een\u00fdch dat<\/strong> pro pot\u0159ebu zadan\u00e9ho \u00fakolu trv\u00e1n\u00ed fiktivn\u00edch obchod\u016f (v obdob\u00ed pouze pond\u011bl\u00ed a\u017e p\u00e1tek) a nakonec proveden\u00ed anal\u00fdzy<\/strong> nejen pro aktu\u00e1ln\u00ed titul, ale tak\u00e9 pro dal\u0161\u00ed vybran\u00e9 tituly<\/strong>.\u00a0 \u00a0\u00a0<\/span><\/p>\n

\n

\u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a01\/ \u00daprava dat pro \u010desk\u00fd Excel<\/strong><\/span><\/h1>\n

\u00a0\u00a0 Sta\u017een\u00ed dat do ozna\u010den\u00e9 bu\u0148ky, nap\u0159\u00edklad „B3“<\/strong>, jsem ji\u017e popisoval v jednom z p\u0159edch\u00e1zej\u00edc\u00edch<\/a><\/strong><\/span> \u010dl\u00e1nku o VBA.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Ze z\u00e1lo\u017eky Data<\/strong> v\u00fdb\u011brem \u201eZ textu\/CVS\u201c<\/strong> na\u010dtu pomoc\u00ed pr\u016fvodce sta\u017een\u00fd soubor s daty pro zadan\u00fd titul ulo\u017een\u00fd v m\u00e9m po\u010d\u00edta\u010di do ozna\u010den\u00e9 bu\u0148ky.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Mohu pak vid\u011bt, po smaz\u00e1n\u00ed sloupc\u016f Adj Close<\/strong> a Volume<\/strong>, data v tomto tvaru podle verze Excelu, kter\u00fd m\u00e1m nyn\u00ed k dispozici. Data jsem samoz\u0159ejm\u011b pro plasti\u010dnost uk\u00e1zky nyn\u00ed zkr\u00e1til na n\u011bkolik \u0159\u00e1dk\u016f. Mohu pak vypozorovat, \u017ee form\u00e1t ve sloupci pro datum je v evropsk\u00e9m form\u00e1tu (sloupec \u201eB\u201c), ale form\u00e1t cenov\u00fdch dat ve vedlej\u0161\u00edch sloupc\u00edch je ve tvaru, kdy desetinn\u00e1 \u010d\u00e1rka<\/strong> je tvo\u0159ena te\u010dkou<\/strong> (oblast sloupc\u016f \u201eC:F\u201c). Takov\u00e9 \u010d\u00edslo ale m\u00e1 verze Excelu neum\u00ed zpracovat, mus\u00edm proto hromadn\u011b prov\u00e9st takovou \u00fapravu, abych tento soubor americk\u00fdch desetinn\u00fdch \u010d\u00edsel p\u0159evedl na evropsk\u00fd form\u00e1t. Hromadnou z\u00e1m\u011bnu te\u010dek za \u010d\u00e1rku provedu dv\u011bma postupn\u00fdmi kroky. Nejd\u0159\u00edve si nadefinuji oblast bun\u011bk, pro kterou chci tuto z\u00e1m\u011bnu vyrobit a pot\u00e9 na t\u00e9to oblasti spust\u00edm proceduru samotn\u00e9 z\u00e1m\u011bny znaku te\u010dka za \u010d\u00e1rku. Pro\u010d si budu definovat n\u011bjakou oblast? Proto\u017ee nev\u00edm, jak\u00e9 \u00fakoly m\u011b budou v m\u00e9m se\u0161itu \u010dekat a jak rozs\u00e1hl\u00e9 datov\u00e9 soubory budu zpracov\u00e1vat. Zad\u00e1n\u00edm oblasti bun\u011bk dynamick\u00fdm zp\u016fsobem pak bude do budoucna jedno, jestli budu vym\u011b\u0148ovat te\u010dku za \u010d\u00e1rku na dvaceti \u0159\u00e1dc\u00edch nebo na p\u011bti tis\u00edci \u0159\u00e1dc\u00edch. M\u016fj skript se zadanou dynamickou oblast\u00ed podle po\u010dtu zapln\u011bn\u00fdch \u0159\u00e1dk\u016f automaticky rozpozn\u00e1 velikost oblasti a tuto potom zpracuje a j\u00e1 nemus\u00edm o ni\u010dem p\u0159em\u00fd\u0161let. Jak je to my\u0161leno, je patrn\u00e9 na obr\u00e1zku n\u00ed\u017ee.<\/span><\/p>\n

\"\" <\/span><\/p>\n

\u00a0\u00a0 Ka\u017ed\u00e1 oblast bun\u011bk<\/strong>, kterou si ve sv\u00e9m se\u0161itu vyberu, m\u00e1 jasnou topografii<\/strong>. Je vymezena bu\u0148kou v\u00a0lev\u00e9m horn\u00edm rohu<\/strong> (na obr\u00e1zku \u201eC4\u201c) (1)<\/strong> <\/span>a bu\u0148kou v\u00a0prav\u00e9m spodn\u00edm rohu<\/strong> (v m\u00e9m obr\u00e1zku \u201eF27\u201c) (2)<\/strong><\/span>. Pokud bych si cht\u011bl takovou pevnou oblast zapsat pomoc\u00ed VBA, tak by pro oblast \u201eC4:F27\u201c byl z\u00e1pis form\u00e1tem Cells takov\u00fd: Oblast=DataSheet.Cells (Cells (4,2), Cells(6,27))<\/em>. Takto bych \u0159ekl sv\u00e9mu po\u010d\u00edta\u010di, aby do budoucna po\u010d\u00edtal s takto vybranou oblast\u00ed bun\u011bk. J\u00e1 ale nev\u00edm, jak bude v budoucnosti tato oblast velik\u00e1, proto\u017ee netu\u0161\u00edm, jestli budu zpracov\u00e1vat p\u011btilet\u00e1 data o tis\u00edci \u0159\u00e1dc\u00edch nebo t\u00fddenn\u00ed data o sedmi \u0159\u00e1dc\u00edch. Toto lze ale jednodu\u0161e za\u0159\u00eddit. V minul\u00e9m \u010dl\u00e1nku jsem popisoval jedno\u0159\u00e1dkov\u00fd skript, kter\u00fd um\u00ed vyhledat posledn\u00ed pln\u00fd \u0159\u00e1dek<\/strong> a \u010d\u00edslo takov\u00e9ho \u0159\u00e1dku pak nabude hodnota n\u011bjak\u00e9 jednodu\u0161e p\u0159eddefinovan\u00e9 prom\u011bnn\u00e9, nazvu si ji t\u0159eba PosledniRadek<\/strong>. Pokud pot\u00e9 nam\u00edsto pevn\u00e9ho \u010d\u00edsla \u0159\u00e1dku u bu\u0148ky v prav\u00e9m doln\u00edm rohu (2)<\/strong> <\/span>v z\u00e1pise pomoc\u00ed Cells uvedu prom\u011bnnou PosledniRadek a ta bude \u010d\u00edslem posledn\u00edho pln\u00e9ho \u0159\u00e1dku, budu m\u00edt v\u017edy zaji\u0161t\u011bno, \u017ee vyb\u00edr\u00e1m a nastavuji ke zpracov\u00e1n\u00ed celou moment\u00e1ln\u011b zapln\u011bnou oblast. Jenom pro dokreslen\u00ed dynamiky oblasti mohu tak\u00e9 zjistit hodnotu posledn\u00edho zapln\u011bn\u00e9ho sloupce a celou oblast definovat pomoc\u00ed prav\u00e9 spodn\u00ed bu\u0148ky slo\u017een\u00e9 ve form\u00e1tu Cells s prom\u011bnn\u00fdch vyjad\u0159uj\u00edc\u00edch posledn\u00ed pln\u00fd \u0159\u00e1dek a posledn\u00ed pln\u00fd sloupec a oblast m\u016f\u017ee b\u00fdt libovoln\u011b dlouh\u00e1 a libovoln\u011b \u0161irok\u00e1\u2026Jak tedy bude vypadat skript pro makro nahrazuj\u00edc\u00ed desetinnou te\u010dku za desetinnou \u010d\u00e1rku s definic\u00ed takov\u00e9 dynamicky se p\u0159izp\u016fsobuj\u00edc\u00ed oblasti bun\u011bk.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Makro jsem si nazval CarkaZaTecku<\/strong>, abych v\u011bd\u011bl, co mi skript bude vlastn\u011b \u0159e\u0161it (1)<\/strong><\/span>. Nadefinoval jsem si t\u0159i prom\u011bnn\u00e9, kter\u00e9 budu ve skriptu pou\u017e\u00edvat instrukcemi Dim<\/span> (2)<\/span><\/strong>. Prvn\u00ed prom\u011bnn\u00e1 definuje list Data jako list se\u0161itu Worksheet, na kter\u00e9m se budu pohybovat. Druh\u00e1 prom\u011bnn\u00e1 TabulkaTecky<\/strong> je deklarov\u00e1na jako Range<\/strong><\/span><\/em>, znamen\u00e1 to, \u017ee tento objekt se bude chovat jako oblast bun\u011bk m\u00e9ho listu, to je prvn\u00ed novinka tohoto \u010dl\u00e1nku z pohledu dosavadn\u00edch znalost\u00ed jazyka VBA. T\u0159et\u00ed prom\u011bnn\u00e1 PlnyRadek<\/strong> je ozn\u00e1men\u00ed, \u017ee tato prom\u011bnn\u00e1 bude \u010d\u00edslo a budu ji n\u00e1sledn\u011b vyu\u017e\u00edvat jako \u010d\u00edslo posledn\u00edho zapln\u011bn\u00e9ho \u0159\u00e1dku m\u00e9ho listu Data, kde m\u00e1m sta\u017eenou datab\u00e1zi historick\u00fdch dat. N\u00e1sledn\u011b jsem p\u0159\u00edkazem Set<\/strong><\/span><\/em> nastavil, \u017ee list, kter\u00fd jsem si v excelovsk\u00e9m se\u0161itu ozna\u010dil na jeho ou\u0161ku jako \u201eData\u201c, je listem, na kter\u00e9m hodl\u00e1m prov\u00e1d\u011bt n\u011bjak\u00e9 \u010dinnosti (3).<\/strong><\/span> T\u00edmto m\u00e1m nastaveno v\u0161e, co pot\u0159ebuji. Dal\u0161\u00ed pokra\u010dov\u00e1n\u00ed skriptu je n\u00e1sleduj\u00edc\u00ed.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Nyn\u00ed si chci, pro pot\u0159eby zji\u0161\u0165ov\u00e1n\u00ed velikosti m\u00e9 zpracov\u00e1van\u00e9 datab\u00e1ze, zjistit, jak\u00e9 \u010d\u00edslo m\u00e1 m\u016fj posledn\u00ed zapln\u011bn\u00fd \u0159\u00e1dek. Tuto proceduru zachycenou do jedno\u0159\u00e1dkov\u00e9ho skriptu jsem popisoval v minul\u00e9m \u010dl\u00e1nku<\/a><\/strong><\/span>, nebudu tedy nic dal\u0161\u00edho k\u00a0tomu uv\u00e1d\u011bt. Prozkoum\u00e1v\u00e1m odspodu m\u016fj excelovsk\u00fd list ve druh\u00e9m sloupci, abych na\u0161el prvn\u00ed plnou bu\u0148ku, na kterou naraz\u00edm a t\u00e9to hodnot\u011b se rovn\u00e1 prom\u011bnn\u00e1 PlnyRadek (4)<\/span><\/strong>. Podle obr\u00e1zku s\u00a0daty v\u00fd\u0161e m\u00e1 nyn\u00ed \u010d\u00edslo 27, proto\u017ee na tomto \u0159\u00e1dku se ve druh\u00e9m sloupci nach\u00e1zej\u00ed posledn\u00ed data, konkr\u00e9tn\u011b s\u00a0datem 10.7.2019. P\u0159\u00edkazem Set<\/strong><\/em><\/span> pak mohu \u201enasetovat\u201c (nastavit) oblast \u2013 prom\u011bnnou TabulkaTecky<\/strong>, kterou chci podrobit zm\u011bn\u011b te\u010dky za \u010d\u00e1rku tak, jak jsem popisoval v\u00fd\u0161e (5)<\/strong><\/span>. V m\u00e9m p\u0159\u00edpad\u011b jde o oblast \u201eC4:F27\u201c, j\u00e1 m\u00e1m v\u0161ak bu\u0148ku „C4“ nastavenu pevn\u011b (proto\u017ee na n\u00ed za\u010d\u00ednaj\u00ed data) na hodnot\u011b Cells (4,3) a bu\u0148ku „F27“ m\u00e1m definov\u00e1nu ve form\u00e1tu Cells jako Cells (PlnyRadek, 6).<\/em> Jak\u00e1 bude hodnota pro PlnyRadek p\u0159i dal\u0161\u00ed datov\u00e9 \u0159ad\u011b nev\u00edm, m\u00e1m v\u0161ak zaji\u0161t\u011bno, \u017ee hodnota PlnyRadek bude tak velik\u00e1, jak dlouh\u00e1 bude m\u00e1 datov\u00e1 \u0159ada.<\/span><\/p>\n

\u00a0\u00a0 Vyrobit z malebn\u00e9 severomoravsk\u00e9 vesni\u010dky \u201eB\u00fdkov\u201c jihomoravsk\u00fd hrad \u201eB\u00edtov\u201c je pomoc\u00ed VBA opravdu jednoduch\u00e9. I p\u0159i velmi jemn\u00e9m googlen\u00ed lze nal\u00e9zt mnoho VBA skript\u016f, kter\u00e9 um\u00ed zam\u011b\u0148ovat znaky ve slovech pomoc\u00ed funkce Replacement, kter\u00e1 funguje tak\u00e9 jako implementovan\u00e1 funkce v klasick\u00e9m Excelu. Probl\u00e9mem ov\u0161em je, \u017ee takov\u00e9 z\u00e1m\u011bny znak\u016f na za\u010d\u00e1tku, konci, uprost\u0159ed\u2026prost\u011b kdekoliv na vybran\u00fdch m\u00edstech \u0159et\u011bzce znak\u016f velmi skv\u011ble a jednodu\u0161e funguje u textov\u00fdch tvar\u016f (String), ale nahradit \u201en\u011bco n\u011b\u010d\u00edm\u201c v desetinn\u00e9m \u010d\u00edsle je opravdu v\u00fdzva. V tomto \u010dl\u00e1nku<\/a><\/strong><\/span><\/span> jsem v odd\u00edle \u201ePo\u0159\u00edzen\u00ed dat\u201c popisoval, jak lze zam\u011bnit desetinnou te\u010dku za \u010d\u00e1rku manu\u00e1ln\u011b pomoc\u00ed n\u00e1stroje \u201eNahradit\u201c spou\u0161t\u011bn\u00e9ho z li\u0161ty n\u00e1stroj\u016f Excelu. Cel\u00e1 procedura spo\u010d\u00edvala v \u010dinnosti v\u00fdb\u011bru oblasti bun\u011bk, kde chci prov\u00e9st takovou znakovou z\u00e1m\u011bnu a pomoc\u00ed formul\u00e1\u0159e Excelu Naj\u00edt\/Nahradit takov\u00fd \u00fakon potvrdit. Funguje to bezchybn\u011b. Nyn\u00ed ale chci takovou proceduru zautomatizovat a nemohu naj\u00edt relevantn\u00ed \u0159e\u0161en\u00ed, proto se nab\u00edz\u00ed jednoduch\u00e1 pomoc. Zkus\u00edm si takovou proceduru zaznamenat jako makro a pot\u00e9 si takov\u00fd vygenerovan\u00fd skript prohl\u00e9dnu, jak vypad\u00e1 a jak bych jeho \u010d\u00e1sti mohl vyu\u017e\u00edt. O tom, jak zaznamenat makro jsem psal v prvn\u00edm \u010dl\u00e1nku o VBA,<\/strong><\/span><\/a><\/span> tak\u017ee nen\u00ed obt\u00ed\u017en\u00e9 si jej ud\u011blat pr\u00e1v\u011b na t\u00e9to procedu\u0159e a pot\u00e9 zakomponovat do sv\u00e9ho skriptu.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Nadeklarovanou a definovanou oblast dat TabulkaTecky<\/strong>, kter\u00e1 je tvo\u0159ena bu\u0148kami, kde se vyskytuj\u00ed data, kter\u00e1 chci zpracovat, jednodu\u0161e vyberu p\u0159\u00edkazem .Select<\/em> (6)<\/span><\/strong>. Skript ozna\u010den\u00fd (7)<\/strong><\/span> je pak okop\u00edrovan\u00e1 a upraven\u00e1 \u010d\u00e1st z\u00e1znamu makra pro dan\u00fd \u201ezam\u011b\u0148ovac\u00ed \u00fakon\u201c a nezb\u00fdv\u00e1 ne\u017e ji s nyn\u011bj\u0161\u00ed \u00farovn\u00ed znalosti VBA respektovat. Str\u00e1vil jsem zna\u010dnou d\u00e1vku \u010dasu zkoum\u00e1n\u00edm, pro\u010d dan\u00fd z\u00e1znam tak\u00e9 nefungoval, proto\u017ee tato \u010d\u00e1st skriptu opravdu znamen\u00e1 \u201e…vym\u011b\u0148 znak te\u010dky za znak \u010d\u00e1rky.<\/em>..\u201c ne\u017e jsem zam\u011bnil znak \u010d\u00e1rka v \u010derven\u00e9m kole\u010dku tak\u00e9 za znak te\u010dky. P\u0159esto\u017ee to vypad\u00e1 divn\u011b, tak tato \u010d\u00e1st skriptu mi vlastn\u011b \u0159\u00edk\u00e1 \u201e\u2026vym\u011b\u0148 te\u010dku za te\u010dku…<\/em>\u201c, ale skript rovn\u011b\u017e p\u0159edpokl\u00e1d\u00e1, \u017ee zadan\u00fdm m\u011bn\u011bn\u00fdm \u00fatvarem je text, aby jej posl\u00e9ze m\u016fj \u010desk\u00fd Excel p\u0159e\u010detl jako \u010d\u00edslo s desetinnou \u010d\u00e1rkou\u2026t\u011bch hodin zkou\u0161en\u00ed\u2026:c). Nicm\u00e9n\u011b tento skript je velmi elegantn\u00ed a funguje bezchybn\u011b. Posledn\u00ed \u0159\u00e1dek skriptu pak upraven\u00fdm \u010d\u00edsl\u016fm d\u00e1v\u00e1 stejn\u00fd form\u00e1t \u010d\u00edsla s dv\u011bma desetinn\u00fdmi m\u00edsty (8)<\/strong><\/span>, takov\u00e1 \u00faprava form\u00e1tu bu\u0148ky je pak standardn\u00ed a jednoduchou procedurou, kterou lze nal\u00e9zt na ka\u017ed\u00e9m z\u00e1kladn\u00edm webu o VBA, nebudu se jeho syntax\u00ed zab\u00fdvat. Spu\u0161t\u011bn\u00edm makra pak mohu vid\u011bt celou \u00fapravu m\u00fdch sta\u017een\u00fdch dat takto.\u00a0 \u00a0<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Upravenou tabulku dat s\u00a0desetinnou \u010d\u00e1rkou pak mohu za\u010d\u00edt zpracov\u00e1vat podle zad\u00e1n\u00ed, kter\u00e9 jsem si vyty\u010dil, tedy analyzovat profitabilitu dr\u017een\u00ed akciov\u00e9ho titulu mezi pond\u011bln\u00edm Open a p\u00e1te\u010dn\u00edm Close. Toto ji\u017e m\u016f\u017ee evokovat budouc\u00ed testov\u00e1n\u00ed nap\u0159\u00edklad weeklys op\u010dn\u00edch kontrakt\u016f po\u0159\u00edzen\u00fdch v\u00a0pond\u011bl\u00ed s\u00a0expirac\u00ed v\u00a0p\u00e1tek t\u00e9ho\u017e t\u00fddne. Jak na to?<\/span><\/p>\n

Dopl\u0148uji n\u00e1zvy dn\u016f<\/strong><\/span><\/h1>\n

\"\"<\/p>\n

\u00a0\u00a0 P\u0159esn\u011b takovou zm\u011bnu form\u00e1tu datumu na n\u00e1zev dne t\u00fddne si chci nechat zan\u00e9st do sloupce \u201eH\u201c pro ka\u017ed\u00e9 datum v m\u00e9 sta\u017een\u00e9 a upraven\u00e9 datab\u00e1zi, tedy do druh\u00e9ho sloupce od posledn\u00edho zapln\u011bn\u00e9ho sloupce m\u00e9 existuj\u00edc\u00ed tabulky. Ud\u011bl\u00e1m to tak, \u017ee budu pokra\u010dovat v rozepsan\u00e9m skriptu, kter\u00fdm jsem zam\u011bnil desetinn\u00e9 te\u010dky za \u010d\u00e1rky a vybav\u00edm jej dal\u0161\u00edmi \u0159\u00e1dky skriptu, kter\u00e9 mi takovou z\u00e1le\u017eitost za\u0159\u00edd\u00ed. \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span><\/p>\n

\"\"<\/span><\/p>\n

\u00a0\u00a0 Je vid\u011bt, \u017ee posledn\u00edm \u00fakonem, kter\u00fd jsem popsal v\u00fd\u0161e, je zm\u011bna form\u00e1tu \u010d\u00edsel na \u010d\u00edsla s\u00a0dv\u011bma desetinn\u00fdmi m\u00edsty (1)<\/strong> <\/span>a tady navazuji a pokra\u010duji v\u00a0tvorb\u011b dal\u0161\u00edho skriptu. Nyn\u00ed si mohu nadeklarovat dal\u0161\u00ed prom\u011bnn\u00e9<\/strong>, kter\u00e9 budu pot\u0159ebovat (2)<\/strong><\/span>. Prom\u011bnn\u00e1 Datum<\/strong> bude m\u00edt tvar As Date<\/strong><\/em><\/span> a bude postupn\u00fdm nositelem hodnoty ka\u017ed\u00e9ho datumu, kter\u00fd chci p\u0159epsat na n\u00e1zev dne v\u00a0t\u00fddnu. Prom\u011bnn\u00e1 AktualniRadek<\/strong> bude jednoduch\u00e9 \u010d\u00edslo a bude znamenat prvn\u00ed \u0159\u00e1dek pro zpracov\u00e1n\u00ed dat v\u00a0pozd\u011bj\u0161\u00ed cyklick\u00e9 funkci Do While\u2026Loop<\/strong><\/em><\/span>, kterou jsem ji\u017e poznal v\u00a0p\u0159edch\u00e1zej\u00edc\u00edch \u010dl\u00e1nc\u00edch. \u00a0Prom\u011bnn\u00e1 DenvTydnu<\/strong> bude nadeklarov\u00e1na As String<\/strong><\/em><\/span>, tedy bude nositelem obsahu ve tvaru textu, konkr\u00e9tn\u011b pr\u00e1v\u011b n\u00e1zvu jednotliv\u00e9ho dne v t\u00fddnu. Prom\u011bnn\u00e1 PlnySloupec<\/strong> jako Integer<\/strong><\/em><\/span> ponese hodnotu prvn\u00edho pr\u00e1zdn\u00e9ho sloupce, co\u017e op\u011bt nen\u00ed nic nov\u00e9ho. Jej\u00ed hodnotu si ihned po deklaraci nov\u00fdch prom\u011bnn\u00fdch na\u010dtu instrukc\u00ed v \u0159\u00e1dku ozna\u010den\u00e9m (3)<\/strong><\/span>. Takto nadeklarovan\u00e9 prom\u011bnn\u00e9 podrob\u00edm cyklick\u00e9mu posouv\u00e1n\u00ed po jednotliv\u00fdch \u0159\u00e1dc\u00edch, abych postupn\u011b na\u010d\u00edtal jejich hodnoty, tyto zpracov\u00e1val a zapisoval tyto zpracovan\u00e9 hodnoty jako v\u00fdsledky do p\u0159\u00edslu\u0161n\u00e9ho sloupce. V\u00fdsledkem pak budou po\u017eadovan\u00e9 z\u00e1pisy n\u00e1zvu dne v t\u00fddnu do \u0159\u00e1dku pro ka\u017ed\u00e9 konkr\u00e9tn\u00ed datum.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 Prvn\u00ed datum ke zpracov\u00e1n\u00ed se nach\u00e1z\u00ed na \u010dtvrt\u00e9m \u0159\u00e1dku a m\u00e1 hodnotu 6.6.2019, proto je hodnota prom\u011bnn\u00e9 AktualniRadek<\/strong> napevno \u010dty\u0159ka (1)<\/span><\/strong>. Spu\u0161t\u011bn\u00ed cyklu Do While\u2026Loop<\/strong><\/em><\/span> bude zastaveno spln\u011bn\u00edm podm\u00ednky, \u017ee se objev\u00ed na m\u00edst\u011b sloupce s\u00a0datumy (druh\u00fd sloupec \u201eB\u201c) prvn\u00ed pr\u00e1zdn\u00e1 bu\u0148ka (5)<\/strong><\/span>. Pokud tomu tak nen\u00ed, prob\u00edh\u00e1 zpracov\u00e1n\u00ed po jednotliv\u00fdch \u0159\u00e1dc\u00edch, kde hodnota konkr\u00e9tn\u00edho data je na\u010dtena do prom\u011bnn\u00e9 Datum<\/strong>, pro prvn\u00ed cyklus, kdy prom\u011bnn\u00e1 AktualniRadek = 4 je tak vybr\u00e1na bu\u0148ka Datum = DataSheet.Cells(4, 2)<\/em>, tedy 6.6.2019 (6<\/strong>)<\/strong><\/span>. Prom\u011bnn\u00e1 DenvTydnu<\/strong> bude m\u00edt form\u00e1t DenvTydnu = Format(Datum, „DDDD“)<\/em>, tedy uprav\u00ed hodnotu prom\u011bnn\u00e9 Datum (prvn\u00ed v\u00fdraz v\u00a0z\u00e1vorce) na form\u00e1t \u201eDDDD\u201c stejn\u011b, jako to d\u011bl\u00e1 klasick\u00fd excelovsk\u00fd vzorec (7)<\/strong><\/span>. Pro prvn\u00ed cyklus, kdy je datum hodnota 6.6.2019, pak po takov\u00e9m form\u00e1tov\u00e1n\u00ed bude hodnotou prom\u011bnn\u00e9 DenvTydnu v\u00fdraz \u201e\u010dtvrtek\u201c<\/strong>. Takto naform\u00e1tovanou prom\u011bnnou DenvTydnu (\u201e\u010dtvrtek\u201c) pak zap\u00ed\u0161u jako v\u00fdsledek do sloupce, kter\u00fd je druh\u00fdm vpravo<\/strong> od posledn\u00edho zapln\u011bn\u00e9ho sloupce, kter\u00fd reprezentuje hodnota prom\u011bnn\u00e1 PlnySloupec +2 (8)<\/strong><\/span>. V m\u00e9m konkr\u00e9tn\u00edm p\u0159\u00edpad\u011b prvn\u00edho cyklu se v\u00fdraz „\u010dtvrtek“ zap\u00ed\u0161e do sloupce \u201eH\u201c do bu\u0148ky \u201eH4\u201c. Po t\u011bchto transakc\u00edch p\u0159i\u010dtu jedni\u010dku<\/strong> k prom\u011bnn\u00e9 AktualniRadek (9)<\/span>,<\/strong> aby se cyklus mohl po instrukci Loop<\/strong><\/em><\/span> vr\u00e1tit na \u0159\u00e1dek Do While<\/strong><\/em><\/span> a pokra\u010doval zpracov\u00e1n\u00edm dal\u0161\u00edho \u0159\u00e1dku. Ukon\u010den\u00ed cyklu vy\u010derp\u00e1n\u00edm v\u0161ech datum\u016f k p\u0159episu na n\u00e1zev dne v t\u00fddnu se makro ukon\u010d\u00ed a vysko\u010d\u00ed ohla\u0161ovac\u00ed okno s upozorn\u011bn\u00edm na konec zpracov\u00e1n\u00ed (10)<\/strong><\/span>. Mohu pak pozorovat tento obr\u00e1zek.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Odkliknut\u00edm zadan\u00e9ho okna mohu vypozorovat, \u017ee m\u00e1m datab\u00e1zi s \u010d\u00edsly s desetinnou \u010d\u00e1rkou a s p\u0159eveden\u00fdmi datumy na n\u00e1zvy dny v t\u00fddnu. Tomuto makru pak na listu Data p\u0159i\u0159ad\u00edm tla\u010d\u00edtko, abych mohl \u00fapravu dat l\u00e9pe ovl\u00e1dat. Pro zaj\u00edmav\u011bj\u0161\u00ed grafiku mohu form\u00e1t tla\u010d\u00edtka vyb\u00edrat tak\u00e9 nap\u0159\u00edklad z karty Vlo\u017een\u00ed<\/strong> a vybrat z \u0161irok\u00e9 palety tvar\u016f a barevn\u00fdch proveden\u00ed.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 M\u00e1 volba padla na obd\u00e9ln\u00edk se zakulacen\u00fdmi rohy v modr\u00e9m proveden\u00ed a se z\u00e1pisem textu do tla\u010d\u00edtka, kter\u00fd popisuje akci, kterou bude spou\u0161t\u011bt. P\u0159i\u0159azen\u00ed makra k tla\u010d\u00edtku pak provedu standardn\u011b kliknut\u00edm prav\u00fdm tla\u010d\u00edtkem my\u0161i na plochu tla\u010d\u00edtka.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Volbou \u201eP\u0159i\u0159adit makro\u2026\u201c<\/strong> pak z nab\u00eddky vytvo\u0159en\u00fdch maker vyberu po\u017eadovan\u00e9, toto jsem ji\u017e popisoval v \u010dl\u00e1nku o psan\u00ed prvn\u00edho makra. Mohu pak na listu Data pozorovat v\u00fdsledek takov\u00e9ho \u201etla\u010d\u00edtkov\u00e9ho \u00fakonu\u201c (tla\u010d\u00edtko pozd\u011bji p\u0159enesu na list Start)<\/span><\/p>\n

\"\" \u00a0 \u00a0<\/span><\/p>\n

\u00a0\u00a0 Z\u00edsk\u00e1v\u00e1n\u00ed n\u00e1zvu dne v t\u00fddnu, jako p\u0159\u00edznak do \u0159\u00e1dku s datem a cenami v m\u00e9 datov\u00e9 tabulce, bude vhodn\u00e9 pr\u00e1v\u011b pro tuto anal\u00fdzu, kdy hled\u00e1m obchody podle n\u00e1zvu jednotliv\u00fdch dn\u016f v t\u00fddnu, mohu si v\u0161ak takov\u00e9 p\u0159\u00edznaky jednotliv\u00fdch datum\u016f (a \u010dasu obecn\u011b) roz\u0161\u00ed\u0159it nap\u0159\u00edklad o \u0159\u00e1dek skriptu, kter\u00fd mi p\u0159i\u0159ad\u00ed ke ka\u017ed\u00e9mu datu t\u0159eba po\u0159adov\u00fd den v m\u011bs\u00edci a mohu pak vyhodnocovat mechanick\u00e9 obchody, kdy vstupuji do obchodu prvn\u00ed den v m\u011bs\u00edci a chci z n\u011bj vystoupit dvac\u00e1t\u00fd den v m\u011bs\u00edci, toto bych za\u0159\u00eddil skriptem, kter\u00fd by mi prom\u011bnnou Datum zpracoval t\u00edmto p\u0159\u00edkazem =Day(Datum)<\/em>, jeho\u017e v\u00fdsledkem je po\u0159adov\u00e9 \u010d\u00edslo dne v\u00a0m\u011bs\u00edci (hodnota 1 \u2013 31), stejn\u011b tak mohu vy\u0159adit z\u00a0tabulky cel\u00e9 m\u011bs\u00edce pomoc\u00ed skriptu =Month(Datum)<\/em>, jeho\u017e v\u00fdsledkem je po\u0159adov\u00e9 \u010d\u00edslo m\u011bs\u00edce hodnota (1-12) atd.\u2026. \u00a0<\/span><\/p>\n

\n

2\/ T\u0159\u00edd\u00edm a kontroluji<\/strong><\/span><\/h1>\n

\u00a0\u00a0 Takto p\u0159ipravenou tabulku s datovou \u0159adou upravenou pro \u010deskou lokalizaci Excelu a s vygenerovan\u00fdmi n\u00e1zvy dn\u016f v t\u00fddnu pak mus\u00edm podrobit dal\u0161\u00ed \u00faprav\u011b, proto\u017ee m\u011b zaj\u00edmaj\u00ed obchody, ve kter\u00fdch se bude jednat o vstup pouze v ka\u017ed\u00e9 pond\u011bl\u00ed a v\u00fdstup pouze v p\u00e1tek stejn\u00e9ho t\u00fddne. Mus\u00edm proto z takov\u00e9 datov\u00e9 tabulky odstranit v\u0161echny ostatn\u00ed dny, kter\u00fdch se nebude t\u00fdkat \u017e\u00e1dn\u00e1 obchodn\u00ed aktivita. Budu tedy cht\u00edt za\u0159\u00eddit, aby v m\u00e9 tabulce z\u016fstaly pouze \u0159\u00e1dky reprezentuj\u00edc\u00ed pond\u011blky a p\u00e1tky a tyto potom podrob\u00edm anal\u00fdze m\u00e9ho zam\u00fd\u0161len\u00e9ho obchodu. Pro\u010d takto slo\u017eit\u011b a pro\u010d prost\u011b nepou\u017e\u00edt k vyb\u00edr\u00e1n\u00ed dn\u016f pro vstupy a v\u00fdstupy z obchod\u016f \u0159\u00e1dky, ve kter\u00fdch je naps\u00e1no \u201epond\u011bl\u00ed\u201c a \u201ep\u00e1tek\u201c, to by ur\u010dit\u011b bylo mo\u017en\u00e9 n\u011bjak pomoc\u00ed VBA skriptu napsat. Ano, to by mo\u017en\u00e9 bylo, ale prakticky by to znamenalo, \u017ee by musel ka\u017ed\u00fd t\u00fdden m\u00e9 sta\u017een\u00e9 p\u011btilet\u00e9 datov\u00e9 \u0159ady m\u00edt pond\u011bl\u00ed a p\u00e1tek, a takto to jednodu\u0161e nen\u00ed. Exchange Holidays, nejr\u016fzn\u011bj\u0161\u00ed volna a sv\u00e1tky nebo v\u00fdpadky provozu burzy v dob\u011b katastrof nebo technick\u00fdch probl\u00e9m\u016f zp\u016fsobuj\u00ed, \u017ee ka\u017ed\u00fd t\u00fdden, kter\u00fd je sou\u010d\u00e1st\u00ed m\u00fdch sta\u017een\u00fdch historick\u00fdch dat, prost\u011b pond\u011bl\u00ed a p\u00e1tek nemus\u00ed m\u00edt a takto chyb\u011bj\u00edc\u00ed dny by zp\u016fsobily chaos v testov\u00e1n\u00ed a v kone\u010dn\u00e9m v\u00fdsledku. Mus\u00edm proto \u00fapravu smaz\u00e1n\u00ed neaktivn\u00edch dn\u016f je\u0161t\u011b podrobit kontrole, zda je datov\u00e1 \u0159ada opravdu p\u0159ipravena na bezchybn\u00e9 testov\u00e1n\u00ed. Na\u0161t\u011bst\u00ed se to bude d\u00e1t za\u0159\u00eddit jedn\u00edm makrem, tedy nakonec jedn\u00edm stisknut\u00edm dal\u0161\u00edho vytvo\u0159en\u00e9ho tla\u010d\u00edtka. \u00a0<\/span><\/p>\n

\u00a0\u00a0 Zah\u00e1jen\u00ed procedury \u010di\u0161t\u011bn\u00ed datov\u00e9 \u0159ady o nevhodn\u00e9 nebo nepot\u0159ebn\u00e9 v\u00fdrazy mohu za\u010d\u00edt vytvo\u0159en\u00edm menu<\/strong>, ze kter\u00e9ho mohu tyto vyb\u00edran\u00e9 a mazan\u00e9 v\u00fdrazy vyb\u00edrat<\/strong>. Za\u010dnu t\u00edm, \u017ee si na n\u011bjak\u00e9m m\u00edst\u011b m\u00e9ho se\u0161itu vytvo\u0159\u00edm jejich seznam, j\u00e1 jsem nap\u0159\u00edklad zvolil nov\u00fd List1<\/strong>, kter\u00fd nebudu zat\u011b\u017eovat \u017e\u00e1dn\u00fdmi VBA skripty. Do tohoto listu si do sloupce vep\u00ed\u0161u n\u00e1zvy dn\u016f, kter\u00e9 budu cht\u00edt ze sv\u00e9 datab\u00e1ze odstranit. \u00a0\u00a0<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Do sloupce \u201eA\u201c<\/strong> na tomto Listu1 jsem si vypsal n\u00e1zvy dn\u016f, kter\u00e9 se mohou objevovat v m\u00e9 datov\u00e9 \u0159ad\u011b po form\u00e1tov\u00e1n\u00ed data na n\u00e1zev dne v t\u00fddnu. Navolil jsem tak\u00e9 mo\u017enost \u201e-nic-\u201e,<\/strong> kter\u00e1 znamen\u00e1, \u017ee nebudu cht\u00edt mazat \u017e\u00e1dn\u00fd den v t\u00fddnu a budu cht\u00edt prov\u00e1d\u011bt pouze kontrolu datov\u00e9 tabulky. Pot\u00e9 se vr\u00e1t\u00edm na list Start.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Na tomto listu Start, kter\u00fd je jakousi p\u0159\u00edstrojovou deskou m\u00e9ho se\u0161itu se sta\u017een\u00fdmi a upraven\u00fdmi daty, zvol\u00edm kliknut\u00edm na bu\u0148ku m\u00edsto, kde budu cht\u00edt m\u00edt zobrazeno rozbalovac\u00ed menu s hledan\u00fdmi v\u00fdrazy ur\u010den\u00fdmi k odstra\u0148ov\u00e1n\u00ed, j\u00e1 vol\u00edm dal\u0161\u00ed p\u0159ipraven\u00e9 pole v roz\u0161\u00ed\u0159en\u00e9 tabulce zad\u00e1v\u00e1n\u00ed nejr\u016fzn\u011bj\u0161\u00edch hodnot, tedy bu\u0148ku \u201eC13\u201c.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Pot\u00e9 na p\u00e1su karet vol\u00edm z\u00e1lo\u017eku \u201eData\u201c<\/strong> a vyberu n\u00e1stroj \u201eOv\u011b\u0159en\u00ed dat\u201c<\/strong> a otev\u00edr\u00e1m polo\u017eku \u201eOv\u011b\u0159en\u00ed dat\u2026\u201c<\/strong>, tato volba vyvol\u00e1 zobrazen\u00ed okna nab\u00eddky<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 V\u00a0tomto okn\u011b na z\u00e1lo\u017ece \u201eNastaven\u00ed\u201c (1)<\/span><\/strong> v\u00a0nab\u00eddce Ov\u011b\u0159ovac\u00ed krit\u00e9ria vyb\u00edr\u00e1m ze seznamu \u201ePovolit\u201c<\/strong> volbu \u201eSeznam\u201c (2)<\/span>.<\/strong> V\u00a0okn\u011b \u201eZdroj\u201c<\/strong> pak zvol\u00edm oblast, kde se nach\u00e1z\u00ed m\u016fj seznam dn\u016f ur\u010den\u00fdch k\u00a0maz\u00e1n\u00ed (3),<\/strong><\/span> j\u00e1 jej m\u00e1m na Listu1 v bu\u0148k\u00e1ch A1:A6 a takto jej ta\u017een\u00edm my\u0161\u00ed v t\u00e9to oblasti na tomto listu tak\u00e9 zad\u00e1v\u00e1m. Celou volbu ukon\u010d\u00edm kliknut\u00edm na \u201eOK\u201c (4)<\/span><\/strong>. Mohu pak vid\u011bt na listu Start toto menu.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Rozbalovac\u00ed menu nab\u00edz\u00ed v\u00fdb\u011br ze seznamu vytvo\u0159en\u00e9ho na Listu1, tam mohu vyb\u00edrat a m\u00e1 volba je nyn\u00ed nap\u0159\u00edklad \u201est\u0159eda\u201c. Tato volba zp\u016fsob\u00ed z\u00e1pis v\u00fdrazu \u201est\u0159eda\u201c do bu\u0148ky \u201eC13\u201c<\/strong> na listu Start<\/strong>.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Je pak ji\u017e nyn\u00ed patrn\u00e9, \u017ee budouc\u00ed prom\u011bnn\u00e1 MazaciDen<\/strong> se bude na\u010d\u00edtat z t\u00e9to bu\u0148ky. Seznamy si mohu samoz\u0159ejm\u011b vytv\u00e1\u0159et jak\u00e9koliv podle pot\u0159eby pro\u010di\u0161\u0165ov\u00e1n\u00ed datov\u00e9 tabulky a p\u0159\u00edznak\u016f v \u0159\u00e1dc\u00edch, kter\u00e9 jsem si vytvo\u0159il. Pokud jsem avizoval nap\u0159\u00edklad ozna\u010den\u00ed data po\u0159adov\u00fdm dnem v m\u011bs\u00edci, mohu si vytvo\u0159it seznam s \u010d\u00edsly 1-31 a vybran\u00e9 po\u0159adov\u00e9 dny v m\u011bs\u00edci vymaz\u00e1vat podle takto zadan\u00e9ho rozbalovac\u00edho seznamu.<\/span><\/p>\n

\u00a0\u00a0 Nyn\u00ed ji\u017e m\u00e1m tedy sta\u017een\u00e1 p\u011btilet\u00e1 data titulu Goldman Sachs p\u0159ipraven\u00e1 pro mou lokalizaci Excelu a m\u00e1m vyhodnoceno ka\u017ed\u00e9 datum podle n\u00e1zv\u016f dne v t\u00fddnu, toto jsem za\u0159\u00eddil jedin\u00fdm kliknut\u00edm tla\u010d\u00edtka spou\u0161t\u011bj\u00edc\u00edho p\u0159\u00edslu\u0161n\u00e9 makro. M\u00e1m vytvo\u0159en\u00fd seznam polo\u017eek (n\u00e1zvy dne v t\u00fddnu), kter\u00e9 bych cht\u011bl z m\u00e9 tabulky odstranit a nov\u011b tak\u00e9 v\u00edm, jak mohu nadeklarovat a ur\u010dit oblast bun\u011bk v m\u00e9m excelovsk\u00e9m listu pomoc\u00ed prom\u011bnn\u00e9, kter\u00e1 se bude chovat As Range.<\/strong><\/em><\/span> Mohu proto p\u0159ikro\u010dit k samotn\u00e9mu \u201emazac\u00edmu skriptu\u201c, kter\u00fd bude sou\u010dasn\u011b vyhodnocovat, jestli promaz\u00e1van\u00e1 datab\u00e1ze nevykazuje chyby. Op\u011bt zvol\u00edm metodu, \u017ee uk\u00e1\u017eu cel\u00fd skript, kter\u00fd po jednotliv\u00fdch pas\u00e1\u017e\u00edch pop\u00ed\u0161u a vysv\u011btl\u00edm, co jednotliv\u00e9 \u0159\u00e1dky skriptu znamenaj\u00ed. Makro jsem si nazval MazaniRadku<\/strong> a m\u00e1 tento tvar.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Zd\u00e1 se, \u017ee je to rozs\u00e1hlej\u0161\u00ed skript, ale velkou \u010d\u00e1st tvo\u0159\u00ed \u0159\u00e1dky s\u00a0popisky a je tak\u00e9 slo\u017een ze dvou<\/strong> samostatn\u00fdch procedur \u2013 vyhled\u00e1n\u00ed a smaz\u00e1n\u00ed<\/strong> zbyte\u010dn\u00fdch \u0159\u00e1dk\u016f datov\u00e9 tabulky a n\u00e1sledn\u00e1 kontrola<\/strong> takov\u00e9ho v\u00fdsledku. V\u00a0\u00favodu skriptu m\u00e1m nastaveno, \u017ee se budu pohybovat na listu Data<\/strong> a Start<\/strong>, to je ji\u017e zn\u00e1m\u00e1 \u010d\u00e1st skriptu (1)<\/strong><\/span>. V\u00a0dal\u0161\u00ed \u010d\u00e1sti m\u00e1m nadefinov\u00e1ny prom\u011bnn\u00e9, se kter\u00fdmi budu pracovat a jejich form\u00e1t. Mohu si v\u0161imnout, \u017ee jedna z\u00a0prom\u011bnn\u00fdch bude znovu oblast\u00ed s\u00a0n\u00e1zvem OblastHledani<\/strong> (\u010derven\u00e1 \u0161ipka), tedy \u2026As Range<\/strong><\/em><\/span>. Prom\u011bnn\u00e9 MazaciDen<\/strong> a ChybnyDen<\/strong> pak budou textov\u00e9 \u00fatvary (\u2026As String<\/strong><\/em><\/span>) a budou patrn\u011b nab\u00fdvat hodnoty n\u00e1zv\u016f dne v t\u00fddnu (2).<\/strong><\/span> Ostatn\u00ed prom\u011bnn\u00e9 ji\u017e podle pov\u011bdom\u00fdch n\u00e1zv\u016f budou slou\u017eit ke zn\u00e1m\u00fdm \u00fa\u010del\u016fm.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Dal\u0161\u00ed pas\u00e1\u017e skriptu je o na\u010dten\u00ed hodnot prom\u011bnn\u00fdch<\/strong>, kter\u00e9 jsem si v\u00fd\u0161e nadefinoval. Mohu tak vypozorovat, \u017ee jsem si op\u011bt ur\u010dil hodnotu posledn\u00edho pln\u00e9ho \u0159\u00e1dku m\u00fdch sta\u017een\u00fdch dat v listu data a tuto hodnotu p\u0159id\u011blil prom\u011bnn\u00e9 PlnyRadek, ve stejn\u00e9m smyslu jsem pak prom\u011bnn\u00e9 PlnySloupec ur\u010dil \u010d\u00edslo ozna\u010duj\u00edc\u00ed posledn\u00ed zapln\u011bn\u00fd sloupec s m\u00fdmi sta\u017een\u00fdmi daty (3)<\/strong><\/span>. Aktu\u00e1ln\u011b jsou m\u00e1 data a\u017e do \u0159\u00e1dku 1262 a do sloupce \u201eG\u201c, tedy hodnota 6. Hodnota prom\u011bnn\u00e9 MazaciDen<\/strong> je hodnota z bu\u0148ky \u201eC13\u201c z ovl\u00e1dac\u00edho listu Start, tedy z bu\u0148ky, kde m\u00e1m rozbalovac\u00ed seznam s mo\u017enostmi v\u00fdb\u011bru n\u00e1zvu dne v t\u00fddnu (4)<\/strong><\/span>. Nyn\u00ed jsem si pro odstran\u011bn\u00ed vybral den „\u00fater\u00fd“.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Toto zad\u00e1n\u00ed pak bude m\u00edt za \u00fakol zbavit se \u0159\u00e1dk\u016f s\u00a0p\u0159\u00edznakem \u201e\u00fater\u00fd\u201c<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Budu tedy cht\u00edt prvn\u00ed procedurou smazat<\/strong> z\u00a0m\u00e9 tabulky v\u0161echny \u0159\u00e1dky<\/strong>, kde se nach\u00e1z\u00ed slovo „\u00fater\u00fd“<\/strong>, budou to \u0159\u00e1dky ozna\u010den\u00e9 \u0161ipkami. Posledn\u00edm \u0159\u00e1dkem t\u00e9to \u010d\u00e1sti skriptu na obr\u00e1zku skriptu v textu v\u00fd\u0161e p\u0159i prozat\u00edmn\u00edm na\u010d\u00edtan\u00ed hodnot prom\u011bnn\u00fdch je nastaven\u00ed oblasti (Set<\/strong><\/em><\/span>), kde budu vyhled\u00e1vat \u201e\u0161kodliv\u00e1 slova\u201c, tedy n\u00e1zvy dn\u016f v t\u00fddnu (5)<\/strong><\/span>. M\u00e1 p\u0159eform\u00e1tovan\u00e1 data s n\u00e1zvem dne v\u00a0 t\u00fddnu se nach\u00e1z\u00ed v osm\u00e9m sloupci (H) proto jsem si oblast s n\u00e1zvem OblastHledani<\/strong>, kde budu hledat n\u00e1zvy dn\u016f v t\u00fddnu vyty\u010dil velkoryse v rozsahu bu\u0148ky \u010dtvrt\u00e9ho \u0159\u00e1dku a sedm\u00e9ho sloupce „H4“ a bu\u0148ky \u201eK5000\u201c. Graficky zn\u00e1zorn\u011bno je to tato oblast.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Dal\u0161\u00ed \u010d\u00e1st skriptu p\u0159in\u00e1\u0161\u00ed pozn\u00e1n\u00ed dal\u0161\u00ed cyklick\u00e9 funkce, kter\u00e1 bude m\u00edt za \u00fakol \u201epro\u010desat\u201c \u0159\u00e1dek po \u0159\u00e1dku mou zadanou oblast a zji\u0161\u0165ovat, jestli se v n\u011bm nenach\u00e1z\u00ed \u201ezak\u00e1zan\u00e9\u201c slovo \u201e\u00fater\u00fd\u201c a pokud toto bude pravda, tak tento nalezen\u00fd \u0159\u00e1dek bude smaz\u00e1n.<\/span><\/p>\n

For\u2026Next<\/span><\/strong><\/h1>\n

\u00a0\u00a0 Cyklick\u00e1 funkce For\u2026Next<\/strong><\/em><\/span> m\u00e1 nejr\u016fzn\u011bj\u0161\u00ed varianty. Mnou nyn\u00ed pou\u017eit\u00e1 cyklick\u00e1 funkce vyu\u017e\u00edv\u00e1 po\u010ditadlo<\/strong>, kter\u00e9 slou\u017e\u00ed jako posouva\u010d po jednotliv\u00fdch \u0159\u00e1dc\u00edch<\/strong> a kter\u00e9 m\u00e1 ur\u010den\u00fd rozsah<\/strong> po\u010dtu \u00fakon\u016f. Ka\u017ed\u00fd jednotliv\u00fd cyklus umo\u017e\u0148uje vykonat v\u00fdpo\u010detn\u00ed operace na m\u00e9m excelovsk\u00e9m listu, kter\u00e9 se nach\u00e1zej\u00ed mezi instrukc\u00ed For<\/strong><\/em><\/span> a instrukc\u00ed Next<\/strong><\/em><\/span>. Mezi tyto p\u0159\u00edkazov\u00e9 instrukce lze vkl\u00e1dat tak\u00e9 dal\u0161\u00ed cyklick\u00e9 nebo rozhodovac\u00ed funkce, v m\u00e9m p\u0159\u00edpad\u011b budou m\u00e9 jednotliv\u00e9 cykly obsahovat jednoduchou vno\u0159enou funkci podm\u00ednky<\/strong>. N\u00ed\u017ee je uveden\u00e1 \u010d\u00e1st skriptu.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Ozna\u010den\u00ed cyklu mezi instrukcemi For<\/strong><\/em><\/span> a Next<\/strong><\/em><\/span> je zn\u00e1zorn\u011bno kruhov\u00fdmi \u0161ipkami. Makro se tak v tuto chv\u00edli sv\u00e9ho b\u011bhu bude zab\u00fdvat pouze touto procedurou opakov\u00e1n\u00ed jednotliv\u00fdch krok\u016f, aby po vy\u010derp\u00e1n\u00ed zadan\u00fdch opakov\u00e1n\u00ed pokra\u010dovalo d\u00e1le v dal\u0161\u00edch \u0159\u00e1dc\u00edch skriptu. Logika t\u00e9to cyklick\u00e9 funkce je pak n\u00e1sleduj\u00edc\u00ed \u201e…za\u010dni na \u0159\u00e1dku \u010d.1 oblasti, kde se mohou nach\u00e1zet v\u00fdrazy, kter\u00e9 chci smazat (\u201e\u00fater\u00fd\u201c). Pt\u00e1m se pot\u00e9, jestli se na tomto \u0159\u00e1dku v zadan\u00e9 oblasti opravdu nach\u00e1z\u00ed slovo „\u00fater\u00fd“. Pokud je toto pravda a na tomto \u0159\u00e1dku se tento v\u00fdraz opravdu objevuje, sma\u017eu cel\u00fd \u201e\u0161kodliv\u00fd \u0159\u00e1dek\u201c, pokud to pravda nen\u00ed, jdu d\u00e1l a ukon\u010duji tento dotaz pro tento \u0159\u00e1dek. Posouv\u00e1m se na dal\u0161\u00ed \u0159\u00e1dek a dotaz opakuji pro tento dal\u0161\u00ed \u0159\u00e1dek…<\/em>\u201c. Start na prvn\u00edm \u0159\u00e1dku za\u010d\u00edn\u00e1 p\u0159i\u0159azen\u00edm hodnoty 1<\/strong> prom\u011bnn\u00e9 Radek<\/strong>, kterou m\u00e1m nadeklarov\u00e1nu (6.1)<\/strong><\/span>. Po\u010ditadlo \u00fakon\u016f m\u00e1m nastaveno od 1 do 5000 (6.2)<\/strong><\/span>, bude provedeno prohled\u00e1n\u00ed celkov\u011b 5000 \u0159\u00e1dk\u016f datov\u00e9 tabulky, \u010d\u00edslo mohu libovoln\u011b m\u011bnit podle rozsahu tabulky (pokud p\u0159edpokl\u00e1d\u00e1m 252 obchodn\u00edch dn\u016f v roce, tak hodnota 5000 reprezentuje 20-ti let\u00fd rozsah datov\u00e9 tabulky). Na \u0159\u00e1dku (6.3)<\/strong><\/span> je formulov\u00e1na avizovan\u00e1 podm\u00ednka, kde se dotazuji, jestli (If<\/strong><\/em><\/span>) se v nadeklarovan\u00e9 oblasti OblastHledani<\/strong> na aktu\u00e1ln\u011b zpracov\u00e1van\u00e9m \u0159\u00e1dku s prom\u011bnnou Radek<\/strong> nenach\u00e1z\u00ed hodnota prom\u011bnn\u00e9 MazaciDen<\/strong> (nyn\u00ed \u201e\u00fater\u00fd\u201c) a jestli\u017ee ano, potom (Then<\/strong><\/em><\/span>) po\u017eaduji skriptem na dal\u0161\u00edm \u0159\u00e1dku (6.4)<\/strong><\/span> cel\u00fd tento \u0159\u00e1dek smazat<\/strong>. Pokynem Else<\/strong><\/em><\/span> na dal\u0161\u00edm \u0159\u00e1dku (6.5)<\/strong><\/span> se posouv\u00e1m d\u00e1le, abych zv\u00fd\u0161il hodnotu prom\u011bnn\u00e9 Radek<\/strong> o jedni\u010dku (6.6)<\/strong><\/span>, co\u017e zp\u016fsobuje posun na dal\u0161\u00ed \u0159\u00e1dek v m\u00e9 datov\u00e9 tabulce. P\u0159ed t\u00edmto posunem mus\u00edm ukon\u010dit<\/strong> dotaz na podm\u00ednku<\/strong> uzav\u0159en\u00edm dotazu (End If<\/strong><\/em><\/span>) na \u0159\u00e1dku (6.7)<\/strong><\/span>. Pot\u00e9 se p\u0159e\u010dten\u00edm instrukce Next<\/em><\/span> (6.8)<\/span><\/strong> vrac\u00edm na \u0159\u00e1dek skriptu s p\u0159\u00edkazem For<\/strong><\/span><\/em> a cel\u00fd cyklus se opakuje. Zpracov\u00e1n\u00ed takov\u00e9 cyklick\u00e9 funkce je z\u00e1visl\u00e9 na v\u00fdkonnosti po\u010d\u00edta\u010de, pro takto rozs\u00e1hlou datovou tabulku trv\u00e1 nap\u0159\u00edklad u m\u011b toto zpracov\u00e1n\u00ed zhruba jednu sekundu. Jak\u00fd je v\u00fdsledek?<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Z\u00a0m\u00e9 tabulky zmizely v\u0161echny \u0159\u00e1dky obsahuj\u00edc\u00ed v\u00fdraz \u201e\u00fater\u00fd\u201c. Proto\u017ee chci pouze obchody, kter\u00e9 budou prob\u00edhat mezi pond\u011bl\u00edm a p\u00e1tkem, stejnou procedurou sma\u017eu tak\u00e9 \u201est\u0159edy\u201c a \u201e\u010dtvrtky\u201c. \u00a0Toto je v\u00fdsledek.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 \u00a0Je patrn\u00e9, \u017ee v datov\u00e9 tabulce z\u016fstaly pouze \u0159\u00e1dky s pond\u011blky<\/strong> a p\u00e1tky<\/strong>, co\u017e je skv\u011bl\u00e9. Mus\u00edm ale tak\u00e9 konstatovat, \u017ee se mi na jednom z \u0159\u00e1dk\u016f objevilo slovo \u201echyba\u201c<\/strong> (\u010derven\u00e1 \u0161ipka), kter\u00e9 ozna\u010duje z\u00e1vadu v posloupnostech pond\u011bl\u00ed \u2013 p\u00e1tek, kter\u00e9 je zp\u016fsobeno skute\u010dnost\u00ed, \u017ee se v datov\u00e9 \u0159ad\u011b nevyskytuje pond\u011bl\u00ed 7.9.2015. Na tento den v tomto roce toti\u017e p\u0159ipadl sv\u00e1tek Labour Day a na burze se neobchodovalo. Pokud bych nyn\u00ed zpracoval sv\u00e1 data na dr\u017een\u00ed akci\u00ed Goldman Sachs pro pond\u011bl\u00ed a\u017e p\u00e1tek, vznikl by velmi zmate\u010dn\u00fd v\u00fdsledek, proto\u017ee v jednotliv\u00fdch \u0159\u00e1dc\u00edch pod sebou by se nevyskytovaly pouze opakuj\u00edc\u00ed se periody s pond\u011blky a p\u00e1tky. Jak se tam takov\u00e9 slovo dostalo? S dal\u0161\u00edmi \u0159\u00e1dky tohoto makra.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Po smaz\u00e1n\u00ed nepot\u0159ebn\u00fdch dn\u016f procedurou For\u2026Next<\/strong><\/span><\/em> pokra\u010duje skript kontrolou tabulky, jestli se v n\u00ed neobjevuje v\u00fd\u0161e popisovan\u00e1 chyba. Proto\u017ee si chci tabulku upravit tak, aby na ka\u017ed\u00fdch dvou \u0159\u00e1dc\u00edch byl okam\u017eik vstupu do obchodu na prvn\u00edm \u0159\u00e1dku a okam\u017eik v\u00fdstupu na druh\u00e9m \u0159\u00e1dku, nesm\u011bj\u00ed se p\u0159\u00edznaky, kter\u00e9 jsem si vytvo\u0159il u jednotliv\u00fdch dat sob\u011b rovnat, jednodu\u0161e a konkr\u00e9tn\u011b, v p\u0159\u00edpad\u011b, kdy zpracov\u00e1v\u00e1m data s denn\u00edmi daty nemohou b\u00fdt za sebou dva pond\u011blky nebo dva p\u00e1tky. Sta\u010d\u00ed tedy, abych mezi sebou porovnal tyto dvojice \u0159\u00e1dk\u016f a pokud se budou tyto p\u0159\u00edznaky (ozna\u010den\u00ed dne v t\u00fddnu) rovnat, nech\u00e1m si zapsat do \u0159\u00e1dku slovo \u201echyba\u201c. Nadefinuji si proto dal\u0161\u00ed dv\u011b prom\u011bnn\u00e9 AktualniDen<\/strong> (jako String<\/strong><\/em><\/span>) a AktualniRadek<\/strong> (jako Integer<\/strong><\/span><\/em>) (7)<\/strong> <\/span>a v dal\u0161\u00edm \u0159\u00e1dku skriptu sma\u017eu oblast, kde by se mohly vyskytovat hl\u00e1\u0161ky se slovem \u201echyba\u201c z posledn\u00edho spu\u0161t\u011bn\u00ed makra (8)<\/strong><\/span>.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 Toto vyhodnocen\u00ed – porovn\u00e1n\u00ed dvou \u0159\u00e1dk\u016f – jsem si nechal op\u011bt vyrobit procedurou Do While\u2026Loop<\/strong><\/em><\/span>. Na \u0159\u00e1dku (9)<\/strong><\/span> je konstatov\u00e1n\u00ed, \u017ee data za\u010d\u00ednaj\u00ed na \u010dtvrt\u00e9m \u0159\u00e1dku a \u0159\u00e1dek (10)<\/strong><\/span> definuje podm\u00ednku, aby vyhodnocov\u00e1n\u00ed skon\u010dilo vy\u010derp\u00e1n\u00edm v\u0161ech zpracovan\u00fdch dat. V \u0159\u00e1dc\u00edch (11)<\/strong><\/span> je pak na\u010dten\u00ed hodnot dvou sousedn\u00edch \u0159\u00e1dk\u016f pro ka\u017ed\u00fd cyklus, v prvn\u00edm cyklu tedy \u0159\u00e1dek 4<\/strong> (AktualniRadek=4) a \u0159\u00e1dek 5<\/strong> (AktualniRadek+1 m\u00e1 tak hodnotu 5). Prvn\u00edmu \u0159\u00e1dku se rovn\u00e1 hodnota prom\u011bnn\u00e9 AktualniDen<\/strong> a druh\u00e9mu \u0159\u00e1dku se tak rovn\u00e1 hodnota prom\u011bnn\u00e9 ChybnyDen<\/strong>, kterou jsem si ji\u017e d\u0159\u00edve nadeklaroval, a je to potenci\u00e1ln\u011b chybov\u00e1 hodnota, proto\u017ee by se nem\u011bla rovnat p\u0159edchoz\u00edmu \u0159\u00e1dku (\u2026dva p\u00e1tky za sebou je \u201echyba\u201c). Do procedury Do While\u2026Loop<\/strong><\/em><\/span> jsem vno\u0159il podm\u00ednku<\/strong> stejn\u011b, jako do procedury For\u2026Next ve skriptu v\u00fd\u0161e. Jej\u00ed z\u00e1pis je na \u0159\u00e1dku (12)<\/strong><\/span> a je dotazem pr\u00e1v\u011b na rovnost v\u00fdraz\u016f (n\u00e1zvu dvou dn\u016f v t\u00fddnu). Jestli\u017ee je podm\u00ednka spln\u011bna<\/strong>, tak se do vedlej\u0161\u00ed bu\u0148ky chybn\u00e9ho dne natvrdo zap\u00ed\u0161e hl\u00e1\u0161ka \u201echyba\u201c (13)<\/span><\/strong>. Pokud tomu tak nen\u00ed, procedura pokra\u010duje d\u00e1le (Else<\/strong><\/em><\/span>) a dojde tak\u00e9 k ukon\u010den\u00ed podm\u00ednky (End If<\/strong><\/em><\/span>) (14)<\/strong><\/span>. Cyklus nadefinuje posun o jeden \u0159\u00e1dek d\u00e1le (15)<\/strong> <\/span>a instrukce Loop<\/span> (16)<\/span><\/strong> vr\u00e1t\u00ed cyklus na \u0159\u00e1dek Do While<\/strong><\/span>. Proveden\u00ed v\u0161ech \u00fakon\u016f makra, tedy maz\u00e1n\u00ed nevhodn\u00e9ho \u0159\u00e1dku a procesu kontroly, je ukon\u010deno vyskakuj\u00edc\u00edm potvrzovac\u00edm oknem (17)<\/strong><\/span>.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Mohu odkliknut\u00edm \u201eOk\u201c<\/strong> na vysko\u010den\u00e9m okn\u011b a ukon\u010dit cel\u00e9 makro. Na obr\u00e1zku je tak\u00e9 mo\u017en\u00e9 vypozorovat, \u017ee jsem si p\u0159idal na list Start dv\u011b nov\u00e1 tla\u010d\u00edtka, kter\u00e1 spou\u0161t\u011bj\u00ed tyto dv\u011b nov\u00e1 makra, makro upravuj\u00edc\u00ed<\/strong> tabulku pro \u010desk\u00fd Excel<\/strong> a p\u0159id\u00e1vaj\u00edc\u00ed p\u0159\u00edznak n\u00e1zvu dne v\u00a0t\u00fddnu a makro prov\u00e1d\u011bj\u00edc\u00ed maz\u00e1n\u00ed a kontrolu<\/strong> datov\u00e9 tabulky.<\/span><\/p>\n

\u00a0 Nyn\u00ed nezb\u00fdv\u00e1, ne\u017e odstranit \u0159\u00e1dky z tabulky, kter\u00e9 nesou p\u0159\u00edznaky „chyba“. Nen\u00ed jednoduch\u00e9 vymyslet nyn\u00ed skript, kter\u00fd by toto za\u0159\u00eddil, proto\u017ee mohou nastat r\u016fzn\u00e9 situace. Mohu m\u00edt nejen dva p\u00e1tky za sebou, ale tak\u00e9 dva pond\u011blky za sebou, mohu m\u00edt ale dokonce takov\u00e9 ud\u00e1losti t\u0159i za sebou (typicky obdob\u00ed v\u00e1noc a nov\u00e9ho roku).<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Dny 21.12.2015, 28.12.2015 a 4.1.2016 jsou t\u0159i pond\u011blky za sebou. Prvn\u00ed dva pond\u011blky v \u010derven\u00e9m obd\u00e9ln\u00edku (21.12.2015 a 28.12.2015) nemaj\u00ed odpov\u00eddaj\u00edc\u00ed p\u00e1tky, t\u0159et\u00ed pond\u011bl\u00ed v \u0159ad\u011b (4.1.2016) ji\u017e tvo\u0159\u00ed plnohodnotn\u00fd t\u00fdden s p\u00e1tkem v n\u00e1sleduj\u00edc\u00edm \u0159\u00e1dku. \u0158\u00e1dky v \u010derven\u00e9m obd\u00e9ln\u00edku tedy mus\u00edm smazat. Ud\u011bl\u00e1m to nyn\u00ed ru\u010dn\u011b pro vylou\u010den\u00ed chyby a slo\u017eitosti psan\u00e9ho skriptu a je to ve zpracov\u00e1n\u00ed dat k anal\u00fdz\u00e1m nyn\u00ed nejotravn\u011bj\u0161\u00ed krok. P\u011btiletou datovou tabulku ale m\u00e1m takto upravenou manu\u00e1ln\u011b za \u010dty\u0159i minuty (schv\u00e1ln\u011b jsem to stopoval :c). Mohu pak znovu nechat makrem zkontrolovat, jestli jsem chyby opravdu odstranil.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Do volby mazac\u00edho dne navol\u00edm mo\u017enost \u00a0\u201e-nic-\u201c, proto\u017ee nechci mazat \u017e\u00e1dn\u00fd den, ale jen prov\u00e9st tu \u010d\u00e1st makra, kter\u00e9 zkontroluje, zdali jsem spr\u00e1vn\u011b vymazal chybov\u00e9 \u0159\u00e1dky. Kliknut\u00edm na zelen\u00e9 tla\u010d\u00edtko „maz\u00e1n\u00ed dne a kontrola“ provedu takovou op\u011btovnou kontrolu. \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Mohu pak zjistit, \u017ee datov\u00e1 tabulka \u017e\u00e1dn\u00e9 chyby nevykazuje a nap\u0159\u00edklad obdob\u00ed v\u00e1noc a nov\u00e9ho roku 2015 ji\u017e \u017e\u00e1dn\u00e9 \u00fadaje o chybovosti v\u00fdskytem slovy \u201echyba\u201c nezobrazuje.<\/span><\/p>\n

\u00a0\u00a0 Takto upraven\u00e1 p\u011btilet\u00e1 data pro akciov\u00fd titul Goldman Sachs, tedy pouze kompletn\u00ed obdob\u00ed pond\u011bl\u00ed \u2013 p\u00e1tek, podrob\u00edm anal\u00fdze t\u00fddenn\u00edho obchodu vyu\u017eit\u00edm makra z minul\u00e9ho \u010dl\u00e1nku. Na listu Start<\/strong> zad\u00e1m tyto parametry.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 N\u00e1zev anal\u00fdzy \u201epo-p\u00e1\u201c (1)<\/span><\/strong> nepot\u0159ebuje koment\u00e1\u0159, stejn\u011b tak vypln\u011bn\u00e1 pole (2), (3)<\/strong><\/span> a (4)<\/strong><\/span>. Doba trv\u00e1n\u00ed obchodu<\/strong> bude \u201e2\u201c<\/strong>, proto\u017ee se skript bude pohybovat mezi dv\u011bma sousedn\u00edmi \u0159\u00e1dky (5)<\/strong><\/span> a bude to tak, jako bych testoval mezidenn\u00ed dr\u017een\u00ed akci\u00ed, m\u00e1m v\u0161ak \u0159\u00e1dky promaz\u00e1ny tak, \u017ee na t\u011bchto dvou \u0159\u00e1dc\u00edch je zachyceno obdob\u00ed jednoho kalend\u00e1\u0159n\u00edho t\u00fddne. V bu\u0148ce (6)<\/strong><\/span> nezad\u00e1v\u00e1m \u017e\u00e1dn\u00fd po\u017eadavek na maz\u00e1n\u00ed. Cel\u00fd backtest spou\u0161t\u00edm tla\u010d\u00edtkem \u201eSpus\u0165 test!!!\u201c (7)<\/span><\/strong>. \u00a0Na listu Celkem pak mohu vypozorovat v\u00fdsledek.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 T\u00fddenn\u00ed dr\u017een\u00ed s\u00a0n\u00e1kupy v\u00a0pond\u011bl\u00ed<\/strong> a prodejem v\u00a0p\u00e1tek<\/strong> by p\u0159ineslo profit +3.129.01 USD<\/strong>. Mohu pak pro srovn\u00e1n\u00ed nav\u0161t\u00edvit obr\u00e1zek z konce minul\u00e9ho \u010dl\u00e1nku<\/a><\/strong><\/span>, kde byl v\u00fdsledek p\u011btidenn\u00edho dr\u017een\u00ed akci\u00ed GS bez ohledu na dny v t\u00fddnu (prost\u00fdch p\u011bt obchodn\u00edch dn\u016f tak jak jdou za sebou) s kone\u010dn\u00fdm v\u00fdsledkem pouh\u00fdch +6.00 USD<\/strong>. Pokud bych tedy \u201evsadil na k\u00e1ze\u0148\u201c a dodr\u017eoval vstupy v pond\u011bl\u00ed a v\u00fdstupy v p\u00e1tek, v\u00fdrazn\u011b bych si polep\u0161il. Graficky pak na obr\u00e1zku n\u00ed\u017ee.<\/span><\/p>\n

\"\"<\/p>\n

\n

3\/ Z\u00e1m\u011bna datov\u00fdch \u0159ad<\/strong><\/span><\/h1>\n

\u00a0\u00a0 Takto upraven\u00e1 tabulka pro titul Goldman Sachs je z\u00e1kladn\u00edm v\u00fdchoz\u00edm bodem pro srovn\u00e1v\u00e1n\u00ed stejn\u00fdch typ\u016f obchod\u016f pro r\u016fzn\u00e9 tituly. Vstupov\u00e1n\u00ed do obchod\u016f v pond\u011bl\u00ed a v\u00fdstupy v p\u00e1tek by vyneslo pro akcii GS za p\u011bt let v\u00fdnos +3.129.01 USD i se zaplacen\u00fdmi poplatky a nyn\u00ed m\u011b zaj\u00edm\u00e1, jak by si vedly v takov\u00e9m srovn\u00e1n\u00ed jin\u00e9 akciov\u00e9 tituly<\/strong> a mo\u017en\u00e1 bych tak objevil vhodn\u011bj\u0161\u00ed kandid\u00e1ty pro takov\u00e9 obchody. Budu nyn\u00ed cht\u00edt vymyslet, jak bleskurychle pomoc\u00ed VBA skriptu p\u0159en\u00e1\u0161et data jin\u00fdch titul\u016f k\u00a0stejn\u00e9mu otestov\u00e1n\u00ed. Kupodivu to nebude nijak slo\u017eit\u00e9, proto\u017ee budu na upravenou a prot\u0159\u00edd\u011bnou datovou \u0159adu pouze aplikovat jin\u00e1 data jin\u00fdch akciov\u00fdch titul\u016f. K\u00a0takov\u00e9 \u00faprav\u011b pak budu vyu\u017e\u00edvat klasickou excelovskou funkci =SVYHLEDAT<\/strong><\/em>, kterou aplikuji a uprav\u00edm pro sv\u00e9 pot\u0159eby. Jak cel\u00fd koncept funguje uk\u00e1\u017eu na jednoduch\u00e9m p\u0159\u00edpadu.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0V excelovsk\u00e9m listu m\u00e1m ur\u010dit\u00e1 data um\u00edst\u011bn\u00e1 ve sloupci A1. Mohu si p\u0159edstavit, \u017ee to je to nejcenn\u011bj\u0161\u00ed, co nyn\u00ed m\u00e1m tak\u00e9 na listu Data, tedy prot\u0159\u00edd\u011bnou a zkontrolovanou p\u011btiletou datovou \u0159adu sestavenou z term\u00edn\u016f pond\u011bl\u00ed a p\u00e1tek v ka\u017ed\u00e9m t\u00fddnu. V prav\u00e9 \u010d\u00e1sti listu vid\u00edm datovou tabulku zna\u010dn\u011b objemn\u011bj\u0161\u00ed, kter\u00e1 obsahuje krom\u011b stejn\u00fdch dat, kter\u00e9 jsou ve sloupci \u201eA\u201c tak\u00e9 jin\u00e9 datumov\u00e9 \u00fadaje pro jin\u00e9 dny. Mohu si pak p\u0159edstavit, \u017ee toto je n\u011bjak\u00e1 datab\u00e1ze jin\u00e9ho akciov\u00e9ho titulu, nap\u0159\u00edklad McDonalds\u2018 (MCD). M\u00fdm \u00fakolem bude p\u0159en\u00e9st k jednotliv\u00fdm \u00fadaj\u016fm ve sloupci \u201eA\u201c pouze n\u011bkter\u00e9 \u00fadaje, kter\u00e9 maj\u00ed stejnou hodnotu pro datum ve v\u011bt\u0161\u00ed tabulce vpravo. Konkr\u00e9tn\u011b budu cht\u00edt pro datum 15.1.2020 ve sloupci A um\u00edstit do bu\u0148ky vedle tohoto \u00fadaje odpov\u00eddaj\u00edc\u00ed hodnotu pro stejn\u00e9 datum 15.1.2020 nach\u00e1zej\u00edc\u00ed se ve v\u011bt\u0161\u00ed tabulce ve druh\u00e9m sloupci vedle bu\u0148ky vykazuj\u00edc\u00ed shodu, tedy chci p\u0159en\u00e9st slovo \u201ekarel\u201c. Toto v\u0161e chci nav\u00edc najednou pro ka\u017edou hodnotu ve sloupci A.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 Na obr\u00e1zku je \u010derven\u011b vyzna\u010dena syntaxe takov\u00e9ho p\u0159\u00edkazu pro klasick\u00fd Excel. Funkce =SVYHLEDAT(A3:A17<\/span>;G3:K26<\/span>;2<\/span>;0)<\/strong>, <\/em>um\u00edst\u011bn\u00e1 v\u00a0prvn\u00ed bu\u0148ce zapl\u0148ovan\u00e9 oblasti v\u00a0tomto z\u00e1pise znamen\u00e1, \u017ee pro data ve sloupci A, konkr\u00e9tn\u011b oblast \u201eA3:A17\u201c<\/span><\/strong> hled\u00e1m shodu v\u00a0oblasti bun\u011bk velk\u00e9 tabulky o rozsahu \u201eG3:K26\u201c<\/span><\/strong> a chci pro vyhledanou shodu p\u0159en\u00e9st hodnotu zapsanou ve 2<\/span> sloupci<\/span><\/strong> (vedlej\u0161\u00edm) v oblasti s nalezenou shodou. Hodnota nula (False) jako \u010dtvrt\u00fd argument je nyn\u00ed povinn\u00fd parametr. V\u00fdsledek takov\u00e9ho z\u00e1pisu je tento<\/span><\/p>\n

\"\"<\/span><\/p>\n

\u00a0 Pokud budu cht\u00edt zaplnit tak\u00e9 dal\u0161\u00ed sloupec podle stejn\u00e9 shody, sta\u010d\u00ed pouze ve vzorci =SVYHLEDAT<\/strong><\/em> zadat p\u0159enos hodnoty ze t\u0159et\u00edho sloupce<\/strong> prohled\u00e1van\u00e9 oblasti podle nalezen\u00e9 shody.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 V\u00fdsledkem je zapln\u011bn\u00ed tak\u00e9 druh\u00e9ho sloupce hledan\u00fdch hodnot<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Obdobn\u011b pak mohu zaplnit zbyl\u00e9 dva sloupce v\u00fdb\u011brem dat pro shodn\u00e9 hodnoty bun\u011bk jednotliv\u00fdch datum\u016f srovn\u00e1van\u00fdch oblast\u00ed.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Takto jednodu\u0161e mohu zaplnit bu\u0148ky nov\u00fdmi daty z v\u011bt\u0161\u00ed oblasti, tedy v m\u00e9m p\u0159\u00edpad\u011b nahradit starou datovou tabulku nov\u00fdmi hodnotami um\u00edst\u011bn\u00fdmi kdekoliv v m\u00e9m excelovsk\u00e9m se\u0161itu. Takovou pr\u00e1ci ale nebudu prov\u00e1d\u011bt vepisov\u00e1n\u00edm vzorc\u016f =SVYHLEDAT<\/em>, ale celou proceduru zautomatizuji makrem. Co tedy bude zapot\u0159eb\u00ed ud\u011blat a jak\u00e1 bude filozofie tak\u00e9 z\u00e1m\u011bny dat? Mus\u00edm si ur\u010dit oblast<\/strong> bun\u011bk, pro kterou<\/strong> budu hledat shodu<\/strong> v datech, tedy prot\u0159\u00edd\u011bn\u00e1 upraven\u00e1 data ve sloupci s datumy. Mus\u00edm si ur\u010dit oblast <\/strong>bun\u011bk, ve kter\u00e9<\/strong> budu hledat shodu<\/strong> s daty z prvn\u00ed oblast\u00ed, tedy nap\u0159\u00edklad \u010derstv\u011b sta\u017een\u00e1 historick\u00e1 data akciov\u00e9ho titulu MCD a d\u00e1le si budu muset ur\u010dit bu\u0148ky<\/strong>, kter\u00e9 jsou prvn\u00ed bu\u0148kou ve sloupci<\/strong>, kde se bude zapisovat shoda (tam kde jsem v p\u0159\u00edkladu vepisoval excelovsk\u00fd vzorec =SVYHLEDAT)<\/em>. To je v\u0161e, ostatn\u00ed za\u0159\u00edd\u00ed zapsan\u00fd skript.<\/span><\/p>\n

\u00a0\u00a0 Prvn\u00ed \u00fapravou je vytvo\u0159en\u00ed dal\u0161\u00edho listu<\/strong> m\u00e9ho se\u0161itu, kam um\u00edst\u00edm nov\u00e1 data, kter\u00e1 budu cht\u00edt otestovat podle zadan\u00e9ho \u00fakolu \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span><\/p>\n

\u00a0 \"\"<\/span><\/p>\n

\u00a0\u00a0 Nov\u00fd list<\/strong> se\u0161itu jsem si nazval NovaDB<\/strong> (nov\u00e1 datab\u00e1ze) a do bu\u0148ky \u201eA1\u201c<\/strong> jsem si nechal nat\u00e1hnout sta\u017een\u00e1 data pro akciov\u00fd titul MCD, tak jak jsem jej po\u0159\u00eddil z Yahoo.finance. T\u00edm jsem vytvo\u0159il novou datovou tabulku, ze kter\u00e9 budu \u010derpat nov\u00e1 data pro p\u0159edp\u0159ipraven\u00e9 \u010dasov\u00e9 obdob\u00ed p\u011bti let pouze pro vyseparovan\u00e9 dny pond\u011bl\u00ed a p\u00e1tek. Jak jsem napsal skript pro p\u0159evod jednotliv\u00fdch dat MCD do listu Data, kde m\u00e1m cenov\u00e9 \u00fadaje pro titul GS, je na obr\u00e1zku n\u00ed\u017ee.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Toto makro jsem si nazval ZamenaDat<\/strong>. Nejd\u0159\u00edve jsem nadefinoval nov\u00fd list<\/strong> se\u0161itu NovaDB<\/strong> (prvn\u00ed \u010derven\u00e1 \u0161ipka). Pot\u00e9 jsem si nadefinoval oblasti bun\u011bk, kter\u00e9 budu pozd\u011bji porovn\u00e1vat, tedy StaraDB<\/strong> a NovaDB<\/strong>, ob\u011b As Range<\/strong><\/em><\/span>. Nov\u00fd list se\u0161itu s\u00a0n\u00e1zvem NovaDB jsem si tak\u00e9 pat\u0159i\u010dn\u011b nastavil (posledn\u00ed \u010derven\u00e1 \u0161ipka). Modr\u00fdmi \u0161ipkami jsem si nadeklaroval prom\u011bnn\u00e9, kter\u00e9 budou nosi\u010di hodnot \u010d\u00edsla posledn\u00edho zapln\u011bn\u00e9ho \u0159\u00e1dku pro starou a novou datovou tabulku PrazdnyRadekSDB<\/strong> a PrazdnyRadekNDB<\/strong>.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Skript pokra\u010duje zji\u0161t\u011bn\u00edm<\/strong> hodnot prom\u011bnn\u00fdch posledn\u00edho zapln\u011bn\u00e9ho \u0159\u00e1dku<\/strong> pro starou a novou datovou tabulku (2)<\/strong><\/span> zn\u00e1m\u00fdm jedno\u0159\u00e1dkov\u00fdm skriptem. PrazdnyRadekSDB<\/strong> je zji\u0161t\u011bn\u00e9 \u010d\u00edslo posledn\u00edho zapln\u011bn\u00e9ho \u0159\u00e1dku ve druh\u00e9m sloupci na listu Data<\/strong>, kde je datum upraven\u00e9 datov\u00e9 \u0159ady, PrazdnyRadekNDB<\/strong> je zji\u0161t\u011bn\u00e9 \u010d\u00edslo posledn\u00edho zapln\u011bn\u00e9ho \u0159\u00e1dku v prvn\u00edm sloupci na listu NovaDB<\/strong>, kam jsem si nat\u00e1hl novou datovou tabulku pro MCD. Ob\u011b zji\u0161t\u011bn\u00e9 \u010d\u00edsla jsem si nechal vyobrazit na listu Data do bun\u011bk v prvn\u00edm \u0159\u00e1dku. Pokud skript doraz\u00ed do tohoto m\u00edsta, mohu na listu data v prvn\u00edch dvou bu\u0148k\u00e1ch vid\u011bt \u00fadaje o hodnot\u00e1ch t\u011bchto posledn\u00edch zapln\u011bn\u00fdch \u0159\u00e1dk\u016f a z\u00edskat informace o velikosti srovn\u00e1van\u00fdch oblast\u00ed.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 Mohu pak vid\u011bt, \u017ee m\u00e1 oblast na listu Data, kam budu cht\u00edt nat\u00e1hnout shodn\u00e1 data se rozprost\u00edr\u00e1 od \u010dtvrt\u00e9ho \u0159\u00e1dku, kde datumy za\u010d\u00ednaj\u00ed, a\u017e na \u0159\u00e1dek 460 a ve stejn\u00e9m smyslu m\u00e1 nov\u00e1 datov\u00e1 tabulka na listu NovaDB s daty akcie MCD sah\u00e1 od prvn\u00edho \u0159\u00e1dku a\u017e na \u0159\u00e1dek 1260. K \u010demu je takov\u00e9 zji\u0161t\u011bn\u00ed dobr\u00e9? M\u016fj skript funguje bezchybn\u011b s jedinou v\u00fdj\u00edmkou a tou je ob\u010dasn\u00e9 zaseknut\u00ed skriptu na definici oblasti, ze kter\u00e9 \u010dtu data, pokud jej m\u00e1m dynamicky definov\u00e1ny pomoc\u00ed Cells. Pokud v\u0161ak zad\u00e1m oblast pomoc\u00ed Range (\u201eB4:B460\u201c) tato chyba se neobjevuje, k n\u00ed ale pot\u0159ebuji zn\u00e1t pr\u00e1v\u011b \u010d\u00edslo 460, tedy hodnotu posledn\u00edho zapln\u011bn\u00e9ho \u0159\u00e1dku, proto je tento \u00fadaj vynesen pr\u00e1v\u011b do t\u011bchto bun\u011bk, co t\u00edm je my\u0161leno vypl\u00fdv\u00e1 z n\u00e1sleduj\u00edc\u00edho obr\u00e1zku.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Na \u0159\u00e1dku (4)<\/strong><\/span> podbarven\u00e9m zelen\u011b (aby jej VBA ignorovalo) je nastaven\u00ed rozsahu oblasti pro kterou budu hledat shodu, tedy sloupec s datumem, kter\u00e9 jsem prot\u0159\u00eddil na pond\u011blky a p\u00e1tky na listu Data. Jedn\u00e1 se o data rozprost\u00edraj\u00edc\u00ed se v bu\u0148k\u00e1ch „B4″<\/strong> a\u017e „B460″<\/strong>. Oblast mus\u00ed b\u00fdt definov\u00e1na p\u0159esn\u011b, jinak skript vyhodnot\u00ed \u0161patn\u011b definovanou oblast jako chybu, proto, pokud ji m\u00e1m zaps\u00e1nu pomoc\u00ed Cells jako =DataSheet.Range(Cells (4, 2), Cells(PrazdnyRadekSDB, 2))<\/em>, kde PrazdnyRadekSDB reprezentuje pr\u00e1v\u011b \u010d\u00edslo 460, skript se m\u016f\u017ee n\u011bkdy opravdu zastavit. Pokud se mi skript zasekne na tomto \u0159\u00e1dku, sta\u010d\u00ed jej nahradit \u00a0=DataSheet.Range (Cells (\u201eB4:B460\u201c)<\/em> a v\u0161e funguje skv\u011ble, mus\u00edm ale do skriptu zas\u00e1hnou a na tomto m\u00edst\u011b jej p\u0159epsat v\u00a0p\u0159\u00edpad\u011b, \u017ee se zastav\u00ed jeho b\u011bh. Pokud nahrad\u00edm \u010d\u00edslo 460 v\u00a0z\u00e1pisu pomoc\u00ed Range prom\u011bnnou PrazdnyRadekSDB t\u00edmto zp\u016fsobem =DataSheet.Range(„B4:B“ & PrazdnyRadekSDB) <\/em>(5<\/span><\/strong>)<\/span>, skript ji\u017e takov\u00e9 poruchy nevykazuje. Toto je prozat\u00edm nejslab\u0161\u00ed m\u00edsto m\u00e9 \u201eprogram\u00e1torsk\u00e9 pr\u00e1ce\u201c. Oblast<\/strong>, pro kterou hled\u00e1m shodu<\/strong> tedy vy\u017eaduje dokonal\u00e9 ur\u010den\u00ed,<\/strong> pro oblast, kde je shoda hled\u00e1na<\/strong> takov\u00e1 preciznost vy\u017eadov\u00e1na nen\u00ed, mohu tak datovou tabulku NovaDB nastavit op\u011bt velkoryseji, a proto\u017ee jsem data nat\u00e1hl na tomto listu do bu\u0148ky A1 a data za\u010d\u00ednaj\u00ed na druh\u00e9m \u0159\u00e1dku, nastavil jsem tuto oblast jako Range (\u201eA2:E5000\u201c) (6)<\/span><\/strong>. T\u00edmto m\u00e1m nastaveno, pro jak\u00e1 data hled\u00e1m shodu a v jak\u00e9 oblasti tuto shodu budu vyhled\u00e1vat. Dal\u0161\u00edm \u00fakolem, ve smyslu vzorce =SVYHLEDAT<\/em>, je nalezen\u00ed prvn\u00ed bu\u0148ky sloupce, do kter\u00e9 budu vzorec zapisovat, aby se mi pot\u00e9 zaplnily zbyl\u00e9 \u0159\u00e1dky sloupce vyhledan\u00fdmi v\u00fdrazy.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 V\u00a0m\u00e9m p\u0159\u00edpad\u011b budu cht\u00edt nejd\u0159\u00edve zapsat do sloupce Open<\/strong>, do prvn\u00edho \u0159\u00e1dku s\u00a0daty (bu\u0148ka \u201eC4\u201c) tento vzorec =SVYHLEDAT pomoc\u00ed VBA, kter\u00fd by mi vyplnil zbytek sloupce a\u017e na \u0159\u00e1dek 460 v\u0161echna<\/strong> nalezen\u00e1 shodn\u00e1 Open<\/strong> pro ka\u017ed\u00e9 stejn\u00e9 datum z tabulky pro MCD um\u00edst\u011bn\u00e9 na listu NovaDB.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0 Jedno\u0159\u00e1dkov\u00fd skript (7)<\/strong><\/span> mi prom\u011bnn\u00e9 PrvniRadek<\/strong> sd\u011bl\u00ed \u010d\u00edslo \u0159\u00e1dku, na kter\u00e9m se nach\u00e1z\u00ed bu\u0148ka, do kter\u00e9 chci zapsat vzorec =SVYHLEDAT<\/em> pomoc\u00ed VBA, a proto\u017ee nyn\u00ed chci zapisovat do bu\u0148ky \u201eC4\u201c<\/strong>, bude v\u00fdsledkem \u010d\u00edslo 4<\/strong>. Dal\u0161\u00ed \u0159\u00e1dek (8)<\/span><\/strong> obsahuje op\u011bt jedno\u0159\u00e1dkov\u00fd skript, kter\u00fd prom\u011bnn\u00e9 PrvniSloupec<\/strong> sd\u011bl\u00ed \u010d\u00edslo sloupce, na kter\u00e9m se nach\u00e1z\u00ed bu\u0148ka, do kter\u00e9 chci zapsat vzorec =SVYHLEDAT<\/em> pomoc\u00ed VBA, a proto\u017ee nyn\u00ed chci zapisovat do bu\u0148ky \u201eC4\u201c, bude v\u00fdsledkem \u010d\u00edslo 3<\/strong>. T\u00edmto m\u00e1m zji\u0161t\u011bno a ur\u010deno, kam bude sm\u011b\u0159ovat prvn\u00ed z\u00e1pis excelovsk\u00e9 funkce vyhled\u00e1vaj\u00edc\u00ed shodu pro srovn\u00e1van\u00e9 oblasti. Samotn\u00fd z\u00e1pis tohoto vzorce je pak v t\u00e9to \u010d\u00e1sti skriptu.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 M\u00e1m nyn\u00ed dal\u0161\u00ed mo\u017enost se sezn\u00e1mit s\u00a0variantou cyklick\u00e9 funkce For\u2026Next<\/strong> ve tvaru For Each\u2026Next<\/strong><\/em><\/span>. Tuto funkci mohu p\u0159e\u010d\u00edst jako \u201e\u2026pro ka\u017ed\u00fd jeden prvek v\u00a0zadan\u00e9 oblasti ud\u011blej to, co je veps\u00e1no mezi For Each a Next\u2026\u201c<\/em>. Mohu tak vypozorovat, \u017ee m\u016fj skript na\u0159izuje, aby pro ka\u017ed\u00fd prvek<\/strong> (nazval jsem jej \u201eudaj<\/strong>\u201c) v\u00a0oblasti<\/strong> nadefinovan\u00e9 jako StaraDB (9)<\/span><\/strong>,<\/span> provedl to, co je obsahem prvn\u00ed bu\u0148ky DataSheet.Cells(PrvniRadek, PrvniSloupec)<\/strong>, tedy bu\u0148ky \u201eC4\u201c (10)<\/strong><\/span>. Obsahem t\u00e9to bu\u0148ky je pak excelovsk\u00e1 funkce VLookUp<\/strong> (anglicky SVYHLEDAT) v tomto tvaru =Application.WorksheetFunction.VLookup (udaj<\/span>, NovaDB<\/span>, 2<\/span>, False)<\/em><\/strong>. Slova v z\u00e1vorce pak popisuj\u00ed p\u0159esn\u011b to, co pot\u0159ebuji, tedy pro ka\u017ed\u00fd datum star\u00e9 datov\u00e9 tabulky (udaj<\/strong><\/span>) hled\u00e1m shodu v tabulce s nov\u00fdmi daty (NovaDB<\/span><\/strong>) a chci p\u0159en\u00e9st data ze druh\u00e9ho sloupce<\/span><\/strong> t\u00e9to oblasti (ceny Open), argument False je povinn\u00fd. T\u00edmto je vy\u0159e\u0161eno zapln\u011bn\u00ed prvn\u00edho \u0159\u00e1dku hled\u00e1n\u00ed shody, pro posun na dal\u0161\u00ed \u0159\u00e1dek<\/strong> s bu\u0148kou C5 v oblasti a hled\u00e1n\u00edm shody je pak instrukce na \u0159\u00e1dku (11)<\/span>,<\/strong> po p\u0159i\u010dten\u00ed jedni\u010dky se cyklus odraz\u00ed od Next<\/em><\/strong><\/span> a vrac\u00ed se na \u0159\u00e1dek For Each<\/strong><\/em><\/span>. Vy\u010derp\u00e1n\u00edm cyklu (spot\u0159ebov\u00e1n\u00edm v\u0161ech \u0159\u00e1dk\u016f v tabulce pro hledanou shodu) se cyklus zastav\u00ed a pokra\u010duje v dal\u0161\u00edm \u010dten\u00ed skriptu. T\u00edmto jsou do star\u00e9 datov\u00e9 tabulky s daty pro GS na\u010dteny v\u0161echny ceny Open pro titul MCD se shodou pro stejn\u00e9 datum. Nen\u00ed pak \u017e\u00e1dn\u00fdm p\u0159ekvapen\u00edm, \u017ee tato procedura For Each\u2026Next<\/em> <\/strong><\/span>se bude opakovat tak\u00e9 pro sloupec s High, Low<\/strong> a pro sloupec Close.<\/strong> Celkem tedy budou patrn\u00e9 \u010dty\u0159i cykly pro ka\u017ed\u00fd sloupec zvl\u00e1\u0161\u0165.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Je patrn\u00e9, \u017ee z\u00e1pisy skriptu pro hled\u00e1n\u00ed shody pro dal\u0161\u00ed sloupce budou obdobn\u00e9, jenom se zm\u011bn\u00ed um\u00edst\u011bn\u00ed prvn\u00ed bu\u0148ky<\/strong> v sloupci, do kter\u00e9ho chci zapisovat vyhled\u00e1vac\u00ed formuli =SVYHLEDAT<\/em> pomoc\u00ed VBA (\u010derven\u00e9 \u0161ipky vlevo v obr\u00e1zku) a tak\u00e9, kter\u00e1 data<\/strong> (z kter\u00e9ho sloupce) oblasti, kde shodu vyhled\u00e1v\u00e1m chci p\u0159en\u00e1\u0161et (\u010derven\u00e9 \u0161ipky vlevo v obr\u00e1zku). \u010c\u00edsla (15), (16)<\/strong><\/span> a (17)<\/span><\/strong> pak znamenaj\u00ed odstavce skriptu, kter\u00fd za\u0159izuje vypln\u011bn\u00ed po\u017eadovan\u00fdch sloupc\u016f. Potvrzovac\u00ed ozn\u00e1men\u00ed (18)<\/strong><\/span> ohl\u00e1s\u00ed konec procedury n\u00e1hrady datov\u00fdch tabulek a makro se ukon\u010d\u00ed. Pokud v\u0161e prob\u011bhlo spr\u00e1vn\u011b, mohu vid\u011bt, \u017ee data GS jsou nahrazena daty pro MCD.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Pro v\u011bt\u0161\u00ed komfort jsem si na listu Start vyrobil dal\u0161\u00ed tla\u010d\u00edtko „Nat\u00e1hni nov\u00e1 data!!!“, kter\u00e9mu jsem p\u0159i\u0159adil toto makro, Po jeho stisknut\u00ed prob\u011bhne datov\u00e1 n\u00e1hrada, kterou mohu odsouhlasit kliknut\u00edm na \u201eok\u201c v okn\u011b ohla\u0161uj\u00edc\u00edm spln\u011bn\u00ed \u00fakolu.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Tyto data pro akciov\u00fd titul MCD pak mohu podrobit stejn\u00e9 anal\u00fdze, jakou jsem prov\u00e1d\u011bl na titulu GS<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Na listu Start<\/strong>, p\u0159\u00edstrojov\u00e9 desce m\u00e9ho se\u0161itu, pak pouze p\u0159ep\u00ed\u0161u n\u00e1zev tickeru na MCD<\/strong> a test odstartuji spu\u0161t\u011bn\u00edm makra p\u0159i\u0159azen\u00e9ho k\u00a0tla\u010d\u00edtku Spus\u0165 test!!!<\/strong> V\u00fdsledek je pak patrn\u00fd na listu Celkem.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 Mohu pak takovou sumarizaci vyhodnotit jako zji\u0161t\u011bn\u00ed, \u017ee nakupov\u00e1n\u00ed 100 akci\u00ed na pond\u011bln\u00edm Open a jejich prodej na p\u00e1te\u010dn\u00edm Close stejn\u00e9ho t\u00fddne s komis\u00ed 2 USD by bylo pro akcie MCD<\/strong> s v\u00fdsledkem +5.798,01 USD<\/strong>, co\u017e je v\u00edce ne\u017e pro stejn\u00e9 obchody na akciov\u00e9m titulu GS<\/strong>, kter\u00e9 by p\u0159inesly v\u00fdkon +3.129,01 USD<\/strong>. Stejn\u00e9 \u00fakony pak provedu na slibovan\u00fdch titulech JNJ, BAC<\/strong> a F<\/strong>. Sta\u017een\u00ed dat z Yahoo.finance, nata\u017een\u00ed do listu NovaDB, nahrazen\u00ed star\u00fdch dat nov\u00fdmi na listu Data a spu\u0161t\u011bn\u00ed anal\u00fdzy mi zabere sotva p\u011bt minut. Mohu pak odez\u00edrat na listu Celkem tyto v\u00fdsledky.<\/span><\/p>\n

\"\"<\/p>\n

\u00a0\u00a0 V grafick\u00e9m proveden\u00ed pak takto.<\/span><\/p>\n

\"\"<\/p>\n

\"\"<\/p>\n

\n

\u00a0\u00a0 S\u00e9rie \u010dl\u00e1nk\u016f o VBA, jako roz\u0161\u00ed\u0159en\u00ed funkcionalit Excelu, mo\u017en\u00e1 p\u0159ijde nez\u00e1\u017eivn\u00e1 a nudn\u00e1. Zcela z\u0159eteln\u011b si ale vybavuji, jak jsem se po prvn\u00edch pokusech si \u201en\u011bco ve VBA napsat\u201c a uleh\u010dit si tak pr\u00e1ci v\u017edy vracel na obl\u00edben\u00e9 webov\u00e9 str\u00e1nky s \u0159\u00e1dky nejr\u016fzn\u011bj\u0161\u00edch skript\u016f a hledal zp\u016fsoby, jak z t\u011bchto vy\u010dten\u00fdch znalost\u00ed n\u011bco vyt\u011b\u017eit pro \u0159e\u0161en\u00ed m\u00e9ho v\u00fdpo\u010detn\u00edho probl\u00e9mu a p\u0159izp\u016fsobit na\u010derpan\u00e9 znalosti m\u00fdm individu\u00e1ln\u00edm pot\u0159eb\u00e1m. V tomto duchu se nesou tak\u00e9 \u010dl\u00e1nky t\u00e9to minis\u00e9rie. Je nyn\u00ed \u00fapln\u011b jedno, jestli budu opravdu hledat \u0159e\u0161en\u00ed t\u00fddenn\u00edho dr\u017een\u00ed stovky akci\u00ed, proto\u017ee nejpodstatn\u011bj\u0161\u00ed zji\u0161t\u011bn\u00ed by nem\u011blo b\u00fdt pro\u010d jsem to vlastn\u011b zji\u0161\u0165oval, ale jak\u00fdm zp\u016fsobem jsem to provedl. Pokud budu ch\u00e1pat z\u00e1kladn\u00ed logiku skriptu (p\u0159ev\u00e1\u017en\u011b na n\u011bkolika m\u00e1lo \u0159\u00e1dc\u00edch) budu schopen si nejen skript opravit, kdy\u017e jeho pr\u016fb\u011bh nebude hladk\u00fd, ale zejm\u00e9na jej p\u0159izp\u016fsobit k \u0159e\u0161en\u00ed jin\u00fdch v\u00fdpo\u010detn\u00edch situac\u00ed. M\u016f\u017ee m\u011b pak napadnout t\u00e9m\u011b\u0159 cokoliv a budu schopen si takov\u00fd probl\u00e9m otestovat a vyzkou\u0161et a b\u00fdt p\u0159itom dostate\u010dn\u011b efektivn\u00ed, zejm\u00e9na z pohledu vynalo\u017een\u00e9 d\u00e1vky \u010dasu str\u00e1ven\u00e9 nad rozlousknut\u00edm vyty\u010den\u00e9ho \u00fakolu.<\/span><\/p>\n

\u00a0 \u00a0<\/strong><\/span>Koment\u00e1\u0159e a p\u0159\u00edsp\u011bvky k tomuto \u010dl\u00e1nku pros\u00edm sm\u011brujte do Diskuzn\u00edho f\u00f3ra do tohoto vl\u00e1kna<\/a><\/strong><\/span> k tomuto \u010dl\u00e1nku nebo do obecn\u011bj\u0161\u00ed diskuze o Excelu<\/a><\/strong><\/span> :c)<\/span>\u00a0<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

\u00a0\u00a0 Vyrobit anal\u00fdzu t\u0159\u00eddenn\u00edho dr\u017een\u00ed akciov\u00e9ho obchodu pomoc\u00ed Excelu je nyn\u00ed ji\u017e t\u00e9m\u011b\u0159 hra\u010dka. M\u011bnit d\u00e9lky dr\u017een\u00ed takov\u00fdch fiktivn\u00edch obchod\u016f je ji\u017e hra\u010dkou tak\u00e9, toto v\u0161echno bylo pops\u00e1no v minul\u00fdch \u010dl\u00e1nc\u00edch p\u0159i postupn\u00e9m pozn\u00e1v\u00e1n\u00ed, jak funguje z\u00e1kladn\u00ed logika a psan\u00ed VBA skript\u016f. Na p\u011btilet\u00fdch sta\u017een\u00fdch datech z Yahoo.finance jsem toto Continue Reading<\/i><\/a><\/p>\n","protected":false},"author":1,"featured_media":4783,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[57],"tags":[46],"class_list":["post-4720","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-backtestovani-a-prace-s-daty","tag-excel"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/main-2.jpg","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8zd8A-1e8","jetpack-related-posts":[{"id":4598,"url":"https:\/\/dobretrejdy.com\/?p=4598","url_meta":{"origin":4720,"position":0},"title":"Backtestov\u00e1n\u00ed v\u00a0Excelu (VBA) \u2013 IV.","author":"dobretrejdy :c)","date":"4.7.2020","format":false,"excerpt":"\u00a0\u00a0 V\u00a0\u010dl\u00e1nku Backtestov\u00e1n\u00ed v\u00a0Excelu (VBA) \u2013 II. jsem popsal, jak v Excelu otev\u0159\u00edt kartu V\u00fdvoj\u00e1\u0159 a jak vytvo\u0159it prvn\u00ed makro. Toto makro vygenerovalo VBA skript, abych pot\u00e9 napsal, \u017ee nebudu makra zaznamen\u00e1vat, aby mi tvo\u0159ila VBA skript, ale budu postupovat p\u0159esn\u011b naopak, tedy ps\u00e1t VBA skript pro vytvo\u0159en\u00ed makra. Takovou\u2026","rel":"","context":"V \u201eBacktestov\u00e1n\u00ed a pr\u00e1ce s daty\u201c","block_context":{"text":"Backtestov\u00e1n\u00ed a pr\u00e1ce s daty","link":"https:\/\/dobretrejdy.com\/?cat=57"},"img":{"alt_text":"","src":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/Main.jpg?resize=350%2C200&ssl=1","width":350,"height":200,"srcset":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/Main.jpg?resize=350%2C200&ssl=1 1x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/Main.jpg?resize=525%2C300&ssl=1 1.5x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/Main.jpg?resize=700%2C400&ssl=1 2x"},"classes":[]},{"id":4483,"url":"https:\/\/dobretrejdy.com\/?p=4483","url_meta":{"origin":4720,"position":1},"title":"Backtestov\u00e1n\u00ed v\u00a0Excelu (VBA) \u2013 II.","author":"dobretrejdy :c)","date":"25.6.2020","format":false,"excerpt":"\u00a0\u00a0 Pot\u0159ebuji zjistit, jak se chov\u00e1 n\u00e1kup Put Bear Spreadu s Long Put na ATM strike a vypsanou opc\u00ed o t\u0159i strike n\u00ed\u017ee, po\u0159izovan\u00fd ka\u017ed\u00e9 pond\u011bl\u00ed na weeklys opc\u00edch s expirac\u00ed v p\u00e1tek stejn\u00e9ho t\u00fddne za posledn\u00edch p\u011bt let na titulu JNJ, k tomu chci zjistit to sam\u00e9, ale pro\u2026","rel":"","context":"V \u201eBacktestov\u00e1n\u00ed a pr\u00e1ce s daty\u201c","block_context":{"text":"Backtestov\u00e1n\u00ed a pr\u00e1ce s daty","link":"https:\/\/dobretrejdy.com\/?cat=57"},"img":{"alt_text":"","src":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-1.jpg?resize=350%2C200&ssl=1","width":350,"height":200,"srcset":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-1.jpg?resize=350%2C200&ssl=1 1x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-1.jpg?resize=525%2C300&ssl=1 1.5x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-1.jpg?resize=700%2C400&ssl=1 2x"},"classes":[]},{"id":4656,"url":"https:\/\/dobretrejdy.com\/?p=4656","url_meta":{"origin":4720,"position":2},"title":"Backtestov\u00e1n\u00ed v\u00a0Excelu (VBA) \u2013 V.","author":"dobretrejdy :c)","date":"12.7.2020","format":false,"excerpt":"\u00a0\u00a0 V\u00fdroba makra pomoc\u00ed skriptu a z\u00e1kladn\u00ed poznatky o jeho zaps\u00e1n\u00ed pomoc\u00ed VBA (kde a jak), operace s bu\u0148kami a jej\u00edmi oblastmi, pr\u00e1ce s listy excelovsk\u00e9ho se\u0161itu, cyklick\u00e1 funkce a prvn\u00ed anal\u00fdza historick\u00fdch dat (prozat\u00edm intradenn\u00ed dr\u017een\u00ed akci\u00ed) pomoc\u00ed velmi jednoduch\u00e9 automatizace pr\u00e1ce vytvo\u0159en\u00fdm VBA skriptem. To by mohlo b\u00fdt\u2026","rel":"","context":"V \u201eBacktestov\u00e1n\u00ed a pr\u00e1ce s daty\u201c","block_context":{"text":"Backtestov\u00e1n\u00ed a pr\u00e1ce s daty","link":"https:\/\/dobretrejdy.com\/?cat=57"},"img":{"alt_text":"","src":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/main-1.jpg?resize=350%2C200&ssl=1","width":350,"height":200,"srcset":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/main-1.jpg?resize=350%2C200&ssl=1 1x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/main-1.jpg?resize=525%2C300&ssl=1 1.5x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/07\/main-1.jpg?resize=700%2C400&ssl=1 2x"},"classes":[]},{"id":4884,"url":"https:\/\/dobretrejdy.com\/?p=4884","url_meta":{"origin":4720,"position":3},"title":"Backtestov\u00e1n\u00ed v\u00a0Excelu (VBA) \u2013 VIII.","author":"dobretrejdy :c)","date":"2.9.2020","format":false,"excerpt":"\u00a0\u201e\u2026Pot\u0159ebuji zjistit, jak se chov\u00e1 n\u00e1kup Put Bear Spreadu s\u00a0Long Put na ATM strike a vypsanou opc\u00ed o t\u0159i strike n\u00ed\u017ee, po\u0159izovan\u00fd ka\u017ed\u00e9 pond\u011bl\u00ed na weeklys opc\u00edch s\u00a0expirac\u00ed v\u00a0p\u00e1tek stejn\u00e9ho t\u00fddne za posledn\u00edch p\u011bt let na titulu JNJ, k\u00a0tomu chci zjistit to sam\u00e9, ale pro t\u0159\u00edstrikov\u00fd Call Bull Spread na\u2026","rel":"","context":"V \u201eBacktestov\u00e1n\u00ed a pr\u00e1ce s daty\u201c","block_context":{"text":"Backtestov\u00e1n\u00ed a pr\u00e1ce s daty","link":"https:\/\/dobretrejdy.com\/?cat=57"},"img":{"alt_text":"","src":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/09\/main.jpg?resize=350%2C200&ssl=1","width":350,"height":200,"srcset":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/09\/main.jpg?resize=350%2C200&ssl=1 1x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/09\/main.jpg?resize=525%2C300&ssl=1 1.5x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/09\/main.jpg?resize=700%2C400&ssl=1 2x"},"classes":[]},{"id":4525,"url":"https:\/\/dobretrejdy.com\/?p=4525","url_meta":{"origin":4720,"position":4},"title":"Backtestov\u00e1n\u00ed v Excelu (VBA) \u2013 III.","author":"dobretrejdy :c)","date":"28.6.2020","format":false,"excerpt":"\u00a0 \u00a0V minul\u00e9m \u010dl\u00e1nku jsem nazna\u010dil, jak si uleh\u010dit pomoc\u00ed z\u00e1znamu makra n\u011bjakou po\u010detn\u00ed \u00falohu a zjistil, \u017ee tento z\u00e1znam mi v excelovsk\u00e9m se\u0161itu na kart\u011b \u201eV\u00fdvoj\u00e1\u0159\u201c a po kliknut\u00ed na n\u00e1stroj \u201eVisual Basic\u201c otev\u0159el tu \u010d\u00e1st aplikace Excelu, kde jsem mohl objevit zaznamenan\u00e9 makro ve form\u011b VBA skriptu. Tak\u00e9\u2026","rel":"","context":"V \u201eBacktestov\u00e1n\u00ed a pr\u00e1ce s daty\u201c","block_context":{"text":"Backtestov\u00e1n\u00ed a pr\u00e1ce s daty","link":"https:\/\/dobretrejdy.com\/?cat=57"},"img":{"alt_text":"","src":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-2.jpg?resize=350%2C200&ssl=1","width":350,"height":200,"srcset":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-2.jpg?resize=350%2C200&ssl=1 1x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-2.jpg?resize=525%2C300&ssl=1 1.5x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2020\/06\/main-2.jpg?resize=700%2C400&ssl=1 2x"},"classes":[]},{"id":825,"url":"https:\/\/dobretrejdy.com\/?p=825","url_meta":{"origin":4720,"position":5},"title":"Backtestov\u00e1n\u00ed v Excelu – I.","author":"dobretrejdy :c)","date":"9.10.2017","format":false,"excerpt":"\u00a0\u00a0\u00a0 Dostal jsem n\u011bkolik dotaz\u016f, jak\u00fdm zp\u016fsobem by bylo mo\u017en\u00e9 otestovat na historick\u00fdch datech smysluplnost n\u011bjak\u00e9 op\u010dn\u00ed strategie. Podstatou t\u011bchto dotaz\u016f je existence z\u00e1kladn\u00edho probl\u00e9mu, kter\u00fdm je dostupnost historick\u00fdch op\u010dn\u00edch dat pro nejb\u011b\u017en\u011bj\u0161\u00ed obchodovan\u00e9 tituly. Ve chv\u00edli, kdy p\u00ed\u0161u tento \u010dl\u00e1nek, tak mohu t\u00e9m\u011b\u0159 s\u00a0jistotou tvrdit, \u017ee krom\u011b jedin\u00e9ho zdroje,\u2026","rel":"","context":"V \u201eBacktestov\u00e1n\u00ed a pr\u00e1ce s daty\u201c","block_context":{"text":"Backtestov\u00e1n\u00ed a pr\u00e1ce s daty","link":"https:\/\/dobretrejdy.com\/?cat=57"},"img":{"alt_text":"","src":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2017\/10\/obr-1.jpg?resize=350%2C200&ssl=1","width":350,"height":200,"srcset":"https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2017\/10\/obr-1.jpg?resize=350%2C200&ssl=1 1x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2017\/10\/obr-1.jpg?resize=525%2C300&ssl=1 1.5x, https:\/\/i0.wp.com\/dobretrejdy.com\/wp-content\/uploads\/2017\/10\/obr-1.jpg?resize=700%2C400&ssl=1 2x"},"classes":[]}],"_links":{"self":[{"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/posts\/4720","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4720"}],"version-history":[{"count":14,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/posts\/4720\/revisions"}],"predecessor-version":[{"id":7293,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/posts\/4720\/revisions\/7293"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=\/wp\/v2\/media\/4783"}],"wp:attachment":[{"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4720"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4720"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dobretrejdy.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4720"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}

\u00a0\u00a0 Nyn\u00ed tak ji\u017e m\u00e1m p\u0159ipraven\u00e1 sta\u017een\u00e1 data v\u00a0uskupen\u00ed, kde prvn\u00ed sloupec tabulky znamen\u00e1 konkr\u00e9tn\u00ed datum v\u00a0historii akcie GS s\u00a0dal\u0161\u00edmi \u010dty\u0159mi sloupci s cenov\u00fdmi \u00fadaji tohoto dne historie (Open, High, Low a Close) ve tvaru \u010desk\u00e9ho \u010d\u00edsla s\u00a0desetinou \u010d\u00e1rkou. Prvn\u00ed konkr\u00e9tn\u00ed \u00fapravou je pak zji\u0161t\u011bn\u00ed, jak\u00fd je<\/strong> n\u00e1zev dne<\/strong> v\u00a0t\u00e9to \u010dasov\u00e9 \u0159ad\u011b. Nebude to nic obt\u00ed\u017en\u00e9ho, proto\u017ee vyu\u017eiji klasickou excelovskou funkci =HODNOTA.NA.TEXT<\/em><\/strong>, kter\u00e1 um\u00ed p\u0159ev\u00e9st datum na n\u00e1zev dne v t\u00fddnu a kterou jsem ji\u017e popisoval v \u00fapln\u011b prvn\u00edm \u010dl\u00e1nku<\/a><\/strong><\/span> na tomto webu o jednoduch\u00e9m vyu\u017eit\u00ed Excelu pro anal\u00fdzu n\u011bjak\u00e9ho op\u010dn\u00edho n\u00e1padu. Tato funkce by potom p\u0159i pou\u017eit\u00ed v\u00a0klasick\u00e9m Excelu m\u011bla takov\u00fd tvar.<\/span><\/p>\n