Question

下面的这段代码仅在第二次尝试之后才起作用，而在此之后的所有其他尝试都起作用。第一次尝试如何使此代码将值客户端传递给Textbox1中名为Portal的用户窗体？

我需要在输入正确的密码后将信息从输入框传递到Portal用户窗体，因为我需要指定几个不同的变量，并且我无法编写70多个对象的代码，这些代码将通过此链接链接到用户窗体代码在分配宏中。

如果其他任何人遇到此问题，任何帮助将不胜感激。

我试图清除打开的工作簿上的用户表单输入，但这没有用。

Sub object6_Click()
    Dim Password As Variant
    Password = Application.InputBox("Enter Password Here", "Password")

    Select Case Password
        Case Is = False
            Exit Sub
        Case Is = "plenish"
            Portal.Show
            client = "plenish"
            If Portal.TextBox1.Value = "" Then
                Portal.TextBox1.Value = client
            Else
                Exit Sub
            End If
            Exit Sub
        Case Else
            MsgBox "Incorrect Password"
    End Select
End Sub

Answer 1

您的代码在Portal.show之后停止运行

尝试一下：

Sub object6_Click()
    Dim Password As Variant
    Password = Application.InputBox("Enter Password Here", "Password")

    Select Case Password
        Case Is = False
            Exit Sub
        Case Is = "plenish"
            client = "plenish"
            If Portal.TextBox1.Value = "" Then Portal.TextBox1.Value = client
            Portal.Show 'vbModeless
            Exit Sub
        Case Else
            MsgBox "Incorrect Password"
    End Select
End Sub

将值从对象传输到VBA中的用户窗体文本框

1 个答案: