通过VBA在时间段范围内划线

839262551

请教，
根据“汇总值”中不同台号对应的时间范围，在另一张表中自动生成一条线，详见附件！
非常感谢！
求助.rar (29.78 KB, 下载次数: 11)

2014-7-17 18:12 上传

点击文件名下载附件

百度不到去谷歌

先问一下 基本上就是根据1表的时间段在2表对应时间段对应行内填入2对不对？

百度不到去谷歌

1. 
   
2. Public Sub 画线转换()
   
3.     Dim arr, brr, i&, j&, m&, n&, k&
   
4.     arr = Sheets("汇总值").UsedRange
   
5.     ReDim brr(1 To UBound(arr) - 1, 1 To 57) '表2数组
   
6.     [画线!A3:BE65536] = ""
   
7.     For i = 2 To UBound(arr) '遍历汇总表行
   
8.         brr(i - 1, 1) = "'" & arr(i, 1)
   
9.         j = 2
   
10.         Do While j < 21         '遍历列
    
11.             If arr(i, j) = 0 Then Exit Do
    
12.             m = (arr(i, j) - [画线!B2]) / TimeValue("00:15:00") + 2
    
13.             n = (arr(i, j + 1) - [画线!B2]) / TimeValue("00:15:00") + 1
    
14.             For k = m To n
    
15.                 brr(i - 1, k) = 2
    
16.             Next
    
17.             j = j + 2
    
18.         Loop
    
19.     Next
    
20.     [画线!A3].Resize(UBound(brr), 57) = brr
    
21. End Sub

复制代码

1时间段画线.rar (46.55 KB, 下载次数: 7)

2014-7-17 23:31 上传

点击文件名下载附件

839262551

百度不到去谷歌 发表于 2014-7-17 23:30

太牛了！非常感谢！好好学习！