Question

怎样在EXCEL中随机填充时间

1-B在1-A后20到30分钟之间的某个时间，2-A在1-B后5分钟之内的时间以此类推 求高手指点

Answer 1

用vba可以实现。举例说明：

第一步：点击开发工具-visual basic。

第二步：插入模块，写代码如下：

Sub 随机时间()
upperbound = 1
upperbound = 1 * 24 * 60
'注：从1分钟到1224分钟取随机数 1天有24小时，每小时有60分钟
'该随机数的最小单位为分钟
sjs = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
ActiveCell = sjs / 24 / 60
End Sub

第三步：点击宏-选项。设置快捷键为 ctarl-a。如图：

第四步：选择B2单元格，按ctrl-a，结果如图：

第五步：选择B2：B10，按鼠标右键，设置单元格格式。如图：

第六步：设置格式为时间。如图：

第七步：按确定后结果如图：

第八步：分别选择B3~B10，点击ctrl-a。结果如图：

Answer 2

B1公式=a1+randbetween(20,30)/24/60

A2公式=b1+randbetween(0,5)/24/60

时间随机(7:00-8:30）：

=RAND()*("8:30"-"7:00")+"7:00"

格式设置为时间格式即可

Answer 3

用vba可以实现。
第一步：点击开发工具-visual basic。

第二步：插入模块，写代码如下：
Sub 随机时间()upperbound = 1upperbound = 1 * 24 * 60'注：从1分钟到1224分钟取随机数 1天有24小时，每小时有60分钟'该随机数的最小单位为分钟sjs = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)ActiveCell = sjs / 24 / 60End Sub第三步：点击宏-选项。设置快捷键为 ctarl-a。

第四步：选择B2单元格，按ctrl-a。

第五步：选择B2：B10，按鼠标右键，设置单元格格式。

第六步：设置格式为时间。

第七步：按确定后结果。

第八步：分别选择B3~B10，点击ctrl-a。