rysekl

Excel VBA makro – tisk všech možností podmíněného seznamu, jak upravit vzorec/makro?

Dobrý den,

potřeboval bych poradit, jak upravit makro tak, aby fungovalo s podmíněným seznamem v Excelu. Chyba se objevuje v řádku Set xRgVList = Evaluate(xRg.Validation.Formula1) z důvodu, že seznam vytvářím s pomocí vzorce NEPŘÍMÝ.ODKAZ. Pokud vzorec vyměním seznamem z přesně určené tabulky, vše funguje jak má. Využití nepřímého odkazu je však nutné, jelikož se jedná o podmíněný seznam. Přikládám kód z VBA.

Sub Iterate_Through_data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets(„Nový_2018_VB“).Range(„D4“)
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub

DOPLNĚNÍ:

aby to bylo jednodušší, zde odkaz na jednoduchý dokument, který vysvětluje, co vlastně chci. Je v něm i makro, které jsem použil a princip, ze kterého vycházím: http://leteckaposta.cz/424369011
Bohužel z důvodu GDPR nemohu použít přímo dokument, který potřebuji upravit, ale tento je úplně stejný, jen s jinými daty.

Upravil/a: rysekl

Odpovědět

Zajímavá 1 před 1793 dny

Sledovat Nahlásit

Diskuze: napište první příspěvek

Nejlepší odpověď

Alesh

nahoď sem ty vzorce, fungující i ten nefungující vzorec

Jak to tak zkoumám, tak problém je asi jen v té češtině ve vzorci, prostě chroustá to jen anglické vzorce. Pokud se tedy chceš držet tohoto již navrženého postupu, tak je nutné to řešit např. takto:

toto:
Set xRgVList = Evaluate(xRg.Validation.Formula1)

nahradit tímto:
Set xRgVList = Evaluate(„=INDIRECT($A$2)“)

On je totiž problém, že zatímco u buněk si lze nechat vypsat jak originální, tak lokální vzorec, tak u toho ověření lze vypsat jen lokální a naopak ta funkce Evaluate zas umí vyhodnotit jen originální (anglický) vzorec. Pro přeložení by šlo třeba použít nějakou buňku, ale to je takové ještě divnější řešení, než to vložení vzorce natvrdo do makra.
Pak je variantou to úplně přepsat, ale to bych musel vědět, jak si to přesně představuješ, abych ti mohl pomoct. Já osobně bych ty seznamy přes formuláře, to by bylo takové víc profi, třeba už v tom, že změnou země hned načteš platná města (a nebude ti tam viset to město ze státu, který byl vybrán před změnou země).

Upravil/a: Alesh

2 před 1796 dny

0 Nominace Nahlásit

Další odpovědi

Dochy

Popravdě už dlouho jsem s VBA makry nedělal, tak nevylučuji, že budu úplně mimo.

Domnívám se, že Excel není schopen/brání se zjistit že je nutné provést makro protože došlo někde v tabulce ke změně. Zkrátka některé konstrukce vůbec nedovolí, protože by (čistě teoreticky) mohlo dojít k nesprávnému vyhodnocení nebo zacyklení výpočtu. Pak bys musel sám provést to vyhodnocení odkazu v makru a nenechávat to na excelu.

Ber to prosím jen jako myšlenku vhodnou k prověření, možná jsem opravdu mimo…

1 před 1797 dny

0 Nominace Nahlásit

Diskuze k otázce

U otázky nebylo diskutováno.

Nový příspěvek

Zajímavé otázky v kategorii Počítače a internet