Office中国论坛/Access中国论坛

标题: 请教一句条件语句的写法 [打印本页]

作者: gpgpgp 时间: 2006-7-18 19:09
标题: 请教一句条件语句的写法
对一个工作表中，获取单元格中填充颜色为红色的条件语句用以下的方法通过：

Dim rng As Range, c As Range
Set rng = Sheets(3).UsedRange
For Each c In rng.Cells
If c.Interior.ColorIndex = 3 Then MsgBox "B"
Next

现请教我想实现的是：

如果：用“条件格式”后产生的单元格中出现填充颜色为红色　ＴＨＥＮ

　　　用ＭＳＧＢＯＸ列出出现填充颜色为红色的单元格的地址

否则：msgbox "没有错误！"

作者: 老鬼 时间: 2006-7-23 07:02
你何苦如此呢，把条件格式中的“条件”直接写到代码中不是更好判断吗？

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