这个vba代码错哪了？

邝少

这个vba代码错哪了？怎么运行不了？哪位大神帮忙提出修改意见？附件是对应表。


Sub 学生成绩统计()
    Dim sht As Worksheet
    Dim i As Integer
    For Each sht In Worksheets
    Call Maxrowvalue
        For i = 2 To r

         If sht.Range("e" & i).Value < 60 Then
            sht.Range("f" & i) = "不及格"
         
         Else
              sht.Range("f" & i) = "及格"
         End If
         
        Next i
        
   
   
   
    Next



End Sub


Sub Maxrowvalue()
  
  Dim r As Integer
  
    r = ActiveSheet.UsedRange.Rows.Count
      

   

End Sub

lcluck2002

Maxrowvalue获取的是活动工作表的最大使用行，你遍历工作表的时候，这个值只有一次是合适的，即碰巧遍历到活动工作表的时候。
另外，你这个变量r, 函数内的r和函数外的r,不是同一个r,这样使用没有意义。

zjdh

Dim r As Integer
位置放错了，可放在第一行。
即 Sub 学生成绩统计() 的上面。

xiakor

没看到附件。

ykcbf1100

Call Maxrowvalue这一句代码上方加一句代码：sht.Activate
表循环时必须对sht进行激活

wanghui834

r设置成全局变量，不然凑数传不过去

邝少

感谢lcluck2002,zjdh,xiakor,ykcbf1100各位大神的关注和指导，问题已经解决。附件更改了 。附件模块2 有更改的代码，但我觉得应该还有更高效的代码。

ykcbf1100

参与一下，用数组

ykcbf1100

用数组。。。

邝少

ykcbf1100 发表于 2024-11-3 16:34
用数组。。。

感谢指教！