输入不重复的随机整数(参考答案在1楼)

兰色幻想

<p>要求在单元格A1:A10区域输入10个不重复的随机整数(&gt;=100,&lt;=200)</p><p>Sub dd()<br/>&nbsp;Dim x As Integer<br/>&nbsp;For x = 1 To 10<br/>&nbsp;&nbsp; Do<br/>&nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 1) = Int(Rnd() * 100 + 100) <font color="#1039de">'Rnd生成的是0-1的随机小数</font><br/>&nbsp;&nbsp; Loop Until Application.Match(Cells(x, 1), [a:a], 0) = x&nbsp; '<font color="#1111ee">循环到没有复数量结束</font><br/>&nbsp;Next x<br/>End Sub</p>

[此贴子已经被作者于2008-6-24 11:54:42编辑过]

suye1010

<p>这个我以前玩过^_^</p><p>自己编了个双色球的选号器的时候用过^_^</p>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>suye1010</i>在2008-6-23 13:56:00的发言：</b><br/><p>这个我以前玩过^_^</p><p>自己编了个双色球的选号器的时候用过^_^</p></div><p>把你的代码写出来,看看</p>[em05]

JANEY

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p>眼熟吗?[em01][em01][em01][em01]</p>

Firerabbit

<p>看看</p>

ZJJ32072175

=INT(RAND()*(200-100+1))+100，可能会有重复

suye1010

<p>找不到了……</p><p>主要使用了 rnd，int函数，外加两个嵌套循环，搞定……</p><p>&nbsp;</p><p>重写了个……</p><p>Sub random()<br/>Dim arr(1 To 10), i As Integer, j As Integer<br/>&nbsp;&nbsp;&nbsp; For i = 1 To 10<br/>100:<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(i) = Int(Rnd() * 101 + 100)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If i &gt; 1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For j = 1 To i - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If arr(i) = arr(j) Then GoTo 100<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next j<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next i<br/>Range("A1:A10") = Application.Transpose(arr)<br/>End Sub</p>

[此贴子已经被作者于2008-6-23 14:49:09编辑过]

簡單愛情

<p>不会呀！来看看</p><p>学习了</p>

ZJJ32072175

有谁用函数写出来学习一下，

pp000pp

<p>这个不用公式吧。在数据有效性里边，一下就设置完毕。</p>