判断单元格内容，然后涂色

qjnx2003 · 发表于 2018-6-1 22:47

本帖最后由 qjnx2003 于 2018-6-3 20:23 编辑

如表格  此表格是我手工涂色完成的，想改为自动涂色！表格如果出现  D40  r1.00时此行如图四个单元格涂黄色
表格如果出现  D32  r5.00时此行如图四个单元格涂蓝色
表格如果出现  D20  r0.80时此行如图四个单元格涂青色
表格如果出现  D10  r0.50时此行如图四个单元格涂绿色
循环下去直至表格内容结束，涂色完成为止

1249994139 · 发表于 2018-6-1 23:48

条件格式应该可以的

qjnx2003 · 发表于 2018-6-3 20:11

不好意思我是 vba 小白代码怎么写呢？

qjnx2003 · 发表于 2018-6-3 20:17

好心人帮帮忙！

qjnx2003 · 发表于 2018-6-12 06:06

没人帮忙，哎

半百 · 发表于 2018-6-12 08:46

Sub 填充颜色()
For Each RNG In Range("E1", Cells(Rows.Count, 5).End(3))
Set R = RNG.Resize(1, 4)
If RNG & RNG.Offset(0, 1) = "D40.00 r 1.00" Then
      R.Interior.ColorIndex = 6
ElseIf RNG & RNG.Offset(0, 1) = "D32.00 r 5.00" Then
      R.Interior.ColorIndex = 5
ElseIf RNG & RNG.Offset(0, 1) = "D20.00 r 0.80" Then
      R.Interior.ColorIndex = 14
ElseIf RNG & RNG.Offset(0, 1) = "D10.00 r 0.50" Then
      R.Interior.ColorIndex = 10
End If
Next
End Sub

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

[求助] 判断单元格内容，然后涂色