Office中国论坛/Access中国论坛

标题: 单元格根据内容不同填充不同的颜色 [打印本页]

作者: congee 时间: 2007-12-10 16:17
标题: 单元格根据内容不同填充不同的颜色
需要在同一行的单元格中，根据内容不同填充不同的颜色（用6种颜色）

单元格的颜色不是唯一的，是有条件的。

比如：如果A1=“公司名1”，就填充红色；
如果A1=“公司名2”，就填充黄色；等等

由于是多颜色，OFFICE2003的条件格式只有3个，所以不能实现。

求救，如何编写代码？

看过有关的文章，代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rg As Range
For Each rg In Range("A1 Z1")
Select Case rg.Value
Case "公司名1"
rg.Interior.ColorIndex = 3
Case "公司名2"
rg.Interior.ColorIndex = 6
Case "公司名3"
rg.Interior.ColorIndex = 4
Case "公司名4"
rg.Interior.ColorIndex = 5
End Select
Next
End Sub

可是，点击后出错。提示方法RANG作用时失败，问题出在哪里呢？

作者: pureshadow 时间: 2007-12-10 16:38
我这儿有一个，抄的

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
      Select Case Target.Value
         Case "蓝"
            Target.Font.Color = RGB(255, 255, 255)
            Target.Interior.Color = RGB(0, 0, 255)
         Case "红"
            Target.Font.Color = RGB(255, 255, 255)
            Target.Interior.Color = RGB(255, 0, 0)
         Case "黄"
            Target.Font.Color = RGB(0, 0, 0)
            Target.Interior.Color = RGB(255, 255, 0)

         Case "绿"
            Target.Font.Color = RGB(0, 0, 0)
            Target.Interior.Color = RGB(0, 255, 0)
         Case "白"
            Target.Font.Color = RGB(0, 0, 0)
            Target.Interior.Color = RGB(255, 255, 255)
         Case "黑"
            Target.Font.Color = RGB(255, 255, 255)
            Target.Interior.Color = RGB(0, 0, 0)

      End Select
End If
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)