Excel - spuštění požadovaného makra při změně hodnoty buněk

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Odpovědět
Dominik556
nováček
Příspěvky: 2
Registrován: 29 led 2018 10:19

Excel - spuštění požadovaného makra při změně hodnoty buněk

Příspěvek od Dominik556 »

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ěď.
guest

Re: Excel - spuštění požadovaného makra při změně hodnoty buněk

Příspěvek od guest »

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

Příspěvek od Dominik556 »

Chápu, ale jak to mám zapsat? :)
Uživatelský avatar
elninoslov
Level 2.5
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

Příspěvek od elninoslov »

čistý tip bez skúšky ...

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 Sub
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ď...
Odpovědět
  • Podobná témata
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Přechod z Excel 21 na Excel 24
    od Snekment » » v Kancelářské balíky
    2 Odpovědi
    14458 Zobrazení
    Poslední příspěvek od Snekment
  • Spuštění PC
    od Elbeckho » » v Problémy s hardwarem
    11 Odpovědi
    7074 Zobrazení
    Poslední příspěvek od Kminek
  • Chybová hláška your device ran into a problem and needs to restart při spuštění pc
    od nevim1050 » » v Vše ostatní (hw)
    8 Odpovědi
    14433 Zobrazení
    Poslední příspěvek od nevim1050
  • Pohoda a excel
    od brownwld » » v Kancelářské balíky
    1 Odpovědi
    7380 Zobrazení
    Poslední příspěvek od atari
  • Excel 2016 - vzorec kombinace podmínek
    od MK_Vs » » v Kancelářské balíky
    5 Odpovědi
    6178 Zobrazení
    Poslední příspěvek od lubo.

Zpět na „Kancelářské balíky“