求老师们用VBA给表格填充颜色

woailijiao

求老师们，如何用VBA给表格数据  按给出的条件，模拟成绩大于年级平均分，填充颜色，改变字体，加粗等操作。

gwjkkkkk

Sub TEST()
    Dim arr, i&, j&, sScore As Single, rng As Range
    Application.ScreenUpdating = False
    ActiveSheet.Cells.Interior.ColorIndex = 0
    ActiveSheet.Cells.Font.ColorIndex = 0
    ActiveSheet.Cells.Font.Bold = False
    arr = Range(Cells(Rows.Count, "M").End(xlUp), "F2")
    Set rng = Range(Cells(Rows.Count, "M").End(xlUp), "F2")
    For i = 2 To 5 'ubound(arr,2)
      sScore = Application.Average(Application.Index(arr, , i))
      For j = 1 To UBound(arr)
         If arr(j, i) > sScore Then
            rng.Cells(j, i).Font.Color = vbRed
            rng.Cells(j, i).Font.Bold = True
            rng.Cells(j, i).Interior.Color = vbYellow
         End If
      Next j
    Next i
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

楼主的条件格式去除了，请楼主参考附件。。。

liulang0808

基本操作，楼主可以考虑下条件格式
vba的话，可以录制一段设置的宏，然后根据修去修改，增加循环遍历

woailijiao

gwjkkkkk 发表于 2022-12-4 18:42
Sub TEST()
    Dim arr, i&, j&, sScore As Single, rng As Range
    Application.ScreenUpdating = Fa ...

能否将填充颜色和字体加粗做成图片那样。

gwjkkkkk

woailijiao 发表于 2022-12-4 20:15
能否将填充颜色和字体加粗做成图片那样。

这个颜色 VBA处理不了。。。

杨建营

向gwjkkkkk老师致敬。
学习无止境。

杨建营

请楼主参考，可以自行修改。

gwjkkkkk

杨建营 发表于 2022-12-5 07:36
向gwjkkkkk老师致敬。
学习无止境。

谦虚了，共同进步。。。

woailijiao

杨建营 发表于 2022-12-5 07:38
请楼主参考，可以自行修改。

你好，老师，这个  sScore = 453 不是固定值，怎样改成M列 与其它列对应比较。