贪吃的双鱼宝宝
你好!楼主想要的功能,普通的函数,条件格式可能没法处理,此时还是推荐使用VBA程序处理,也比较方便快捷。VBA程序代码如下,可以根据实际需要进行修改。VBA程序代码如下:Private Sub Worksheet_Change(ByVal Target As Range)Dim i1, i2, i3, i4On Error Resume NextSet mysheet4 = ThisWWorksheets("Sheet4") '定义工作表Sheet4For i1 = 2 To 1000 '从第2行到1000行For i2 = 3 To 4 '从第三列到第四列If Cells(i1, i2) <> "" Then '如果单元格不为空白,则If Cells(i1, i2) <= Cells(i1, i2 - 1) TCells(i1, i2)NumberFormatLocal = "###""↑"""Cells(i1, i2)FColor = RGB(0, 176, 80) '绿色ECells(i1, i2)NumberFormatLocal = "###""↓"""Cells(i1, i2)FColor = RGB(255, 0, 0) '字体颜色为红色End IfEnd IfNextNextEnd Sub只要任一单元格里面的值改变,就会触发执行程序,
优质武汉中专问答知识库