[已解决]timevalue 后面括号中的数字10设成1至10的随机数

幽月儿

Sub 示例()
        Dim sj
dim i as long
for i =1 to 10
sj1 = TimeValue("00:10:00")   
cells(i,1)=sj1
next i
End Sub
以上代码timevalue括号中的10是一个固定值，如何将这个10设成是随机数（1-10），请大家帮忙，谢谢

最佳答案

月排行榜 / 总排行榜

hello_cgj

2015-6-9 19:03

这样试试

1. Sub 示例()
   
2.         Dim sj1, sj2 As String
   
3. Dim i As Long
   
4. For i = 1 To 10
   
5. sj2 = "00:" & Int(Rnd() * 10 + 1) & ":00"
   
6. sj1 = TimeValue(sj2)
   
7. Cells(i, 1) = sj1
   
8. Next i
   
9. End Sub
   
10. 
    

复制代码

跳转到最佳答案楼层

hello_cgj

这样试试

1. Sub 示例()
   
2.         Dim sj1, sj2 As String
   
3. Dim i As Long
   
4. For i = 1 To 10
   
5. sj2 = "00:" & Int(Rnd() * 10 + 1) & ":00"
   
6. sj1 = TimeValue(sj2)
   
7. Cells(i, 1) = sj1
   
8. Next i
   
9. End Sub
   
10. 
    

复制代码