按十位数不同填充颜色。

cpexcelcp · 发表于 2018-8-4 14:54

本帖最后由 cpexcelcp 于 2018-8-4 16:46 编辑

按十位数不同填充颜色。

insert- · 发表于 2018-8-4 15:43

Sub 填充颜色()
Dim rng As Range
For Each rng In [g18:as42]
Select Case Mid(rng.Value, 2, 1)
      Case Is = 0
         rng.Interior.ColorIndex = 1
      Case Is = 1
         rng.Interior.ColorIndex = 3
      Case Is = 2
         rng.Interior.ColorIndex = 4
      Case Is = 3
         rng.Interior.ColorIndex = 5
      Case Is = 4
         rng.Interior.ColorIndex = 6
      Case Is = 5
         rng.Interior.ColorIndex = 7
      Case Is = 6
         rng.Interior.ColorIndex = 8
      Case Is = 7
         rng.Interior.ColorIndex = 9
      Case Is = 8
         rng.Interior.ColorIndex = 16
      Case Is = 9
         rng.Interior.ColorIndex = 46
End Select
Next rng
End Sub

蓝桥玄霜 · 发表于 2018-8-4 16:34

请见代码。

专搞excel · 发表于 2018-8-4 18:05

蓝桥玄霜发表于 2018-8-4 16:34
请见代码。

蓝桥版主，代码有个小小的问题，需要把18改为9才对的

719404338 · 发表于 2018-8-4 18:32

Sub t()
Dim arr, brr, i%, j%
arr = Array(1, 3, 4, 5, 6, 7, 8, 9, 16, 46)
brr = Range("g18:as42")
For i = 18 To 42
For j = 7 To 45
Cells(i, j).Interior.ColorIndex = arr(Mid(Cells(i, j), 2, 1))
Next j, i
End Sub

复制代码

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

[已解决] 按十位数不同填充颜色。

评分