如何区分用户在“input框”下点击“取消”button或“确定”button时的操作。

如何区分用户在“input框”下点击“取消”button或“确定”button时的操作。

有两种情况：
1.当用户点击取消/closuresbutton时结束（Exit Sub）操作
2.如果用户点击确定没有任何价值，请让他input一些值。

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

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可以提供的帮助。 :)如果是的话很抱歉。

并感谢如果你有这个解决scheme。

Answer 1

你可以像这样使用StrPtr来testing：

 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