0

在我的电子表格中,单元格 E8 将包含用户窗体的名称。对于此示例“mainMenu”。

在我的用户表单“newClient”上,当单击“btnAddClient”按钮时,我想卸载“newClient”表单并显示与单元格 E8 中显示的名称匹配的表单。

我尝试了以下不同的代码,但没有一个工作。如何才能做到这一点?

ActiveSheet.Range("E8").Text.Show
ActiveSheet.Range("E8").Value.Show
ActiveSheet.Range("E8").Show
4

1 回答 1

1

我假设您会预先知道您的 Excel 电子表格中有哪些用户表单。尝试这样的事情

Sub Test()
    Dim formName As String
    formName = Worksheets("Sheet1").Range("E8").Value

    Select Case formName
    Case "UserForm1"
        UserForm1.Show
    Case "UserForm2"
        UserForm2.Show
    End Select

End Sub
于 2013-09-06T02:49:02.620 回答