EXCEL中用VBA判断单元格字符包含

Question

A1单元格的内容为 34265 当A2单元格的内容为256时结果为真，当A2单元格的内容为756时结果为假。
即A2单元格里的字符全部来源于A1（不管顺序）时结果为真，否则为假。
用VBA怎么判断？
完成后再追回100分，求高手解答

Answer 1

Function reif(rng As Range, rng1 As Range) As String
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "[" & rng(1) & "]"
        reif = .Replace(rng1(1), "")
    End With
    reif = IIf(reif = "", "真", "假")
End Function

Answer 2

直接上代码吧，我用SUB过程写的，如果你需要改为函数的话可以自己改一下。

Sub 判断是否包含()
    Dim source, str As String
    Dim result As Boolean
    source = Range("A1")
    str = Range("A2")
    result = True
    For i = 1 To Len(str)
        If InStr(1, source, Mid(str, i, 1), vbTextCompare) = 0 Then
            result = False
            Exit For
        End If
    Next i
    If Not result Then MsgBox ("not included")
End Sub

追问

不好意思，搞错了，没问题，谢谢

本回答被提问者采纳

Answer 3

sub
finstr()
'这个可以检测sheet1里面有数据的区域里是否包含你要查找的字符,如果有会依次提示
dim
rng
as
range
dim
findstr
as
string
findstr="某字符"
'这个某字符你替换成你需要的字符即可
for
each
rng
in
sheet1.usedrange'注意这里的检测sheet1里面的数据区域
如果是其它sheet需改
if
rng
like
"*"
&
findstr
&
"*"
then
msgbox
"单元格"
&
rng.address
&
"包含"
&
findstr
end
if
next
end
sub

Answer 4

sub finstr() '这个可以检测sheet1里面有数据的区域里是否包含你要查找的字符,如果有会依次提示 dim rng as rangedim findstr as stringfindstr="某字符" '这个某字符你替换成你需要的字符即可For Each rng In Sheet1.UsedRange'注意这里的检测sheet1里面的数据区域 如果是其它sheet需改 If rng LIKE "*" & findstr & "*" Then msgbox "单元格" & rng.address & "包含" & findstr End IfNextend sub

VBA判断单元格是否包含某字符使用InStr函数，与工作表的FIND函数类似。InStr函数的帮助信息如下：程序中判断是否包含，可以这样写VBA代码：IfInStr("111a222","a")=0ThenMsgBox"不包含"ElseMsgBox"包含"执行示例：

Answer 5

Function 判断(Str1 As String, Str2 As String) As Boolean
For i = 1 To Len(Str2)
If InStr(1, Str1, Mid(Str2, i, 1), vbTextCompare) = 0 Then
判断 = False
Exit Function
End If
Next i
判断 = True
End Function

使用时用下面的方法
Cells(1, 3).Value = 判断(Cells(1, 1), Cells(2, 1))

或不写函数也可以：
Dim bCompare as Boolean
For i = 1 To Len(Range("A2").Value)
If InStr(1, Range("A1").Value, Mid(Range("A2").Value, i, 1), vbTextCompare) = 0 Then
bCompare = False
End If
Next i
bCompare = True