Jak kliknutím nebo dvojitým kliknutím na buňku otevřete zadaný formulář uživatele v aplikaci Excel?
Je vhodné otevřít zadaný uživatelský formulář pouhým kliknutím nebo poklepáním na buňku v aplikaci Excel. Ale jak toho dosáhnout? Metoda v tomto článku vám může pomoci.
Kliknutím nebo dvojitým kliknutím na buňku otevřete zadaný formulář uživatele s kódem VBA
Kliknutím nebo dvojitým kliknutím na buňku otevřete zadaný formulář uživatele s kódem VBA
Chcete-li v aplikaci Excel otevřít specifický uživatelský formulář, klikněte nebo poklepejte na buňku následujícím způsobem.
1. Otevřete list s buňkami, na které chcete kliknout, nebo dvojitým kliknutím otevřete uživatelský formulář.
2. Klepněte pravým tlačítkem na kartu listu a potom klepněte na Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
3. V otvoru Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód VBA do okna kódu.
Kód VBA: Kliknutím na buňku otevřete zadaný formulář uživatele v aplikaci Excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby20171226
If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
UserForm1.Show
End If
End Sub
Kód VBA: Dvojitým kliknutím na buňku otevřete zadaný uživatelský formulář v Excelu:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
Cancel = True
UserForm1.Show
End If
End Sub
Poznámka: V kódu je A1:B9 rozsah buněk, na základě kterého otevřete uživatelský formulář. A UserForm1 je název uživatelského formuláře, který otevřete kliknutím nebo dvojitým kliknutím na buňky. Změňte jej podle potřeby.
4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Od této chvíle, když kliknete nebo dvakrát kliknete na libovolnou buňku v určitém rozsahu, zadaný uživatelský formulář se okamžitě otevře, jak je uvedeno níže.
Související články:
- Jak dvakrát kliknout na buňku a otevřít určený list v aplikaci Excel?
- Jak přidat zaškrtnutí do buňky dvojitým kliknutím v aplikaci Excel?
- Jak automaticky přidat / zadat aktuální datum a čas v buňce dvojitým kliknutím v aplikaci Excel?
- Jak dvakrát kliknout na buňku a přidat 1 k této hodnotě buňky v aplikaci Excel?
- Jak zobrazit kalendář při kliknutí na konkrétní buňku v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!