使用VBA生成需求的时间

雷沛qaz

使用VBA在A1单元格生成当前时间，然后在B1单元格生成的时间比A1单元格时间多83-89秒，然后C1单元格生成的时间比B1单元格多30-100秒，然后D1单元格生成的时间比C1 单元格时间多600-1000 秒，A2单元格时间等于D1单元格时间，然后重复上前边的规则，随机生成100行，感谢大神的辛苦付出

719404338

1. Sub t()
   
2. Dim i
   
3. For i = 1 To 100
   
4. Range("a" & i) = Now
   
5. Range("b" & i) = Range("a" & i) + WorksheetFunction.RandBetween(83, 89) / 86400
   
6. Range("c" & i) = Range("b" & i) + WorksheetFunction.RandBetween(30, 100) / 86400
   
7. Range("d" & i) = Range("c" & i) + WorksheetFunction.RandBetween(600, 1000) / 86400
   
8. Next i
   
9. End Sub

复制代码

cidanji

719404338

1. Sub t()
   
2. Dim i
   
3. sj = Now
   
4. For i = 1 To 100
   
5. sj = sj + WorksheetFunction.RandBetween(600, 1200) / 86400
   
6. Range("a" & i) = IIf(i = 1, Now, sj)
   
7. Range("b" & i) = Range("a" & i) + WorksheetFunction.RandBetween(83, 89) / 86400
   
8. Range("c" & i) = Range("b" & i) + WorksheetFunction.RandBetween(30, 100) / 86400
   
9. Range("d" & i) = Range("c" & i) + WorksheetFunction.RandBetween(600, 1000) / 86400
   
10. Next i
    
11. End Sub

复制代码