请问：在VBA怎样判断在Excel选定区域内是不是存在某字符串?

Posted 2023-04-04

如果你要查找的某字符串是固定的数值，这个应该不难办到，可以用Worksheet_SelectionChange事件，添加适当的代码来达到些目的。
假如你的某两个单元格内有以下内容：
我们的家乡
我们的中国
你在在你选定的区域内查找“家乡”这两个字
在sheet1代码编辑器中粘贴以下代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
arr = Split(Target, "")
text1 = "*家乡*"
For x = 0 To UBound(arr)
If arr(x) Like text1 = True Then
MsgBox Target.Address & "包含" & text1
End If
Next
End Sub
然后，选中某些区域进行测试 参考技术A '实现指定单元区域，条件查询
Set a = Application.InputBox("输入查询区域", "区域", Type:=8) '输入查询区域
intext = InputBox("输入查询关键字", "关键字查询") '输入查询关键字
With a.Select
For Each b In a
Set F = b.Find(intext, LookIn:=xlValues)
If Not F Is Nothing Then
MsgBox "存在查询关键字" '这里输入你想执行的方法
End If
Next
End With 参考技术B 特定区域内判断的话用FIND：
set F = selection.find("字符", LookIn:=xlValues)
if not F is nothing then
msgbox "字符串存在"
endif

请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！

请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！

参考技术A 这个很难的。
可以一键将单元格内容转换成文本放在剪贴板上，然后手动到微信群上粘贴。追问

我现在用的都是手工转成文本然后再转到微信上发送，这样一来我太麻烦了！所以来请帮忙了…