求0-24个数字随机排列为10个数字为一组数字排列的EXCEL宏
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/12 00:52:38
求0-24个数字随机排列为10个数字为一组数字排列的EXCEL宏
Sub aa()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Do
d(Int(Rnd() * 25)) = 0
Loop Until d.Count = 10
Range("A" & Range("A65536").End(xlUp).Row + 1).Resize(1, 10) = d.keys
End Sub
运行此宏即在A到J列生成不重复的10个0到24间的整数,运行一次生成一组,依次写到上一组数据的下一行
再问: 那可以根据几个连续的数字来查找所在的组吗,例如; 17 13 14 7 19 0 20 1 10 21 17 13 14 7 3 0 8 15 17 22 这个数字组生成后,我可以通过输入17.13.14或是17.13.14.7这几个连续的数字来查找所在的所有不同组吗?
再答: 以上代码是不是你要的?
再问: 上面我只是举例子,来说明除了自动生成随机数字组外,是否能通过输入几个连续数字的方式来查询数字组。再问下这种随机组,是否会重复出现/
再答: 不是你要的就不会了,不知道你还会再接下改变什么问题。
再问: 是我没有把问题说清楚吗,简而言之我是要数字随机排列,也要查找的功能,因为工作急需,请帮忙解答为谢
再答: 搞彩票呀?不会
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Do
d(Int(Rnd() * 25)) = 0
Loop Until d.Count = 10
Range("A" & Range("A65536").End(xlUp).Row + 1).Resize(1, 10) = d.keys
End Sub
运行此宏即在A到J列生成不重复的10个0到24间的整数,运行一次生成一组,依次写到上一组数据的下一行
再问: 那可以根据几个连续的数字来查找所在的组吗,例如; 17 13 14 7 19 0 20 1 10 21 17 13 14 7 3 0 8 15 17 22 这个数字组生成后,我可以通过输入17.13.14或是17.13.14.7这几个连续的数字来查找所在的所有不同组吗?
再答: 以上代码是不是你要的?
再问: 上面我只是举例子,来说明除了自动生成随机数字组外,是否能通过输入几个连续数字的方式来查询数字组。再问下这种随机组,是否会重复出现/
再答: 不是你要的就不会了,不知道你还会再接下改变什么问题。
再问: 是我没有把问题说清楚吗,简而言之我是要数字随机排列,也要查找的功能,因为工作急需,请帮忙解答为谢
再答: 搞彩票呀?不会
0-9 这10个数字里任意选6个数字为一组.请问可以排列多少组?
高中数字组合排列 任意10个数任选6个为一组排列,一共能有多少组数字啊
关于excel数字随机排列的问题
由0到9的数字来排列,5个数字为一组,可以排多少组?怎么排呢?
数字排列组合,0到9这十个数字如果4个数字为一组可以排列多少组
12个数字不重复排列,可排成9个数字为一组,共有多少组?
1到4这四个数字如果4个数字为一组可以排列多少组
EXCEL中,识别二个数字从小到大排列.求公式.
26个数字排列,5个数字一组,有多少种排列方法.具体怎么排列,
0~9的密码一共有多少种排列?最少为一个数字,最多为10个数字..
请问:0-9 (10个数字)三个数排列一组,能排列几组
如何让Excel 中的数字随机排列