Question

我想强制用户输入值或按取消。

这是我当前的代码，但我无法在不输入任何内容的情况下找到如何说明已使用的按下OK。

由于

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

输入框有人按OK而不输入任何内容

1 个答案: