Office中国论坛/Access中国论坛

标题: 新人求助!帮老妈做一个统计表时,遇到了难题.求各位大侠相助! [打印本页]

作者: thunder001 时间: 2006-9-16 01:10
标题: 新人求助!帮老妈做一个统计表时,遇到了难题.求各位大侠相助!
举例如下:

现有三组数据:第一组:  1 2 3

                  第二组: 4 5 6

                  第三组: 7 8 9

某一单元格内数值为以上三组数据中的一个时,该单元格显示表示属于该组的颜色

如B1单元格数值为1时,B1显示红色, B1为5时,显示为黄色, B1为9时显示为绿色.

如何实现,请大侠教我!!!!!!!!!!

PS:实际情况中,数据组有5组,本身之间无必然联系.

作者: tangqp 时间: 2006-9-16 01:41
条件格式

作者: thunder001 时间: 2006-9-16 01:48
请用以上示例数据实际讲解一下

作者: thunder001 时间: 2006-9-16 02:29
试了几次,不知道怎样比对数值

作者: qhfish 时间: 2006-9-16 07:52
[attach]20346[/attach]

作者: pureshadow 时间: 2006-9-16 20:33
版里讲条件格式的贴子很多，搜下就好了

作者: lxq2005 时间: 2006-9-21 04:13
我也是新手,如果有不妥之处,请指教:

条件格式只能设3个条件,而你的里面需有个条件才能完成整个颜色的判断:

1.储存格=1时,

2.当储存格>1 and <=3时,

3.当储存格=4时

4.当储存格>4 and <=6时

5.当储存格=8时

6.当储存格>6 and <=9 and <>8时

所以用条件格式无法满足你的条件,下面是我初次做的宏,也许能帮你:

Sub a()

Dim i As Integer, j As Integer

   For i = 1 To 3
         For j = 1 To 3
            Cells(i, j).Select
            If Cells(i, j).Formula = 1 Then
                  Cells(i, j).Interior.ColorIndex = 3
            ElseIf Cells(i, j).Formula > 1 And Cells(i, j).Formula <= 3 Then
               Cells(i, j).Interior.ColorIndex = 6
            ElseIf Cells(i, j).Formula = 4 Then
                  Cells(i, j).Interior.ColorIndex = 9
            ElseIf Cells(i, j).Formula > 4 And Cells(i, j).Formula <= 6 Then
                  Cells(i, j).Interior.ColorIndex = 12
            ElseIf Cells(i, j).Formula = 8 Then
                  Cells(i, j).Interior.ColorIndex = 15
            ElseIf Cells(i, j).Formula > 6 And Cells(i, j).Formula <= 9 And Cells(i, j).Formula <> 8 Then
                  Cells(i, j).Interior.ColorIndex = 18

            End If
         Next
      Next


End Sub

颜色参数我是随意写的,如果你需要特定的颜色,请查找相关资料

宏我已经试用过,希望能帮到你.

作者: lxq2005 时间: 2006-9-21 04:16
执行后的情况为:

<COLGROUP>

<COL style="WIDTH: 54pt" span=3 width=72>

1

2

3

4

5

6

7

8

9

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