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

ivccav

lby0712 发表于 2018-6-9 11:08
这个end if 不知道放哪里，图一还是图二？

'你第一张图那样写也不是不可以，就是多判断了一次。
'用else则少判断一次。第二张图逻辑已经不对。
'你的英文不错，你就按字面意思理解即可。
'如果 那么就...
'否则....

'如果性别只有两种，可以这样：

If ar(t, 3) = "男" Then
    If n1 Then Cells(n1 + 1, 5) = ar(t, 2): n1 = n1 - 1
Else
    If n2 Then Cells(n2 + 1, 6) = ar(t, 2): n2 = n2 - 1
End If

'或者：

If ar(t, 3) = "男" Then
    If n1 > 0 Then
        Cells(n1 + 1, 5) = ar(t, 2)
        n1 = n1 - 1
    End If
Else
    If n2 > 0 Then
        Cells(n2 + 1, 6) = ar(t, 2)
        n2 = n2 - 1
    End If
End If

'其中If n1 Then 和If n1<>0 Then等效，只要是非零数字，条件就是TRUE
'如果语句较短，可以用冒号把多行写在一行上，
'如果语句较长，可以用 & _ 分多行书写。

'如果性别不止两种，比如还有“中性”，可以这样：

If ar(t, 3) = "男" Then
    If n1 Then Cells(n1 + 1, 5) = ar(t, 2): n1 = n1 - 1
ElseIf ar(t, 3) = "女" Then
    If n2 Then Cells(n2 + 1, 6) = ar(t, 2): n2 = n2 - 1
End If

'If语句只有两种语法(中括号中为可选)：
第一种（如果语句1有多条语句也必须写在同一行，用冒号分开 ）：

If 条件 Then 语句1 [Else 语句2]

第二种：

If 条件1 Then
    [语句1]
[ElseIf 条件2 Then
    [语句2]
[Else
    [语句3]]
End If

lby0712

ivccav 发表于 2018-6-9 13:18
'你第一张图那样写也不是不可以，就是多判断了一次。
'用else则少判断一次。第二张图逻辑已经不对。 ...

'如果性别不止两种，比如还有“中性”，可以这样：

If ar(t, 3) = "男" Then
    If n1 Then Cells(n1 + 1, 5) = ar(t, 2): n1 = n1 - 1
ElseIf ar(t, 3) = "女" Then
    If n2 Then Cells(n2 + 1, 6) = ar(t, 2): n2 = n2 - 1
Elseif ar(t,3)= 中性 then
    If n3 then cells(n3+1,7)= ar(t,2) :n3 = n3 -1
End If




这样？

ivccav

lby0712 发表于 2018-6-9 13:47
'如果性别不止两种，比如还有“中性”，可以这样：

If ar(t, 3) = "男" Then

如果只有3种性别，最后一个条件不需要elseif，直接else，排除法。
除了男、女之外都满足条件。当然你的写法也没问题。
如果性别不止3种，只能按你的写法，才能精确输出

If ar(t, 3) = "男" Then
    If n1 Then Cells(n1 + 1, 5) = ar(t, 2): n1 = n1 - 1
ElseIf ar(t, 3) = "女" Then
    If n2 Then Cells(n2 + 1, 6) = ar(t, 2): n2 = n2 - 1
Else
    If n3 then cells(n3+1,7)= ar(t,2) :n3 = n3 -1
End If

yjh_27

三坛老窖 发表于 2018-6-2 20:21
呵呵，这是香川的风格，你这么说，作为EH中众多香粉之一，表示不服！

你所列的1、2、3、4理由不成立

香川无退循环，所以只有最大，无最小。

三坛老窖

yjh_27 发表于 2018-6-9 18:02
香川无退循环，所以只有最大，无最小。

嗯，你说的对，香川的代码中少了一句
if n1+n2=0 then exit for
加上这一句就有最少了。

楼下小刀和duquancai都有提及这句代码，所以我就不说了。