Přeskočit navigaci | Přeskočit na novinky
     

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

Událostí listu - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

aneb událostí pro Worksheet

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í

Stručný popis včetně deklarace jednotlivých událostí, spolu s odkazem na článek týkající se konkretní událostí (pokud je napsán).

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

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

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ů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

" ; echo "google_adtest=\"on\"; " ; echo "" ; echo "TEST REKLAMNIHO SYSTEMU" ; } else { echo "" ; } ?>

Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>

" ; echo "google_adtest=\"on\"; " ; echo "" ; echo "TEST REKLAMNIHO SYSTEMU" ; } else { echo "" ; } ?>



Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2020 |