vba问题求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Dim randi As Double      
Dim randx() As Double     
Dim i As Double
Dim death() As Double   
Dim totaldeath() As Double

Sheets("Sheet1").Cells(8, 3).Value = randi

For i = 0 To randi * 10

    If i = 0 Then
        totaldeath(i) = 0
    Else
        randx(i) = "=rand()"

End If

Excel VBA程序运行到这就
    Else
        randx(i) = "=rand()"
就出现“下标越界”的错误提醒。
小白一枚，求大神，学霸指教，感激不尽！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：VBA double sheets Death Total

几个问题，不知道对不对
1. randi 的赋值
2. For i = 0 To randi * 10, 后面需要加step 多少么，randi*10是integer么
3. next i 加了么

zoujian8804 发表于 2013-7-15 15:23
几个问题，不知道对不对
1. randi 的赋值
2. For i = 0 To randi * 10, 后面需要加step 多少么，randi*10 ...

几经解决了，多谢。
1：randi的赋值写反了。。。
2：randi*10是integer没错
3：这只是程序的一部分，加next i了

另：好像用index variable时，必须有限定，所以我直接randx（10000000）

看看

谢谢分享！

？这是什么东西呢

感谢分享

点赞支持

thanks for sharing

thanks for 你的分享