循环以确保输入框条目为八个字符长且为数字

Question

在我的一个每周文件中，我遇到了一个循环问题，该循环会提供文件名的日期部分。

文件可以在一周中的任何一天或相关后一周的前几天生成，具体取决于源数据何时准备好，但必须以它包含数据的最后日期的 yyyymmdd 格式的日期作为前缀.

执行此操作的最简单方法是通过宏开头的输入框进行设置，然后在将组件报告保存到其文件夹中时可以调用该输入框。

我的问题是用户可以将任何内容放入输入框中（我认为需要将其格式化为其他元素的字符串，因为我对 VBA 的了解不够了解如何将数字变量调用到我的保存名称中） .

我想添加一个循环，说明它是否为 8 个字符长，如果是数字则继续，否则重新输入日期。

Dim svdate As String
Sub inpt()
Do
    svdate = InputBox("date")
    If Len(svdate) = 8 And IsNumeric(svdate) Then
        MsgBox svdate
    Else
        MsgBox ("the value should be a number in format yyyymmdd please try inputting the date again")
    End If
Loop Until True

我一直在一个单独的子程序中测试上述代码，因此 if true 部分的 msgbox 将替换为正确输入日期后将运行的其余子程序。

我已将 svdate 变量定义为模块级别的项目，因为它在所有工作的更广泛的宏中的许多其他阶段都被调用。我只想确保用户在组合代码之前只能输入适当的日期。

就代码而言，它会要求我在框中输入日期，然后显示 2 个 msgbox 之一，但如果为 false 则不会返回到输入框阶段。

Answer 1

正确循环：

Dim svdate As String
Sub inpt()
dim isOK as boolean
Do
    svdate = InputBox("date")
    If Len(svdate) = 8 And IsNumeric(svdate) Then
       isOK = true
      MsgBox svdate
    Else
       isOK = false
       MsgBox ("the value should be a number in format yyyymmdd please try inputting the date again")
    End If
Loop Until isOK = true
End Sub

在您的代码中，If-loop 位于 Do-loop 内 - 因此 Do-loop 不“知道”检查结果。

我的代码isOK 由If-loop 设置，do-loop 可以评估它。

Answer 2

为了完整起见，您也可以使用Exit do：

Dim svdate As String
Sub inpt()
Do
    svdate = InputBox("date")
    If Len(svdate) = 8 And IsNumeric(svdate) Then
        MsgBox svdate
        Exit do     'exit the loop
    Else
        MsgBox ("the value should be a number in format yyyymmdd please try inputting the date again")
    End If
Loop Until True
....