求一个从100名员工中，按性别随机抽取30名男生，20名女生的VBA代码

香川群子

ivccav 发表于 2018-6-7 14:26
一直搞这个组合没多少实际意思的。论坛还有很多问题都没人能回答上来。

香川基本只在弄她的组合排列， ...

现在论坛里的求助帖都是非常简单的内容，已经没有什么好研究的了。

ivccav

香川群子 发表于 2018-6-7 15:38
现在论坛里的求助帖都是非常简单的内容，已经没有什么好研究的了。

香川老师，我有两个问题问了很久也没人能回答，不知能否帮看一下：
http://club.excelhome.net/thread-1396007-1-1.html
http://club.excelhome.net/thread-1416073-1-1.html

还有一个凑数的问题，这个只能请教你了，截图部分是我使用他人的代码(加了条件)：
图片中 kk mod 2=1这个条件是什么道理？这个我没看懂。
我把凑数过程打印出来，发现相同行的数据多次出现，这是重复动作？还是我理解有误？




考场编排.zip (67.08 KB, 下载次数: 2)

2018-6-7 15:59 上传

点击文件名下载附件

darlingxx

这个有用，感谢各位大神

ivccav

说“论坛里的求助帖都是非常简单的内容”的人多是井底之蛙，

只会一点点东西就以为知道全世界了。

lby0712

ivccav 发表于 2018-6-7 15:14
想学组合排列，可以看看组合数学方面的书：图论，组合数学，组合最优，等等。

我开始的时候也喜欢在 ...

23楼这样表达的 IF判断可以吗？

ivccav

lby0712 发表于 2018-6-8 10:42
23楼这样表达的 IF判断可以吗？

可以。逻辑与(And)只要两个参数都为TRUE，其结果就为TRUE。
在VBA中，其实TRUE=-1，只是把所有非零隐式转为TRUE罢了。

不过你写的这句总感觉怪怪的，And的一边是逻辑判断，一边是数字，就不能加一个n>0吗？
还有一点要注意，if 条件1 And 条件2 Then语句，条件1和条件2都将被同时计算，无论是否需要，
例如条件1为FALSE的时候，VBA还会继续计算条件2，显然条件2没有任何计算价值了，如果条件2
计算很复杂的话，两个条件分开写效率更高。

lby0712

ivccav 发表于 2018-6-9 10:25
可以。逻辑与(And)只要两个参数都为TRUE，其结果就为TRUE。
在VBA中，其实TRUE=-1，只是把所有非零隐式 ...

二个条件分开写怎么表达？

ivccav

lby0712 发表于 2018-6-9 10:28
二个条件分开写怎么表达？

分开写就是：
If 条件1 then
    If 条件2 then
这样写，只有满足条件1的时候才会继续计算条件2，条件1为FALSE，直接Pass了。如果条件2的判断需要大量计算，就能节省很多时间。

If 条件1 And 条件2 then这种写法，会同时计算两个条件，很多时候会做了无用的计算，并且有时候还会导致错误，

比如用循环判断窗体某个控件的类型和某个属性值，就可能出错，因为有些控件并没有这个属性，当用And连在一起时，没有的属性也被计算了。

连在一起写，语句更短，一般情况下是没啥影响的，只是要明白这两种写法的区别，并避开可能产生的错误。iif函数也是这个道理。

duquancai

ivccav 发表于 2018-6-9 10:51
分开写就是：
If 条件1 then
    If 条件2 then

说的非常有道理，VBA中逻辑运算符  and和or  不存在“短路”！！！

lby0712

ivccav 发表于 2018-6-9 10:51
分开写就是：
If 条件1 then
    If 条件2 then

这个end if 不知道放哪里，图一还是图二？