如何通过单击或双击单元格在 Excel 中打开指定的用户窗体？

通过单击或双击 Excel 中的单元格来打开指定的用户窗体非常方便。但如何实现这一功能呢？本文提供了一种方法来帮助您完成操作。

使用 VBA 代码单击或双击单元格以打开指定的用户窗体

使用 VBA 代码单击或双击单元格以打开指定的用户窗体

请按照以下步骤启用单击或双击单元格以在 Excel 中打开指定的用户窗体。

1. 打开包含要单击或双击以打开用户窗体的单元格的工作表。

2. 右键单击工作表标签，然后从上下文菜单中选择“查看代码”。参见截图：

3. 在打开的 Microsoft Visual Basic for Applications 窗口中，请将以下 VBA 代码复制并粘贴到代码窗口中。

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

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

备注：在代码中，A1:B9 是您将基于其打开用户窗体的单元格区域。UserForm1 是您通过单击或双击单元格将打开的用户窗体的名称。请根据需要进行更改。

4. 按 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

从现在开始，当您单击或双击指定区域中的任何单元格时，指定的用户窗体将立即打开，如下方截图所示。

相关文章：

• 如何通过双击单元格在 Excel 中打开指定的工作表？
• 如何通过双击在 Excel 单元格中添加对勾标记？
• 如何通过双击在 Excel 单元格中自动添加/输入当前日期/时间？
• 如何在 Excel 中双击单元格并将该单元格值加 1？
• 如何在点击 Excel 中的特定单元格时弹出日历？