VBA, FormulaR1C1 a podmínka když

C++, C#, Visual Basic, Delphi, Perl a ostatní

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod Martininos1 21. 4. 2020 09:57

Dobrý den všem,

i přes velké vynaložene úsilí nejsem schopen objevit chybu na následujícím řádku:

Range("K" & radek).FormulaR1C1 = "=Když(RC[-2]=100;""Close"";""Open"")"

Chybová hláška je celkem obecná - 1004...

Děkuji za jakoukoli pomoc,

Martin
Martininos1
Kolemjdoucí

Odeslat příspěvekod Just_jo 21. 4. 2020 12:26

Aktuálně tu nemám MS Office - pouze Open/Libre Office a to je už rozdíl.

Nejsem si jistý, jestli lze použít ve VBA českou verzi "Když" - nepomůže tam nechat "IF"?
Just_jo
Junior
Uživatelský avatar

Odeslat příspěvekod Martininos1 21. 4. 2020 12:40

Bohužel i když zaměním za IF reaguje stejnou chybou. Když vezmu text v uvozovkách a u stavů nahradím dvojité uvozovky za jednoduché a zadm ho ruční cestou do buňky, vše funfuje.
Martininos1
Kolemjdoucí

Odeslat příspěvekod fatman 21. 4. 2020 13:02

Je v možnostech přepnuto na styl odkazu R1C1? (Možnosti - Vzorce)
"Věřím v reinkarnaci, jakožto nutnou likvidaci materialisace lidské idealisace, bez vyloučení sensace!"
(J. Váchal, Krvavý román)
fatman
Junior
Uživatelský avatar

Odeslat příspěvekod Martininos1 21. 4. 2020 13:05

Záhada odhalena: můsí být zapsáno:

Range("K" & radek).FormulaR1C1 = "=IF(RC[-2]=100,""Close"",""O­pen"")"

Tedy středníky, normálně používané v přímém zadání do buňky byly chybou...

Děkuji,
Martininos1
Kolemjdoucí

Odeslat příspěvekod Just_jo 21. 4. 2020 13:09

Našel jsem pár fór, kde se zmiňují, jestli je ve sloupci pro "KDYŽ" opravdu číslo.
Prý ta hláška vyskočí, když je tam něco špatně ( závorky, středníky ... ), což v tomto nevidím - i dvoj uvozovky tam máš.

Nemohl bys to nějak rozkouskovat abys odhalil chybu? Tj. místo "Range( "K"
& radek" použít přímo "K5" a místo FormulaR1C1 zkusit jen Formula a místo RC[-2] hodit "I5"
Zkrátka postupně odkrokovat kde to dělá chybu. Někde to vážně dělá jen proto, že ta Formula je špatně napsaná.

Bohužel tu opravdu nemám MS Office ( musel bych do práce )
Just_jo
Junior
Uživatelský avatar


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků