IF判断代码精简

yjwdjfqb

IF判断代码精简

老师们好，这个代码怎么精简才好，谢谢老师们了。

1. 
   
2. Function 性别(字段) As String
   
3.    
   
4.     If 字段 = "父亲" Or 字段 = "丈夫" Or 字段 = "哥哥" Or 字段 = "弟弟" Or 字段 = "儿子" Or 字段 = "长子" Or 字段 = "次子" Then
   
5.         性别 = "男"
   
6.     End If
   
7.    
   
8.     If 字段 = "母亲" Or 字段 = "妻子" Or 字段 = "姐姐" Or 字段 = "妹妹" Or 字段 = "女儿" Or 字段 = "长女" Or 字段 = "次女" Then
   
9.         性别 = "女"
   
10.     End If
    
11. Rem 用法：=性别(A2)
    
12. End Function
    
13. 
    

复制代码

Excel中自定义一个IF判断.rar (6.9 KB, 下载次数: 2)

2022-12-3 22:44 上传

点击文件名下载附件

582766

if instr("父亲丈夫哥哥弟弟儿子长子次子",字段) then
        性别 = "男"

582766

代码审核中

汉唐

Function 性别(字段) As String
Select Case 字段
Case "父亲", "丈夫", "哥哥", "弟弟", "儿子", "长子", "次子"
        性别 = "男"
Case "母亲", "妻子", "姐姐", "妹妹", "女儿", "长女", "次女"
        性别 = "女"
End Select
Rem 用法：=性别(A2)
End Function

鑫尼达

蛮好的啊，简单明了几行代码还要精简干嘛

tanglf188

if instr("父亲丈夫哥哥弟弟儿子长子次子",字段)>0  then 性别 = "男"
if instr("母亲妻子姐姐妹妹女儿长女次女"",字段)>0  then 性别 = "女"

ahaoge

On Error Resume Next
    arr = Array("父亲", "丈夫", "哥哥", "弟弟", "儿子", "长子", "次子")
    i = Application.WorksheetFunction.Match(Test, arr, 0)
    sex = IIf(i > 0, "男", "女")

ahaoge

来个最简单的,参考参考

q3698995

1. Function xb(s)
   
2.     If s Like "*[父夫哥弟子]*" Then
   
3.         xb = "男"
   
4.     ElseIf s Like "*[母妻姐妹女]*" Then
   
5.         xb = "女"
   
6.     End If
   
7. End Function

复制代码