Zdravím ve spolek,
po přečtení několika návodů už vím, že lze požadované makro spustit pomocí změny hodnoty buňky. Používám událostní proceduru:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
Set Cll = Intersect(Target, Range("A1:A3"))
If Cll Is Nothing Then Exit Sub
Call nazev_makra
End Sub
Chtěl bych se zeptat zda lze, případně jak, upravit událostní proceduru tak, aby se spuštěla požadované makra v závislosti změn různých buněk.
Např.: když se změní buňky A1:A3 - spustí se makro_1, při změně buněk B1:B3 se spustí makro_2, při změně buněk C1:C3 se spustí makro_3, atd.
Předem děkuji za odpověď.
Excel - spuštění požadovaného makra při změně hodnoty buněk
Moderátor: Mods_senior
-
Dominik556
- nováček
- Příspěvky: 2
- Registrován: 29 led 2018 10:19
-
guest
Re: Excel - spuštění požadovaného makra při změně hodnoty buněk
No zkrátka to, co tam testujete s jednou oblastí, zopakujete i pro ostatní.
-
Dominik556
- nováček
- Příspěvky: 2
- Registrován: 29 led 2018 10:19
Re: Excel - spuštění požadovaného makra při změně hodnoty buněk
Chápu, ale jak to mám zapsat? :)
- elninoslov
- Level 2.5

- Příspěvky: 386
- Registrován: 12 čer 2013 23:40
Re: Excel - spuštění požadovaného makra při změně hodnoty buněk
čistý tip bez skúšky ...
Ale nemôžete to takto rozširovať večne, bude to pomalé. Skôr treba prehodnotiť, čo chcete vôbec konkrétne robiť, akú oblasť kontrolovať, akú náväznosť majú na dané oblasti makrá, a hlavne či sa nedá použiť jedno parametrizované makro na všetky oblasti.
atď...
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
if Not Intersect(Target, Range("A1:A3")) Is Nothing then Call nazev_makra_1
if Not Intersect(Target, Range("B1:B3")) Is Nothing then Call nazev_makra_2
if Not Intersect(Target, Range("C1:C3")) Is Nothing then Call nazev_makra_3
End Subatď...
-
- Podobná témata
- Odpovědi
- Zobrazení
- Poslední příspěvek
