excel表格设定求助

roych

天涯沦落20131 发表于 2016-1-4 17:14
通过前面的启停时间录入;
1\得到后面1-12小时单元格颜色自动填充;
2\得到最后3格数值!(时间/有效时间/ ...

大体应该是这样，详细见附件的xlsm文件。

1. Sub test()
   
2.     Dim i As Long, j As Long
   
3.     Dim x As Long
   
4.     '开始和结束位置，用于定位列数，以便填充。
   
5.     Dim lngStartRange As Long
   
6.     Dim lngEndRange As Long
   
7.     '常量。初始值
   
8.     Const SDate As Date = #1:00:00 AM#
   
9.     '行终止值
   
10.     x = Sheet1.Range("B3").End(xlDown).Row
    
11.     For i = 3 To x
    
12.         lngStartRange = DateDiff("n", SDate, Sheet1.Range("B" & i)) / 5
    
13.         lngEndRange = DateDiff("n", SDate, Sheet1.Range("C" & i)) / 5 - 1
    
14.         For j = lngStartRange To lngEndRange
    
15.             Sheet1.Range("D" & i).Offset(0, j).Interior.Color = RGB(255, 0, 0)
    
16.         Next j
    
17.     Next i
    
18. End Sub
    

复制代码

roych

天涯沦落20131 发表于 2016-1-5 11:24
roych:
      非常感谢!厉害!我是想用在时间统计上更直观!需要运行TEST按钮!能否自动识呢!

你可以通过datediff，如代码中：
DateDiff("n", SDate, Sheet1.Range("B" & i)
那一段，来计算分钟数。但是必须先要了解你的有效时间，无效时间等等是怎么计算的。