|
Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Událost, která reaguje na změnu označení buňky/buněk.
Událost Worksheet_SelectionChange, která reaguje na změnu označení buňky. Takže událost se provede při přechodu z buňky do buňky, označení několika buněk, změna označené oblasti buněk.
Využití v případě, že potřebujete mít přehled při změně označených buněk.
Deklarace
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
Pro první vyzkoušení můžete při každé změně označení buňky použít vyvolání zprávy pomocí dialogového okna.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
MsgBox ("Nastala požadovaná událost")
c = 2
End Sub
Stačí, aby VBA kód spustil dialogový box s informací, když tato událost nastane.
Private Sub Worksheet_SelectionChange()
MsgBox ("Změna Worksheet_SelectionChange")
End Sub
Takto si ověříte, zda se událost Worksheet_SelectionChange spusti ve Vámi požadovaný okamžik.
Další informace o událostech listu jsou v souhrném článku: Události listu v MS Excel VBA - Pro další náměty k čemu využíváte událost SelectionChange jsou k dispozici komentáře.
Článek byl aktualizován: 19.09.2020 11:07
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.
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ů.
Přidáno: 06.02.14 12:00
Ahoj, potřebuji vyvolat makro při kliknutí do jedné konkrétní prázdné buňky na listu. Poradíš mi jak na to ? Děkuji
Přidáno: 28.08.14 10:13
tomáši: If Selection.Count = 1 Then If Not Intersect(Target, Range("A1")) Is Nothing Then // do something End If End If
Přidáno: 23.12.16 03:50
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 - 2021 |