Question

在我的电子表格中，单元格E8将包含UserForm的名称。对于此示例“mainMenu”。

在我的UserForm“newClient”上，当点击按钮“btnAddClient”时，我想卸载“newClient”表单，并显示与单元格E8中显示的名称相匹配的任何形式。

我尝试了以下不同的代码但没有工作。怎么办呢？

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

Answer 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

显示与单元格内容匹配的用户窗体？

1 个答案: