用for循环语句,赋值变量从1 to 10
如果输入错误,则提示对话框"输入错误", 再弹出一个输入对话框重新输入
现在的问题是: 这个错误信息不知道放哪了。
向我下面这样输入的话,当n=2,我在input里面输入cell(3,1)的值,他也会跳到else,提示输入错误,求大佬帮忙
If StrPtr(m) <> 0 Then
For n = 2 To t
If Cells(n, 1) = m Then
yw = Cells(n, 4)
sx = Cells(n, 6)
yy = Cells(n, 8)
zf = Cells(n, 9)
pm = Cells(n, 10)
xm = Cells(n, 2)
i = xm & " 你好" & vbCrLf & "你的排名: " & pm & vbCrLf & "你的总成绩: " & zf & vbCrLf & "语文: " & yw & vbCrLf & "数学: " & sx & vbCrLf & "英语: " & yy & vbCrLf & "总分: " & zf
MsgBox i
Exit For
Else
MsgBox "输入错误"
m = InputBox("请输入你的学号")
End If
Next
End If
如果输入错误,则提示对话框"输入错误", 再弹出一个输入对话框重新输入
现在的问题是: 这个错误信息不知道放哪了。
向我下面这样输入的话,当n=2,我在input里面输入cell(3,1)的值,他也会跳到else,提示输入错误,求大佬帮忙
If StrPtr(m) <> 0 Then
For n = 2 To t
If Cells(n, 1) = m Then
yw = Cells(n, 4)
sx = Cells(n, 6)
yy = Cells(n, 8)
zf = Cells(n, 9)
pm = Cells(n, 10)
xm = Cells(n, 2)
i = xm & " 你好" & vbCrLf & "你的排名: " & pm & vbCrLf & "你的总成绩: " & zf & vbCrLf & "语文: " & yw & vbCrLf & "数学: " & sx & vbCrLf & "英语: " & yy & vbCrLf & "总分: " & zf
MsgBox i
Exit For
Else
MsgBox "输入错误"
m = InputBox("请输入你的学号")
End If
Next
End If