Jste zde: Úvodní stránka » excel » vba-listy-sheet » udalosti-listu-excel-vba

Události listu - Excel VBA

Seznam dostupných události

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

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

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

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

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

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

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álosti 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).

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.

Článek byl aktualizován: 23.02.2012 17:59

---

---

Další články k tématu

• Události listu - právě čtete
• Práce s listy sheet (přidat, smazat)
• Hlavička patička v listech
• Formátovácí znaky - hlavičky patičky

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.

Nejnovější článek

Nejčtenější článek