[已解决]如何表示不含“3”

lingyuncelia1

在A1输入“1246”，运行以下代码：
If Cells(1, 1).Text not Like "*" & "3" & "*" Then MsgBox "不含3"
会显示“语法错误”，要如何改善才可知道某单元格不含某字符呢？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-8 22:48

Sub test()
    Cells(1, 1) = "1246"
    If Not Cells(1, 1).Text Like "*" & "3" & "*" Then MsgBox "不含3"
    If InStr(Cells(1, 1), "3") = 0 Then MsgBox "不含3"
End Sub

这是常用的方式

跳转到最佳答案楼层

爱疯

Sub test()
    Cells(1, 1) = "1246"
    If Not Cells(1, 1).Text Like "*" & "3" & "*" Then MsgBox "不含3"
    If InStr(Cells(1, 1), "3") = 0 Then MsgBox "不含3"
End Sub

这是常用的方式

sry660

1. Sub t()
   
2.     If Cells(1, 1).Text Like "*" & "3" & "*" Then
   
3.         MsgBox "含3"
   
4.     Else
   
5.         MsgBox "不含3"
   
6.     End If
   
7. End Sub

复制代码

lingyuncelia1

爱疯 发表于 2016-3-8 22:48
Sub test()
    Cells(1, 1) = "1246"
    If Not Cells(1, 1).Text Like "*" & "3" & "*" Then MsgBox " ...

谢谢赐教,这个就是我想要的.

lingyuncelia1

sry660 发表于 2016-3-8 22:53

谢谢赐教,不胜感激.