时间叠加

locker00700

如何用VBA实现红色效果（生产进度、耗时预估），产品ABCA连续做，效率为2数量/小时，中间有可能作时间调整


测试.rar (9.53 KB, 下载次数: 1)

2018-6-22 12:27 上传

点击文件名下载附件

lsdongjh

数据需要修正，代码如下

1. Option Explicit
   
2. 
   
3. Sub Test()
   
4.     Dim SH As Worksheet, arr As Variant, lngRow As Long
   
5.     Dim dateStart As Date, dateResult As Date
   
6.     Dim dblHour As Double, dblMin As Double
   
7.     Dim lngBasicEff As Long
   
8.    
   
9.     Set SH = Sheets("Sheet1")
   
10.     lngBasicEff = SH.Range("H1").Value '基础效率
    
11.    
    
12.     arr = SH.Range("A1").CurrentRegion
    
13.    
    
14.     For lngRow = 2 To UBound(arr) - 1
    
15.         dateStart = arr(lngRow, 3) '开始时间
    
16.         dblHour = arr(lngRow, 2) / lngBasicEff '耗时=数量/基础效率
    
17.         dblMin = arr(lngRow, 5) '时间调整
    
18.         
    
19.         arr(lngRow, 4) = dblHour
    
20.         dateResult = DateAdd("h", dblHour, dateStart)
    
21.         dateResult = DateAdd("n", dblMin, dateResult)
    
22.         arr(lngRow + 1, 3) = Format(dateResult, "yyyy/mm/dd hh:mm")
    
23.     Next
    
24.     SH.Range("A1").CurrentRegion = arr
    
25. End Sub
    

复制代码

locker00700

lsdongjh 发表于 2018-6-22 13:24
数据需要修正，代码如下

你好，使用中遇到个问题，耗时如何精确道分钟，并显示在开始时间？