For a = 1 To 50 Step 2
Range(Cells(a, 1), Cells(a, 5)).Interior.ColorIndex = 5'modrá barva
Next a
6 = žlutá
3 = červená
atd
Ještě jednou Vám chci poděkovat za pomoc.
Proč jsem potřebovala pořešit ty Velikonoce Vám jako můj soubor přikládám. Doslova mne to irituje, že si nevím rady jak ten výraz správně napsat ve VBA, bo v Excelu ten vzoreček pracuje O.K. a je malý, řeší i těch zmíněných 19 let. Budete-li mít náladu mrkněte na ten soubor
Tak jsem to našla!
http://cs.wikipedia.org/wiki/V%C3%BDpo%C4%8Det_data_Velikonoc
Zde je ta zmínka 19ti let. stejně děkuji POKImu za vše, je nejlepší a ráda koukám na jeho rady.
Díky Zdena
Bylo by to super, jenže každých 19 let se výpočet proti vzorci v Excelu liší, počínaje r.1919 až 2033 atd. Kdy byly velikonoce v r.1957 pro kontrolu nezjistím. Kde je chyba?
Nicméně děkuji za ten vzoreček, je funční! Zda je výpočet správný; na tom se nyní pracuje.
Ještě jednou díky za ochotu a hlavně rychlost.
S úctou Zdena
Asi jsem se špatně vyjádřila. Ten výpočet má proběhnout v makru VBA, NE jej vložit jako funkci do sešitu. Režim MOD je ve VBA zcela jiný a ať laboruji, stejně se mi to nedaří sestavit. Děkuji za pomoc
Prosím, může mi někdo pomoci napsat vzorec pro stanovení velikonoc v modu pro VBA. Uvedený vzorec pro výpočet "KČ(("4/"&A1)/7+MOD(19*MOD(A1;19)-7;30)*14%;)*7-5" pracuje pouze v Excelu, nevím si rady jak jej převést do VBA, abych jej mohla použít.
Děkuji všem
Děkuji za ochotu.
Dle uvedené stránky jsem musel doplnit TYP Memorystatus a následně mi vše PC vypíše.
Nutno opravit zadání msg, ale to je již maličkost.
Bez doplnění TYPu to neustále řvalo, jako chybná kompilace atd.
Ještě jednou děkuji za vše, super. S pozdravem Josef
P.S. Klobouk dolů Poki
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.