[已解决]请高手帮忙看下这个用vba来选择任意时间的难题

qiongmei

我附件上有一个工作表，我希望当我在d2和f2的起始时间内和结束时间内输入时间（时分秒）的时候，在a1：a30中任意出现起始时间和结束时间之间的时间，例如：我在

起始时间

7:00:20

结束时间

7:10:59

那么他在a1：a30之间可能会出现a1  7:09:20  a8  7:03:40等等，在a1：a30之间出现的数字都是任意出现的，每次执行代码后a1：a30每个单元格都必须有任意的起始时间到结束时间的时间

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-15 16:32

用公式就可以啦：
A1=($F$2-$D$2)*RAND()+$D$2 下拉填充
然后复制，粘帖数值。

跳转到最佳答案楼层

爱疯

1. 
   
2. Sub test()
   
3.     Dim x As Double, y As Double, z As Double
   
4.     Dim i As Integer
   
5.     x = [d2]
   
6.     y = [f2]
   
7.     For i = 1 To 30
   
8.         If (y - x) * Rnd <> 0 Then
   
9.             z = (y - x) * Rnd + x
   
10.         End If
    
11.         Cells(i, 1) = Format(z, "hh:mm:ss")
    
12.     Next i
    
13. End Sub

复制代码

{:041:}

zjdh

用公式就可以啦：
A1=($F$2-$D$2)*RAND()+$D$2 下拉填充
然后复制，粘帖数值。

fansong

学习了，谢谢！

fjmxwrs

回复 qiongmei 的帖子

晕到，你是要VBA还是公式呀？