求写一个excel自定义函数

发布网友 发布时间：2024-10-23 04:53

我来回答

共5个回答

热心网友 时间：2024-10-23 08:15

Private Function mFS(mCell As Range, mStr1 As String, mstr2 As String, mC As Boolean) As Boolean
mFS = IIf(mC, InStr(mCell.Value, mStr1) * InStr(mCell.Value, mstr2), InStr(mCell.Value, mStr1) + InStr(mCell.Value, mstr2))
End Function

-------函数只有一句话，使用方法如下-----------
=mfs(A1,"a","f",1)
第一个参数单元格，第二个、第三个为查找字符，
第四个参数有两个选项（使用逻辑值可以减少运算量），0则为包含一个为TRUE, 1则为包含两个为TRUE

热心网友 时间：2024-10-23 08:15

Function et(a As Range, b As String, c As String, d As String)
Select Case d
Case "1"
If InStr(1, a, c) <> 0 And InStr(1, A, B) <> 0 Then
et = True
Else
et = False
End If
Case "2"
If InStr(1, a, c) <> 0 Or InStr(1, A, B) <> 0 Then
et = True
Else
et = False
End If
Case esle
et = "错误的逻辑参数！" & d
End Select

End Function

热心网友 时间：2024-10-23 08:16

Function exFind(within_Cell As Range, find_text1 As String, find_text2 As String, Optional findMode As Long = 1) As Boolean

    If findMode = 2 Then
    

       exFind = (InStr(within_Cell.Cells(1, 1).Value, find_text1) > 0 Or InStr(within_Cell.Cells(1, 1).Value, find_text2) > 0)
       

    Else
    

        exFind = (InStr(within_Cell.Cells(1, 1).Value, find_text1) > 0 And InStr(within_Cell.Cells(1, 1).Value, find_text2) > 0)
        

    End If
    

End Function

热心网友 时间：2024-10-23 08:17

ALT+F11 打开VBE 窗口 插入模块  ，代码放在模块里面

Function instr1(rg As Range, str1 As String, str2 As String, k As Byte)
        Select Case k
            Case "1"
                If InStr(1, rg, str2) <> 0 And InStr(1, rg, str1) <> 0 Then
                    instr1 = True
                Else
                    instr1 = False
                End If
            Case "2"
                If InStr(1, rg, str2) <> 0 Or InStr(1, rg, str1) <> 0 Then
                    instr1 = True
                Else
                    instr1 = False
                End If
             Case Else
                instr1 = "k的值错误"
        End Select
        
        
 End Function

热心网友 时间：2024-10-23 08:17

这个不用VBA也可以实现吧？