如何单击或双击单元格以在Excel中打开指定的用户表单?
只需单击或双击Excel中的单元格,即可打开指定的用户窗体。 但是如何实现呢? 本文中的一种方法可以为您提供帮助。
单击或双击一个单元格以使用VBA代码打开指定的用户表单
请执行以下操作以单击或双击单元格以在Excel中打开指定的用户表单。
1.使用您要单击的单元格打开工作表,或双击以打开用户表单。
2.右键单击工作表选项卡,然后单击 查看代码 从上下文菜单中。 看截图:
3.在开幕 Microsoft Visual Basic应用程序 窗口,请将以下VBA代码复制并粘贴到代码窗口中。
VBA代码:单击一个单元格以在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
VBA code: Double click a cell to open a specified user form in Excel:
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
Note: In the code, A1:B9 is the cell range you will open user form based on. And UserForm1 is the name of the user form you will open by clicking or double-clicking cells. Please change it based on your need.
4. Press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.
From now on, when click or double click any cell in a certain range, the specified user form will be opened immediately as below screenshot shown.
Related Articles:
- How to double click a cell to open a specified worksheet in Excel?
- How to add check mark in a cell with double clicking in Excel?
- How to auto add/enter current date/time in a cell with double clicking in Excel?
- How to double click a cell and add 1 to that cell value in Excel?
- How to pop up a calendar when clicking a specific cell in Excel?
The Best Office Productivity Tools
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
- Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!