Question

在我当前的代码中，如果密码正确，预订将被删除。如果密码不正确，您将收到一条错误消息，要求重试。这是由具有OK和Cancel按钮的Application.InputBox完成的。

我已经在Userform中制作了自定义消息（看起来更好）。当用户想要删除预订时，将加载此用户表单。当他按下“我确定”按钮时，用户窗体将显示该消息，以及一个名为“ txtPassword”的文本框和一个名为“检查”的按钮。

这是我正在谈论的代码：

Private Function Password(Booking As Long) As Boolean

Dim var As Variant, i As Long, PW As String

var = [{1, 2, 3, 4, 5; "Password1", "Password2", "Password3", "Password4", "Password5"}]

For i = LBound(var, 1) To UBound(var, 2)
If Booking = var(1, i) Then
    PW = Application.InputBox("Password required to delete booking: " & Booking, "Password Protected", Type:=2)
        If PW = var(2, i) Then
            Password = True
            Exit Function
        Else
            Password = False
            Exit Function
        End If
End If
Next i

Password = True

End Function

所以我想知道是否有人知道如何使用按钮和文本框将Application.InputBox替换为UserForm。

预先感谢

真诚的帕特里克

Excel VBA：将Application.InputBox替换为自定义用户窗体

0 个答案: