求助IF多条件包含怎么简写

xiao99hui

多个条件包含多个不同字符都成立，则返回TRUE，有一个不成立就返回FALSE。
不能用and，要简写if******* then

意思就是：把包含的字符串汇总到一个变量，再通过if.........then判断

高个子

。。。。。

我走我流

instr(u,10)*instr(u,3)....（但10成立了，1还需要判断么？）

taller

路一直都在下雨

你要的是这个？

1. Sub fga()
   
2.     Dim u As String
   
3.     If u Like "*1*" Like "*昆明*" Like "*3*" Like "*5*" Like "*10*" Then
   
4.         MsgBox "TRUE"
   
5.     Else
   
6.         MsgBox "FALSE"
   
7.     End If
   
8. End Sub

复制代码

xiao99hui

我走我流 发表于 2023-6-6 20:28
instr(u,10)*instr(u,3)....（但10成立了，1还需要判断么？）

只是做个假设。

DevilW

是 AND，我还以为是 OR

suntao2000

这是我的野路子
Sub test()
    Dim u As String
    u = "昆明123"
    If Application.Rept(u, 3) Like "*1*昆明*3*5*10*" Then
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
End Sub

xiao99hui

路一直都在下雨 发表于 2023-6-7 11:07
你要的是这个？

意思就是：把包含的字符串汇总到一个变量，再通过if.........then判断

xiao99hui

suntao2000 发表于 2023-6-7 11:24
这是我的野路子
Sub test()
    Dim u As String

已成功，完美解决