我有一段代码。那位老师帮我改改。

dmm2001

Sub dkd()
For Each Cell In Range("G73:GH117")
    If Cell Like "*7*" Then
        Cell.Interior.ColorIndex = 4
    End If
    Next
End Sub

                     这段代码是查找某个范围的数字7，然后把单元格变成黄色。

         可是。我的工作簿里有隐藏的单元格，而且还有公式。这个工作簿我做的特别大。

       我希望不查找隐藏单元格。只查找可见单元格。还有就是用数值的方式查找。不查找公式。行不。

chury11

录制一个
定位- 可见单元格
的宏

[ 本帖最后由 chury11 于 2011-2-20 09:49 编辑 ]

dmm2001

我是菜鸟，麻烦老师说详细些，我没搞明白。
就是具体步骤。

佛山小老鼠

Dim CELL As Range
Dim M As Range
Sub dkd()
Set M = Range("G73:G117").SpecialCells(xlCellTypeVisible)
For Each CELL In M
         If CELL Like "*7*" And CELL.HasFormula = 0 Then
            CELL.Interior.ColorIndex = 4
         End If
    Next
End Sub

[ 本帖最后由 佛山小老鼠 于 2011-2-20 11:22 编辑 ]

dmm2001

谢谢老师，我刚才在验证这个宏。

           我才搞明白。是我意思表达错了。
               我是要找 可见单元格 里的。有公式的 单元格 查找数字7，然后变成黄色。


    也就是说，上面的宏很好用，就是 查找有公式的 可见单元格 就行了。

佛山小老鼠

Dim CELL As Range
Dim M As Range
Sub dkd()
Set M = Range("G73:G117").SpecialCells(xlCellTypeVisible)
For Each CELL In M
         If CELL Like "*7*" And CELL.HasFormula = 1 Then
            CELL.Interior.ColorIndex = 4
         End If
    Next
End Sub

把这一句CELL.HasFormula = 0改为CELL.HasFormula =1

dmm2001

我刚才在应用，用不成。我发个附件。

佛山小老鼠

可以了，自己试哈，附件做好的
Sub dkd()
Set M = Range("B1:GH800").SpecialCells(xlCellTypeVisible)
For Each CELL In M
         If CELL Like "*7*" And CELL.HasFormula = True Then
            CELL.Interior.ColorIndex = 6
         End If
    Next
End Sub