Ty máš dve rovnaké Makra? ZmenPromennou?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: vratit proměnnou
MS Excel
Téma: vratit proměnnou 
Zaslal/a PavDD 13.1.2024 21:48
Zdravím.
Pomocí makra : Call ZmenPromennou (hodnotaX) , dokážu zavolat druhé makro ZmenPromennou , kde se tato hodnotaX kodem změní, ale nedokážu ji vrátit mateřskému Makru zpět. Je na to nějaký fígl ? Ta změněná se mi při ukončení ZmenPromennou ztratí.
Díky
P
"Je na to nějaký fígl ?"
Áno, v rekurzii je - ByRef deklarácia premennej.
Ide len o to, ktorí predok má dostať zmenenú hodnotu. Každý? Ak iba priamy predok a nie aj ďalší pred ním, tak sa musí urobiť kópia premennej do lokálnej premennej a tá sa odošle ako ByRef parameter.
Uveďte presný príklad použitia a požadovaného správania, nech sa vysomárime.citovat
Áno, v rekurzii je - ByRef deklarácia premennej.
Ide len o to, ktorí predok má dostať zmenenú hodnotu. Každý? Ak iba priamy predok a nie aj ďalší pred ním, tak sa musí urobiť kópia premennej do lokálnej premennej a tá sa odošle ako ByRef parameter.
Uveďte presný príklad použitia a požadovaného správania, nech sa vysomárime.citovat
Asi už jsem na to přišel.
Když předávám Byref tak se mi ta hodnota zmenená i vrátí zpet a Byval zustane jen v tom druhem makru. Je to tak?.citovat
Když předávám Byref tak se mi ta hodnota zmenená i vrátí zpet a Byval zustane jen v tom druhem makru. Je to tak?.citovat
...tak asi nee
hodnoty se mi nevrátí, proč?
PrvniPrazdnyR
PosledniPlnyRadek
hodnoty se mi nevrátí, proč?
PrvniPrazdnyR
PosledniPlnyRadek
Příloha: 
55941_predej-promennou-a-vrat-ju.zip (18kB, staženo 5x)
citovat55941_predej-promennou-a-vrat-ju.zip (18kB, staženo 5x)V Tool -> Options na kartě Editor zaškrtni checkbox "Require Varible Declaration"
To tě dokope řádně deklarovat proměnné. Při předávání parametrů dávej pozor na jejich pořadí. Porovnej si kódy mezi sebou.
To tě dokope řádně deklarovat proměnné. Při předávání parametrů dávej pozor na jejich pořadí. Porovnej si kódy mezi sebou.
Příloha: 55942_predej-promennou-a-vrat-ju.zip (18kB, staženo 5x)
citovat55942_predej-promennou-a-vrat-ju.zip (18kB, staženo 5x)Parametry se do procedury/funkce, musí vždy předávat v pořadí v jakém jsou v dané proceduře/funkci deklarovány.
Pokud je parametr v proceduře/funkci označen jako volitelný (Optional) pak se nemusí předat a při volání procedury/funkce musí být "nevyplněn".
např.:
Sub Test
Dim parametr1 as Long, parametr3 as Long
Dim coVrati as long
parametr1=5
parametr3=10
coVrati= mujTest(parametr1, , parametr3) ' součet parametr1+parametr3
'coVrati=15
coVrati= mujTest(parametr1, False, parametr3) 'rozdíl parametr1-parametr3
'coVrati=-5
End sub
Function mujTest(param1, Optional param2=True,param3)
...
if param2 then
mujTest=param1+param3
else
mujTest=param1-param3
endif
End functioncitovat
Pokud je parametr v proceduře/funkci označen jako volitelný (Optional) pak se nemusí předat a při volání procedury/funkce musí být "nevyplněn".
např.:
Sub Test
Dim parametr1 as Long, parametr3 as Long
Dim coVrati as long
parametr1=5
parametr3=10
coVrati= mujTest(parametr1, , parametr3) ' součet parametr1+parametr3
'coVrati=15
coVrati= mujTest(parametr1, False, parametr3) 'rozdíl parametr1-parametr3
'coVrati=-5
End sub
Function mujTest(param1, Optional param2=True,param3)
...
if param2 then
mujTest=param1+param3
else
mujTest=param1-param3
endif
End functioncitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články