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程式碼：雙擊儲存格開啟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