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

Dominik556
nováček
Příspěvky: 2
Registrován: leden 18
Pohlaví: Muž

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

Příspěvekod Dominik556 » 29 led 2018 10:30

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



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 818
Registrován: červenec 11
Pohlaví: Muž

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

Příspěvekod xlnc » 29 led 2018 12:28

No zkrátka to, co tam testujete s jednou oblastí, zopakujete i pro ostatní.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Dominik556
nováček
Příspěvky: 2
Registrován: leden 18
Pohlaví: Muž

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

Příspěvekod Dominik556 » 29 led 2018 15:59

Chápu, ale jak to mám zapsat? :)

Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 154
Registrován: červen 13
Pohlaví: Muž

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

Příspěvekod elninoslov » 29 led 2018 23:47

č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ď...


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Automatické spuštění makra po změně buňky
    od Wertigo » 27 zář 2017 10:14 » v Kancelářské balíky
    3
    597
    od Wertigo
    29 zář 2017 08:31
  • Excel-zakázat zápis do buněk po dosažení hodnoty v součtovém řádku
    od tondasa » 22 lis 2017 09:06 » v Kancelářské balíky
    1
    306
    od lubo.
    22 lis 2017 14:41
  • VBA makra Excel
    od Dawyck » 29 pro 2017 17:19 » v Kancelářské balíky
    3
    378
    od Dawyck
    29 pro 2017 20:45
  • Excel - VBA - sloučení buňek
    od Albeda » 15 pro 2017 13:04 » v Kancelářské balíky
    2
    421
    od Albeda
    20 pro 2017 07:47
  • EXCEL - Přidělení bodů podle velikosti hodnoty
    od Petrfoo » 15 bře 2018 22:18 » v Kancelářské balíky
    0
    392
    od Petrfoo
    15 bře 2018 22:18

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host