自定义一个IF判断函数

yjwdjfqb

自定义一个IF判断函数

内容包含：母，妻，女，返回结果：女性

内容包含：父，夫，子，返回结果：男性
请老师们帮帮忙，谢谢老师们了！


Excel中自定义一个IF判断函数判断性别.rar (4.88 KB, 下载次数: 8)

2022-12-2 16:12 上传

点击文件名下载附件

陆离Lowry

妻子？？？？

陆离Lowry

1. =IF(SUM(IFERROR(FIND({"母","妻","女","父","夫","子"},A2),)*{10,10,10,1,1,1})>9,"女","男")

复制代码

wengjl

Function iflb(mc As String)
     
     Dim hzgx
     hzgx = mc
     If InStr(1, hzgx, "母", 1) > 0 Then
        iflb = "女性"
     End If
     If InStr(1, hzgx, "妻", 1) > 0 Then
        iflb = "女性"
     End If
     If InStr(1, hzgx, "女", 1) > 0 Then
        iflb = "女性"
     End If
     If InStr(1, hzgx, "父", 1) > 0 Then
        iflb = "男性"
     End If
     If InStr(1, hzgx, "夫", 1) > 0 Then
        iflb = "男性"
     End If
     If InStr(1, hzgx, "子", 1) > 0 Then
        iflb = "男性"
     End If
     If InStr(1, hzgx, "妻子", 1) > 0 Then
        iflb = "女性"
     End If
     
End Function

gwjkkkkk

Function genderMorW(strTxt) As String
Dim arr, i&, j&
Application.Volatile
arr = [{"母女妻","女";"父子夫","男"}]
For i = 1 To UBound(arr)
   For j = 1 To Len(strTxt)
      If InStr(arr(i, 1), Mid(strTxt, j, 1)) Then
         genderMorW = arr(i, 2)
         Exit Function
      End If
   Next j
Next i
End Function

准提部林

=TEXT(MATCH(9,FIND({"父","夫","子","|","母","妻","女"},A2))-4,"女;男")

yjwdjfqb

感谢各位老师的帮助，周末愉快老师们！

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

复制代码

yjwdjfqb

q3698995 发表于 2022-12-3 09:33

老师你好，如果单元格中内容是，妹夫，应该提取男性才对，怎么在里面增加上
姐夫、妹夫返回男性
弟媳，返回女生
谢谢你了老师。

yjwdjfqb

各位老师好，如果这样写
如何精简下代码，谢谢老师们了！

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

复制代码