8

我有一个 Auto_Open 的 vba 代码。它会进行一些检查，然后提示一个询问用户名和密码的用户表单。我用userform_name.show.

我的问题是如何从用户表单代码返回Boolean到我的Auto_Open子程序。

我将验证凭据是否正确的代码链接到表单上的“登录”按钮。这是产生布尔值的代码。我需要将它返回给 Auto_Open。

Private Sub loginbutton()
    Dim bool As Boolean
    Dim lrup
    Dim r As Long
    Dim pass As String

    loginbox.Hide

    'are fields empty
    Do While True
        If unBox.Text = "" Or pwBox.Text = "" Then
            MsgBox ("You must enter a Username and Password")
        Else
            Exit Do
        End If
        loginbox.Show
        Exit Sub
    Loop

    'find pw reated to username (if existant)
    lrup = UserPass.Range("A1").Offset(UserPass.Rows.Count - 1, 0).End(xlUp).Row

    If unBox = "b0541476" And pwBox = "theone" Then
        bool = True
    Else
        MsgBox ("Invalid username or password. Please try again.")
        loginbox.Show
        Exit Sub
    End If

    For r = 2 To lrup
        If unBox = Cells(r, 1) Then
            pass = Cells(r, 2).Value
            Exit For
        End If
    Next

    If pass = "" Then
        MsgBox ("Invalid username or password. Please try again.")
        loginbox.Show
        Exit Sub
    Else
        bool = True
    End If
End Sub
4

4 回答 4

6

您可以在不使用公共变量的情况下做到这一点。

显示/隐藏和加载/卸载之间似乎存在差异。

如果您在表单仍在加载时隐藏它，它不会被清除，因此您可以参考表单上控件的状态。

例如DTPicker1，我在表单上使用日期选择器（称为 ），我在模块中的代码如下所示：

Dim NewDay As Date

Load FrmDayPicker
FrmDayPicker.Show

NewDay = FrmDayPicker.DTPicker1.Value

Unload FrmDayPicker

Debug.Print NewDay

在您的表格上，您可以使用Me.Hide而不是Unload Me，这应该可以

于 2017-12-21T06:52:15.890 回答
4

从用户表单代码区中移除Dim bool As Boolean，并在模块中声明如下

这就是模块中的代码的样子

Public bool As Boolean

Sub Auto_Open()
    '
    '~~> Rest of the code
    '
    UserForm1.Show

    If bool = True Then
        '~~> Do Something
    Else
        '~~> Do Something        
    End If

    '
    '~~> Rest of the code
    '
End Sub
于 2013-09-23T18:34:03.663 回答
2

使用函数而不是子函数怎么样？

Function loginbutton()
  ' your code

  loginbutton = bool
End Function

现在在您的调用代码中，您可以测试真/假

if loginbutton() then
  'true responce
else
  'false responce
end if
于 2013-09-23T18:37:01.723 回答
0

更新：

我很快就忽略了公共变量。虽然 Pub Vars 和直接访问项目这两种方法都可以工作，但有时如果说它是一个列表，直接访问项目并不理想。

我现在有专门用于调用用户窗体的模块，它只声明公共变量并调用用户窗体。然后我可以从 UserForms 或 Modules 调用这些模块，并在用户窗体关闭后访问公共变量。

eg：这是我现在使用的一个模块，很基础，其他的需求都可以直接调用这个模块/子。

Public ColSelectorDic As Object
Public Sub Col_Picker_Sub()
 Col_Picker_UserForm.Show
End Sub

使用在调用用户窗体的模块中声明的公共变量是最简单的 IMO。但是，如果您想从单独的模块中调用此用户窗体，这有一个警告，您将收到有关重复声明/不明确名称的错误。

所以，如果你知道它只会被称为一个模块，Pub Vars。就我而言，我使用的是“列选择器”用户表单，它非常简单，我希望能够在未来不可预见的项目中再次使用它，因此我试图解决上述警告。

看到这个公共变量的答案，不需要重复信息--> https://stackoverflow.com/a/18966341/5079799

这个答案与直接访问表单变量有关——> https://stackoverflow.com/a/47919465/5079799但我觉得它可以使用一些扩展。

此外，这是一篇很好的文章，深入探讨了直接访问用户表单变量 --> https://gregmaxey.com/word_tip_pages/userform_pass_data.html

所以我的用户窗体看起来像这样并命名为ColPicker：

Private Sub UserForm_Initialize()
Dim i As Long
 lCol = Get_lCol(ActiveSheet)
  For i = 1 To lCol
   ColumnLetter = Col_Letter(i)
   Me.ComboBox1.AddItem ColumnLetter
  Next
End Sub
Private Sub CommandButton1_Click()
 Me.Hide
End Sub

Sub PassVarFromUserForm()
 ColPicker.Show
 Dim ColLetter As String
 ColLetter = ColPicker.ComboBox1.Value
 Unload ColPicker
 Debug.Print ColLetter
End Sub

注意用户窗体中的“运行”/命令按钮是如何隐藏表单的，然后我将值存储在一个变量中，然后通过使用它的名称从模块中卸载表单。（您只能unload me在用户表单中使用）。

然后该变量在模块内部可用，并且可以在开始时声明为公共或在模块内部，这没关系，因为它可以在每个模块中以不同方式声明，用户表单不知道/引用什么变量名称信息将被存储在。

于 2021-01-28T22:14:59.920 回答