请助，如何根据调入/调出时间对行进行标色

to9127

请助，如何根据调入/调出时间对行进行标色，具体请各位大佬看附件。谢谢！！ 按时间对行标色.rar (8.93 KB, 下载次数: 2)

2020-5-8 16:16 上传

点击文件名下载附件

shisen_he

我琢磨了半天你的意思，是不是说本月以前的空格标橙、本月以后空格标绿？

1. Sub 标前()
   
2. Dim mon%
   
3. mon = Month(Date)
   
4. For j = 4 To 15
   
5.     For i = 4 To [a65536].End(3).Row
   
6.         If Left(Cells(3, j), InStr(1, Cells(3, j), "月") - 1) <= mon And Cells(i, j).Value = "" Then
   
7.             Cells(i, j).Interior.ColorIndex = 40
   
8.         End If
   
9.     Next
   
10. Next
    
11. End Sub
    
12. 
    
13. Sub 标后()
    
14. Dim mon%
    
15. mon = Month(Date)
    
16. For j = 4 To 15
    
17.     For i = 4 To [a65536].End(3).Row
    
18.         If Left(Cells(3, j), InStr(1, Cells(3, j), "月") - 1) > mon And Cells(i, j).Value = "" Then
    
19.             Cells(i, j).Interior.ColorIndex = 43
    
20.         End If
    
21.     Next
    
22. Next
    
23. End Sub
    

复制代码

p.s.如果好用，欢迎评个2分哈~~