关于用单元格内容打开窗体---版主回答一个提问

问题：

有，UserForm1，UserForm2，UserForm3......
求：当单元格F1=UserForm1时，打开窗体UserForm1即（UserForm1.Show），当单元格F1=UserForm2时，打开窗体UserForm2即（UserForm2.Show）......的表达式。
我想当然已为是Range("F1“).Show，结果是错的，请老师帮忙。

版主解答：

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address(0, 0) = "F1" Then
         Dim myForm As Object
         On Error Resume Next
         Set myForm = UserForms.Add(Target.Value)
         If Not myForm Is Nothing Then myForm.Show
         End If
 End Sub

我把这种方法叫做“直呼其名”，不用循环判断，直接把它赋值给一个变量，如果出错或变量是Nothing，则窗体不存在
这种方法还可以判断工作表、工作簿等对象是否存在

ps：需要好好研究学下。