Question

VBA 循环问题？

sheet2 单元格 K2 到 K7 的值如下：
450302199908093
390483197701230120
420403194301112210
450302199908092001
450302199908092009

需要判断完性别后将性别显示在L2到L7
代码如下：
Sub ID()
Dim i As Integer, L As Integer, J As Integer
For i = 2 To 7
L = Len(Sheets(2).Cells(i, 11))
If L <> 15 And L <> 18 Then
MsgBox "please check your input" & " " & Sheets(2).Cells(i, 11).Address
Sheets(2).Cells(i, 11) = InputBox("PLEAse reput your ID", "reminder")
ElseIf L = 18 Then
J = Mid(Sheets(2).Cells(i, 11), 17, 1)
Else
J = Right(Sheets(2).Cells(i, 11), 1)
End If
If J Mod 2 = 0 Then
Sheets(2).Cells(i, 12) = "女"
Else
Sheets(2).Cells(i, 12) = "男"
End If
Next
End Sub

问题：当K2到K7单元格的字符长度不等于15或18时，需要重新输入，这个程序可以输入，但是当输入的字符长度仍然不等于15或18时，程序还是能继续运行，如何连续检查直到输入的字符长度是符合要求的？

Answer 1

MsgBox "please check your input" & " " & Sheets(2).Cells(i, 11).Address
Sheets(2).Cells(i, 11) = InputBox("PLEAse reput your ID", "reminder")
i=i-1

追问

能解释下吗

追答

输入后，i=i-1,循环又回到你输入时单元格处理，如果不合适，又要输入了，直到输入合适才可以才不运行这步。