先判断列有相同项时，再用该项所在的两行对比得出颜色变化

lajihaha159 · 发表于 2020-3-13 10:54

附件中其实已经可以实现需要的功能了，但是是用的函数公式加上VBA的笨办法来实现的。
当数据未排序时这个方法就无法使用了。

希望可以优化成代码，在代码中就直接判断得出颜色变化。关键在于还有可以设定任意2个时间段的对比。

具体请各位老师看附件。

sj15627581616 · 发表于 2020-3-13 11:14

理逻辑麻烦，晚上有空再来看

lajihaha159 · 发表于 2020-3-14 11:46

谢谢关注，逻辑上是有点点难，

media888 · 发表于 2020-3-14 13:27

颜色变化判断.rar (41.22 KB, 下载次数: 2)
      Dim i
   With ThisWorkbook.Worksheets("其他线岔数据库")
   For i = 2 To 100
   If .Cells(i, 4) = .Cells(i + 1, 4) And .Cells(i, 2) = .Cells(i + 1, 2) And .Cells(i, 9) <> .Cells(i + 1, 9) Then

   .Cells(i + 1, 12) = .Cells(i, 9) & "转" & .Cells(i + 1, 9)

   End If
      If .Cells(i, 4) = .Cells(i + 1, 4) And .Cells(i, 2) = .Cells(i + 1, 2) And .Cells(i, 9) = .Cells(i + 1, 9) Then

   .Cells(i + 1, 12) = "持续" & .Cells(i + 1, 9)


End If

Next
End With

lajihaha159 · 发表于 2020-3-17 10:01

media888 发表于 2020-3-14 13:27
Dim i
With ThisWorkbook.Worksheets("其他线岔数据库")
For i = 2 To 100

感谢回复，和函数一样的思路。但是还缺少了A1单元格时间的条件。如果再非排序的情况下，或者对比其他2个时间段的时候就只能清理数据才能判断。

media888 · 发表于 2020-3-18 09:16

lajihaha159 发表于 2020-3-17 10:01
感谢回复，和函数一样的思路。但是还缺少了A1单元格时间的条件。如果再非排序的情况下，或者对比其他2个 ...

用数组或者换一种思路用VBA排序

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

[求助] 先判断列有相同项时，再用该项所在的两行对比得出颜色变化

最新热点 /1