帮忙简化代码

wenzc

请求简化“判断导入成绩是否为数值型”这个代码

山菊花

1. Sub 判断导入成绩是否为数值型()
   
2.     Dim nRow%, ZF(), Arr()
   
3.     ZF = Sheets("相关信息").Range("f22:n22").Value
   
4.     With Sheets("导入成绩")
   
5.         nRow = .Range("c9999").End(xlUp).Row
   
6.         Arr = .Range("d5:l" & nRow).Value
   
7.         For i = 1 To nRow - 4
   
8.             For j = 1 To 9
   
9.                 If Not IsNumeric(Arr(i, j)) Or Arr(i, j) > ZF(1, j) Or Arr(i, j) < 0 Then
   
10.                     MsgBox "单元格 " & Cells(i + 4, j + 3).Address(0, 0) & " 的数据为非法数值，请检查！"
    
11.                     .Cells(i + 4, j + 3).Select
    
12.                     Exit Sub
    
13.                 End If
    
14.             Next
    
15.         Next
    
16.     End With
    
17.     MsgBox "恭喜！成绩区所有单元格的数据为合法数值。"
    
18. End Sub

复制代码

wenzc

山菊花 发表于 2011-10-22 12:09

谢谢高手，谢谢，以后有机会再请教