当用户点击“输入框”下的“取消”按钮或“确定”按钮时，如何区分操作。

Question

当用户点击“输入框”下的“取消”按钮或“确定”按钮时，如何区分操作。

有两种情况：
1.当用户点击取消/关闭按钮
时结束（退出子）操作 2.如果用户点击OK没有任何值，请他输入一些值。

我使用的代码满足第二种情况，是否也可以容纳第一种情况？

Sub INPUT_BOX()

Re_Enter_Username:
cUsername = INPUTBOX("Username", "Please provide Login Name")
    If cUsername = "" Then
        MsgBox "Please provide a Username"
        GoTo Re_Enter_Username:
    Else 'Code if not empty
    End If

End Sub

我不确定这是否可行，可能是我的例外不仅仅是VBA可以提供的帮助。 :)对不起如果是的话。

如果你有解决方案，谢谢。

Answer 1

您可以使用StrPtr进行测试：

cusername = InputBox("Username", "Please provide Login Name")
    If StrPtr(cusername) = 0 Then
        ' user pressed Cancel
        Exit Sub
    ElseIf cusername = "" Then
        MsgBox "Please provide a Username"
        GoTo Re_Enter_Username:
    Else 'Code if not empty
    End If