Mic*_*ael 5 excel formatting vba excel-vba
Excel在"格式"菜单下有一个"条件格式..."选项,允许您根据其值更改单元格的样式/颜色/字体/任何内容.但它只允许三个条件.
如何让Excel显示六种不同的背景单元格颜色,具体取决于单元格的值?(如果值为"红色",则使单元格为红色;如果为"蓝色",则为蓝色.)
你需要在VBA中写一些东西.
请参阅此处的示例:获取条件格式的Excels 3条件限制:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:A10")) is Nothing Then
Select Case Target
Case 1 To 5
icolor = 6
Case 6 To 10
icolor = 12
Case 11 To 15
icolor = 7
Case 16 To 20
icolor = 53
Case 21 To 25
icolor = 15
Case 26 To 30
icolor = 42
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub
Run Code Online (Sandbox Code Playgroud)