input框有人按下确定，而不input任何内容

我想迫使我的用户input一个值或按取消。

这里是我目前的代码，但我无法find如何使用按下确定没有input任何东西。

谢谢

InputBox: On Error GoTo Cancel var_TauxUS = InputBox("Veuillez aller sur www.xe.com et entrer le taux d'echange US/CAN:" & vbCrLf & vbCrLf & "Exemple: 1,26 (avec une virgule)", "TAUX US") 'La variable reçoit la valeur entrée dans l'InputBox If StrPtr(var_TauxUS) = 0 Then GoTo InputBox ElseIf var_TauxUS <= 1 Then MsgBox "Vous devez entrer un chiffre plus grand que 1" GoTo InputBox ElseIf var_TauxUS >= 1.35 Then MsgBox "Vous devez entrer un chiffre plus petit que 1.36" GoTo InputBox Else var_TauxUS = var_TauxUS + vECHANGEDEVISE 'Calculer l'échange de la devise var_US = True MsgBox "Nous commenceons a updater les prix à un taux de " & var_TauxUS & " - Merci!" GoTo Programme End If 

我试过了：

 IsEmpty(var_TauxUS) If var_TauxUS = "" then 

它不工作

Answer 1

下面是一个示例，让你开始：

 Sub test() Do var_TauxUS = InputBox("Enter here:") If StrPtr(var_TauxUS) = 0 Then Exit Sub End If Loop While var_TauxUS = vbNullString End Sub