[已解决]随机数生成问题

wml514166604

随机数生成问题-15到15之间  而且加起来等于0

最佳答案

月排行榜 / 总排行榜

nothingwmm

2011-2-13 12:13

解答1： VBA解法 参考楼上的答案代码

1. Sub change()
   
2. Dim X%, Y%
   
3. Randomize
   
4. Do
   
5.     For X = 9 To 18
   
6.         For Y = 4 To 6
   
7.             Cells(X, Y) = Int(Rnd * 30 - 15)
   
8.             If Application.Sum(Range("D9:F18")) = 0 Then End
   
9.         Next Y
   
10.     Next X
    
11. Loop
    
12. End Sub

复制代码

解答2：函数法
1. 将区域内所有单元格公式设置为
=INT(RAND() * 30 - 15)
2. 将其中一个单元格公式改为:
=0-ABS(SUM(D9:F17,D18:E18))
通过任意改变其他区域单元格值改变本区域值，直到该单元格的值在-15-15之间。
也可以哦。

跳转到最佳答案楼层

wml514166604

高手帮忙看哈 啊   谢谢了

冠军欧洲2010

生成随机数好开弄，但是并且要它们的和等于零就不好办啦吧。
期待高手来解决。。

放浪形骸

是的，有同感 。

wml514166604

急用 望高手帮忙啊 谢谢了啊

wml514166604

还要加起来等于0啊  

yy_hyd

{:011:}{:011:}

mxg825

VBA代码1：
Sub MXG825()
Dim X%, Y%
Randomize
Do
    For X = 1 To 10
        For Y = 1 To 3
            Cells(X, Y) = Int(Rnd * 30 - 15)
            If Application.Sum(Range("A1:C10")) = 0 Then End
        Next Y
    Next X
Loop
End Sub


VBA代码2：

Sub MXG825()
Dim X%, Y%
Randomize
Do
    X = Int(Rnd * 10 + 1)
    Y = Int(Rnd * 3 + 1)
            Cells(X, Y) = Int(Rnd * 30 - 15)
            If Application.Sum(Range("A1:C10")) = 0 Then End
Loop
End Sub

nothingwmm

解答1： VBA解法 参考楼上的答案代码

1. Sub change()
   
2. Dim X%, Y%
   
3. Randomize
   
4. Do
   
5.     For X = 9 To 18
   
6.         For Y = 4 To 6
   
7.             Cells(X, Y) = Int(Rnd * 30 - 15)
   
8.             If Application.Sum(Range("D9:F18")) = 0 Then End
   
9.         Next Y
   
10.     Next X
    
11. Loop
    
12. End Sub

复制代码

解答2：函数法
1. 将区域内所有单元格公式设置为
=INT(RAND() * 30 - 15)
2. 将其中一个单元格公式改为:
=0-ABS(SUM(D9:F17,D18:E18))
通过任意改变其他区域单元格值改变本区域值，直到该单元格的值在-15-15之间。
也可以哦。

老糊涂

{:1112:}