生成满足一定条件的1-20的不重复的整数

拾音2012 · 发表于 2012-11-13 19:00

满足一定条件的随机数.rar (7.44 KB, 下载次数: 15)

　　说明：1、A列产生1-20的不重复的20个随机整数；2、这20个整数同时要满足B2所给的条件(A1*A2=16)或者其他的条件；3、这20个整数可以通过命令按钮(用代码）重复运算而发生改变。
　　我想这个有点复杂，如哪位高手能帮我解决，将不胜感激。

dsmch · 发表于 2012-11-13 19:25

本帖最后由 dsmch 于 2012-11-13 19:26 编辑

只有确定条件后，再满足第一步
要知道PERMUT(20,20)有3.4329E+18种组合

fjzjm · 发表于 2012-11-13 22:02

第一步：生成1-20个随机不重复值
A2=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$20)),"",ROW($1:$20)),INT(RAND()*(21-ROW(A1))+1)) 数组下拉
第二步：那个B2的条件，不明白。等待高手的正解。

拾音2012 · 发表于 2012-11-14 21:55

fjzjm 发表于 2012-11-13 22:02
第一步：生成1-20个随机不重复值
A2=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$20)),"",ROW($1:$20)),INT(RAND()* ...

非常谢谢您的解答。您的解答对我有一定的帮助。因每次下拉这20个值都会随机改变，所以可以反复下拉直到满足条件为止，但如果条件稍微复杂一些，可能要拉无数次才可以，这样不方便。您能不能告诉我用代码自动反复改变这20个值，直到满足条件，如A2＝1为止呢？

fjzjm · 发表于 2012-11-15 08:33

无须代码，按F9 即可。

拾音2012 · 发表于 2012-11-16 00:00

但按F9每次只能运算一次，如果要满足条件，可能要运算上亿次。

dsmch · 发表于 2012-11-16 10:42

本帖最后由 dsmch 于 2012-11-16 11:16 编辑

附件…………

拾音2012 · 发表于 2012-11-17 00:48

本帖最后由拾音2012 于 2012-11-17 11:38 编辑

很幸运，有您这样的高手提供帮助。您提供的代码很强大，但因为我不理解，所以无法修改而达到我想要的效果。要满足的条件比我帖子上的要复杂，我在附件上做了详细的说明，请您再次费心提供帮助。

拾音2012 · 发表于 2012-11-17 11:42

拾音2012 发表于 2012-11-17 00:48
很幸运，有您这样的高手提供帮助。您提供的代码很强大，但因为我不理解，所以无法修改而达到我想要的效果。 ...

上贴因附件选错格式没能传上，现在我将附件添加到了上贴，上面有确定的条件和详细的说明，麻烦您帮我看看。

dsmch · 发表于 2012-11-17 16:39

line1:
Range("A2").AutoFill Destination:=Range("A2:A14"), Type:=xlFillDefault
If [c16] <> 0 Then GoTo line1

复制代码

这样也不能满足要求啊。

		自动登录	找回密码
密码			免费注册

生成满足一定条件的1-20的不重复的整数

评分

评分

点评

评分