1. 在Excel VBA将计算出的学生总分存放在定义的数组中,然后通过从数组中取最大值找出最高分。
2. 点击“开发工具”,打开Visual Basic,添加模块和过程,称之为“test”。
3. 定义一个数组变量,示例有16个学生,所以上设置arr(1 To 16),含有16个值,用于存放计算出的16个学生的总分;再定义一个整数变量i,用于循环计算学生的总分。
4. 在for循环中计算学生的总分,同时将结果赋值给数组。
5. 将数组中的最大值通过工作表函数Max返回到I3单元格中。
6. 执行以上代码后,即可在I3单元格中返回学生总成绩的最高分。
7. 通过查找出的最高分返回其对应的学生姓名,这里用到match函数查找定位。
Sub test() Dim arr(1 To 16) Dim i As Integer For i = 1 To 16 arr(i)=Range("D" & i+1)+Range("E" & i+1)+Range("F" & i+1) Next Range("I3")=Application.WorksheetFunction.Max(arr) Range("I2")=Range("C"&Application.WorksheetFunction.Match(Range("I3"),arr,0)+1) End Sub
以上案例演示仅供参考,更多实际应用请根据需求进行调整。
喜欢的朋友请多多关注,感谢支持!