易表在线答疑技术与交流用户社区 → 想实现在给定的数字集合里随机选数,且不重复,怎样设置公式?


  共有7737人关注过本帖树形打印复制链接

主题:想实现在给定的数字集合里随机选数,且不重复,怎样设置公式?

帅哥哟,离线,有人找我吗?
redsun1888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:169 积分:269 威望:0 精华:0 注册:2007/8/9 23:48:00
想实现在给定的数字集合里随机选数,且不重复,怎样设置公式?  发帖心情 Post By:2017/1/2 1:42:00 [只看该作者]

想实现在给定的数字集合里随机选数,且不重复,怎样设置公式?
比如在1、2、3、4、5、6、7、8、9、10这些数字里随机选,且每次不重复。
谢谢了!
[此贴子已经被作者于2017/1/2 1:44:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/2 9:17:00 [只看该作者]

Int(Rand(10))+1

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/2 10:16:00 [只看该作者]

这样?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:随机数.egd



 回到顶部
帅哥哟,离线,有人找我吗?
yibiao586
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:34 积分:569 威望:0 精华:0 注册:2014/8/20 20:12:00
  发帖心情 Post By:2017/1/3 20:00:00 [只看该作者]

LOOP("2>1","SetVariable(""%A%"",""01 02 03 04 05 06 07 08 09 10 11 "")"+"And"+ "SetVariable(""%B%"",Mid([%A%],int(Rand(11))*3,3))"+"And"+ " SetVariable(""%A%"",Replace([%A%],Instr([%B%],[%A%]),3,""""))"+"And"+ "SetVariable(""%C%"",Mid([%A%],int(Rand(10))*3,3))"+"And"+ " SetVariable(""%A%"",Replace([%A%],Instr([%C%],[%A%]),3,""""))"+"And"+" SetVariable(""%D%"",Mid([%A%],int(Rand(9))*3,3))"+"And"+  "SetVariable(""%A%"",Replace([%A%],Instr([%D%],[%A%]),3,""""))"+"And"+"  SetVariable(""%E%"",Mid([%A%],int(Rand(8))*3,3))"+"And"+ " SetVariable(""%A%"",Replace([%A%],Instr([%E%],[%A%]),3,""""))"+"And"+ "SetVariable(""%F%"",Mid([%A%],int(Rand(7))*3,3))"+"And"+ " SetVariable(""%J%"",[%B%]+[%C%]+[%D%]+[%E%]+[%F%])"+"And"+ "SetVariable(""%J%"",Replace([%J%],Instr(Max([%B%],[%C%],[%D%],[%E%],[%F%]),[%J%]),3,""""))"+"And"+ "SetVariable(""%J%"",Replace([%J%],Instr(Min([%B%],[%C%],[%D%],[%E%],[%F%]),[%J%]),3,""""))"+"And"+" SetVariable(""%K%"",Mid([%J%],0,3))"+"And"+ " SetVariable(""%L%"",Mid([%J%],3,3))"+"And"+ " SetVariable(""%M%"",Mid([%J%],6,3))" +"And"+ " SetVariable(""%J%"",Replace([%J%],Instr(Max([%K%],[%L%],[%M%]),[%J%]),3,""""))"+"And"+ "SetVariable(""%N%"",Replace([%J%],Instr(Min([%K%],[%L%],[%M%]),[%J%]),3,""""))"+"And"+ "AddRow(GridName,""原始号码,已整理号码"",[%B%]+[%C%]+[%D%]+[%E%]+[%F%],Min([%B%],[%C%],[%D%],[%E%],[%F%])+Min([%K%],[%L%],[%M%])+[%N%]+Max([%K%],[%L%],[%M%])+Mid(Max([%B%],[%C%],[%D%],[%E%],[%F%]),0,3))",[%I%]) " )

 回到顶部