像这个标红的，怎么样可以显示多行的

吴虾咪

Public Sub 标红()

   For Each danyuan In Range(Range("u3"), Range("u500").End(xlUp))

       If danyuan.Value = 0 Then
           danyuan.Interior.ColorIndex = 3
           danyuan.Font.ColorIndex = 2
       End If
   Next
End Sub

比如我现在是U例如为0的值标为红底白字的。

想让他红M到U都红上红底白字。也是以U例空值为标准。

本用公式是可以，但每次执行其它宏就没有了。

海好呀

用条件格式就可以实现的，为什么要用宏呢？

micch

加一个else ，复原单元格格式

gwjkkkkk

Public Sub 标红()
   For Each danyuan In Range(Range("u3"), Range("u500").End(xlUp))
       If danyuan.Value = 0 Then
           With danyuan.Offset(, -8).Resize(, 10)
                .Select
                .Font.ColorIndex = 2
                .Interior.ColorIndex = 3
           End With
       End If
   Next
End Sub

吴虾咪

海好呀 发表于 2023-3-12 16:04
用条件格式就可以实现的，为什么要用宏呢？

有清除等填入其他宏，执行了会没有了。

gwjkkkkk

摸拟了一下，请参考。。。

xunanming

这要看你的其他宏代码是如何运行的,运行后覆盖了你的这个代码的执行结果,需要排除其他代码对其的操作.
最好能文件发上来参考.

吴虾咪

gwjkkkkk 发表于 2023-3-12 16:15
摸拟了一下，请参考。。。

老师，可以，不清楚我这边为啥只能弄到248下面的就不行了，不知道是不是跟怎么冲突了。

gwjkkkkk

吴虾咪 发表于 2023-3-12 16:40
老师，可以，不清楚我这边为啥只能弄到248下面的就不行了，不知道是不是跟怎么冲突了。

上传附件给看下。。。