Question

excel一段vba过程代码，实现在选取的单元格中随机生成0-10之间的数，生成的可重复。求高手指点，在线急等

Answer 1

private sub selection_change(byval as range)
dim cur as range
cur=selection
for each rg in the cur
if rg<>"" then
rg.value=Int((10 * Rnd) +0)

else
end if
next
end sub

追问

不行啊，这个运行不了

Answer 2

代码如下：
sub m()
selection.value=int(rnd*10)+1
end sub

追问

我靠。。这么简单真的运行了。。。。
可是怎么没有随到0呢？
还有，我想在指定位置上运行，怎么添加位置？例如在B5的位置上运行

追答

随机到0，可以改成selection.value=int(rnd*11)
指定位置，就将selection改为指定位置，例如
range("B5")=int(rnd*11)

追问

对的。。。非常感谢。。