Question

请教，在VBA窗体的文本框中输入的文字，如何判断和其他单元格的内容相似？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

没法判断相似，但可以用关键字进行模糊查找

追问

如何模糊查找？

追答

用 like 比较或调用工作表函数 SEARCH 查找关键字

Answer 2

你这个相似，范围太笼统，建议举几个例子，针对例子讨论。

追问

就是雷同

追答

直接等号就OK了。如果是包含，也可以用like判断。

Private Sub CommandButton1_Click()
If [A1] Like "*" & TextBox1.Text & "*" Then MsgBox "发现雷同！" Else MsgBox "不同！"
End Sub

Private Sub CommandButton1_Click()
If TextBox1.Text = [A1] Then MsgBox "发现雷同！"
End Sub