每行各科最高分用蓝色背景显示，最低分用红色背景显示，怎么操作？

zzpsx · 发表于 2021-6-30 21:29

每行各科最高分用蓝色背景显示，最低分用红色背景显示，怎么操作？.rar (9.24 KB, 下载次数: 10)

祝洪忠- · 发表于 2021-6-30 22:04

选中C列分别突出显示最大值和最小值然后单击C列列标，使用格式刷，将格式刷给右侧其他列。

zzpsx · 发表于 2021-7-1 10:22

各位高手，可否用vba代码实现？

A1233515 · 发表于 2021-7-1 10:53

VBA解法供参考

zzpsx · 发表于 2021-7-1 11:10

Option Explicit

Sub a()
Dim arr, i&, k&, max, min, maxr, minr
With Sheet1
  .Range("c:g").Interior.ColorIndex = xlNone
  arr = .Range("a1").CurrentRegion
  For k = 3 To 7
max = 0: min = 9999999
For i = 2 To UBound(arr)
   If arr(i, k) >= max Then max = arr(i, k): maxr = i
   If arr(i, k) <= min Then min = arr(i, k): minr = i
Next
.Cells(maxr, k).Interior.Color = vbBlue
.Cells(minr, k).Interior.Color = vbRed
  Next
End With
End Sub
谢谢楼上高手的代码，不过我希望是每行同时高亮显示最高分和最低分，分别用蓝色和红色。

zzpsx · 发表于 2021-7-1 17:07

祝洪忠- 发表于 2021-6-30 22:04
选中C列分别突出显示最大值和最小值然后单击C列列标，使用格式刷，将格式刷给右侧其他列。

谢谢版主，可能我表达不清楚，抱歉。我想要每行选出最高分和最低分，分别用蓝色和红色背景高亮显示。

祝洪忠- · 发表于 2021-7-1 17:42

zzpsx 发表于 2021-7-1 17:07
谢谢版主，可能我表达不清楚，抱歉。我想要每行选出最高分和最低分，分别用蓝色和红色背景高亮显示。

每行各科最高分用蓝色背景显示，最低分用红色背景显示，怎么操作？.rar (9.75 KB, 下载次数: 2)

		自动登录	找回密码
密码			免费注册

[求助] 每行各科最高分用蓝色背景显示，最低分用红色背景显示，怎么操作？

评分

评分

评分