How to click or double click cell to open a specified user form in Excel?
It is convenient to open a specified user form by just clicking or double-clicking a cell in Excel. But how to achieve it? A method in this article can help you.
- Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
- More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
- Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
- Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
- Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
- Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
- More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.
Please do as follows to click or double click a cell to open a specified user form in Excel.
1. Open the worksheet with the cells you want to click or double click to open a user form.
2. Right-click the sheet tab and then click View Code from the context menu. See screenshot:
3. In the opening Microsoft Visual Basic for Applications window, please copy and paste the following VBA code into the code window.
VBA code: Click a cell to open a specified user form in 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.
- 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?