Tweet

Událostí listu - Excel VBA

Seznam dostupných událostí

Každý list má k dispozici několik událostí. V novějších verzích MS Excelu přibývají další údálosti (původní stále zůstavají), které Vám dále zpřijemní práci s MS Excelem. Seznam dostupnýh událostí pro verzi Excel 2010:

• Activate
• BeforeDoubleClick
• BeforeRightClick
• Calculate
• Deactivate
• FollowHyperlink
• Change
• PivotTableAfterValueChange
• PivotTableBeforeAllocateChanges
• PivotTableBeforeCommitChanges
• PivotTableBeforeDiscardChanges
• PivotTableChangeSync
• PivotTableUpdate
• SelectionChange

Událostí sešitu popíšu v dalším článku.

Pořadí událostí

Když nastane na listě nějaká změna, může dojít k "odchycení několika událostí. Jednotlivé událostí mají přesně nastavené pořadí v jakém se vykonají tj.:

1. Calculate Worksheet_Calculate
2. Change Worksheet_Change
3. SelectionChange Worksheet_SelectionChange

Přehled událostí

Activate

Probíha při aktivaci listu. Můžeme například zobrazit formulář.

Private Sub Worksheet_Activate() End Sub

BeforeDoubleClick

Procedura bude provedena před dvojitým kliknutím myší.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) End Sub

Událostí listu Worksheet_BeforeDoubleClick - prakticky, včetně ukázek kódu.

BeforeRightClick

Procedura bude provedena před kliknutím pravým tlačítekm. Například na buňku.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) End Sub

Událostí listu Worksheet_BeforeRightClick, - prakticky, včetně ukázek kódu.

Calculate

Událost nastene po přepočítaní listu. Používá se v případě že nelze na 100% předpokládat, že se provede událost Change.

Private Sub Worksheet_Calculate() End Sub

Worksheet_Calculate - událost listu - prakticky, včetně ukázek kódu spolu s informaci jak ošetřit připadné chyby.

Deactivate

Procedura bude provedena před deaktivaci listu.

Private Sub Worksheet_Deactivate() End Sub

FollowHyperlink

Procedura provedna před kliknutím na hypertextový odkaz.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) End Sub

Worksheet_Change

změna obsahu buněk. Tato funkce je využívana nejčastěji. Tato událost nastane ať změnu provede uživatel (tím, že něco přepíše) nebo VBA (program), nebo dojde k aktualizaci z vnějšího zdroje. K této událostí ale nedojde přidateli do listui graf, nebo přes menu vymážete formáty.

Private Sub Worksheet_Change(ByVal Target As Range) End Sub

Poznámka: Pozor na vzajemné použití Change a Calculate... ať neskončí ve smyččce (nekonečném cyklu).

Worksheet_Change - událost listu - prakticky, včetně ukázek kódu a jak ošetřit připadné chyby.

PivotTableAfterValueChange

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range) End Sub

PivotTableBeforeAllocateChanges

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) End Sub

PivotTableBeforeCommitChanges

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) End Sub

PivotTableBeforeDiscardChanges

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long) End Sub

PivotTableChangeSync

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable) End Sub

PivotTableUpdate

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) End Sub

SelectionChange

Procedura bude provedena než bude provedena změna výběru buněk.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub

Závěrem

Podrobnější příklady dle požadavku v komentářích jednotlivých článku, jež se týkají konkretní událostí.

Č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 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře