建设部国家标准网站做电商如何起步

使用VBA脚本实现Excel中的功能统计:

(1) 统计总分大于180分的学生人数

(2) 统计数学大于语文成绩的人数

(3) 将各科成绩 < 60 分的数据标记底色为红色,字体加粗

成绩单

学生编号	语文	数学	英文
st1	66	95	55
st2	91	74	46
st3	96	97	32
st4	47	52	93
st5	34	41	53
st6	65	91	92

 

 

 

 

 

 

解:

(1)

Sub 宏1()Dim n&, i&, j&, arr, a&, b&, c&arr = ActiveSheet.UsedRangea = ActiveSheet.Rows(1).Find("语文").Columnb = ActiveSheet.Rows(1).Find("数学").Columnc = ActiveSheet.Rows(1).Find("英文").Columnn = 0For i = 2 To UBound(arr)j = Val(arr(i, a)) + Val(arr(i, b)) + Val(arr(i, c))If j > 180 Thenn = n + 1End IfNextMsgBox "总分大于180分的人数为：" & n
End Sub

(2)

Sub 宏2()Dim n&, i&, arr, a&, b&arr = ActiveSheet.UsedRangea = ActiveSheet.Rows(1).Find("数学").Columnb = ActiveSheet.Rows(1).Find("语文").Columnn = 0For i = 2 To UBound(arr)If Val(arr(i, a)) > Val(arr(i, b)) Thenn = n + 1End IfNextMsgBox "数学成绩大于语文的人数为：" & n
End Sub

(3)

Sub 宏3()Dim t As RangeSet t = ActiveSheet.UsedRanget.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=60"t.FormatConditions(1).Font.Bold = Truet.FormatConditions(1).Interior.ColorIndex = 3MsgBox "格式修改完毕"  
End Sub