根据其他单元格的颜色变色，求各位大侠指点

unfettered · 发表于 2012-9-17 21:36

本帖最后由 unfettered 于 2012-9-17 21:44 编辑

说明：三类准备各自对应三种状态，绿色；蓝色；以及红色。需要在三类准备全部完成时（也就是全部为蓝色或者绿色时），才可以开工，D4不为红色。D4的颜色根据前三个单元格的颜色自动填涂（规则为，若前三个单元格有一个为红则D4变红，若前三个只有蓝色和绿色则D4变蓝色，若全为绿色则D4为绿色，前三个单元格无色时，D4也无色）。详细见附件

AVEL · 发表于 2012-9-17 21:48

例子太简单了，没有内容
你自己试着做个示例上来看看
A B C的颜色都是认为加的么？
还是有条件格式做的？

unfettered · 发表于 2012-9-17 21:50

ABC的颜色都是人为涂的，我希望用条件格式做，但是没有成功

184509937 · 发表于 2012-9-29 09:48

本帖最后由 184509937 于 2012-10-1 14:38 编辑

录制宏再修改的，低手的手段。好像欠缺点，有的颜色与前不同，标准色多数可以
但是在2003中显示颜色一致，2007怎么这大区别？
Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制，时间: 2012-9-29
'
' 快捷键: Ctrl+k
  Dim i As Integer
      For i = 1 To 150  ‘设定行数
      If Cells(i, 1).Interior.ColorIndex = Cells(i, 2).Interior.ColorIndex And Cells(i, 1).Interior.ColorIndex = Cells(i, 3).Interior.ColorIndex  Then ’A、B、C同色则
            Cells(i, 4).Interior.ColorIndex = Cells(i, 1).Interior.ColorIndex ‘取A色
      Else
            Cells(i, 4).Interior.ColorIndex = 0 ‘否则取无色
      End If

      Next
End Sub

2003

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