Worksheet_Change - událost listu

Úvodem do Worksheet_Change

Tato událost je jednou z nejpoužívanějších při programování ve VBA. Reaguje na změny provedené na listu. Její deklarace je:

Private Sub Worksheet_Change(ByVal Target As Range)

Příklad 1

Jednoduchý kód který při změně na listu vyvolá dialogové okno s hláškou: Došlo ke změně na listu.

Private Sub Worksheet_Change(ByVal Target As Range) MsgBox ("Došlo ke změně na listu.") End Sub

Zacyklení Worksheet_Change

Zacyklení příklad

Příklad: Provede se změna na listu tato vyvolá událost, která provede změnu na listě, ale tato změna je změnou na listu což provede opět událost ... takže jste v nekonečné smyčce. Proto pokud tato událost provádí na listě změnu musí dojít k dočasnému vypnutí...

V ukázce je chyba která kousne Excel !! Private Sub Worksheet_Change(ByVal Target As Range) Range("C5").Select ActiveCell.FormulaR1C1 = "test" End Sub

Zamezení Zacyklení

Pro zamezení zacyklení slouží příkaz: Application.EnableEvents nejprve FALSE a poté vrrácení na TRUE.

Application.EnableEvents = False ... Potřebná změna v buňce ... Application.EnableEvents = True

Příklad 2

Kód zapíše do buňky A1 Správne heslo., pokud do buňky B2 bude zadano HESLO, jinak zapíše do A1 text Nesprávné heslo.

Private Sub Worksheet_Change(ByVal Target As Range) If Range("B2").Value = "HESLO" Then Application.EnableEvents = False Range("A1").Select ActiveCell.FormulaR1C1 = "Správne heslo." Application.EnableEvents = True Else Application.EnableEvents = False Range("A1").Select ActiveCell.FormulaR1C1 = "Nesprávné heslo." Application.EnableEvents = True End If End Sub

Závěrem

Máte nějaké zajímavé příklady, které používají událost Worksheet_Change (změna listu)? Můžete doplnit do komentářů.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.