如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告

罗亮亮 · 发表于 2020-1-14 00:11

老师们好求助一下
如何使单元格内输入文字与数据库sheet 里面内容进行对比然后提示缺哪些字并且跳出保存的生成文本文档报告
标点符号可以忽略
求助高手代码应该很复杂我研究很久了就是不知道该怎么整希望高手帮帮忙感激不尽
如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告.jpg

如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告.jpg

如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告.zip (132.81 KB, 下载次数: 7)

罗亮亮 · 发表于 2020-1-14 21:52

有没有老师傅帮帮忙了

罗亮亮 · 发表于 2020-1-17 20:25

自己在论坛上研究了好几天，发现不是没有大神而是excel根本对文字类的对比不敏感

liulang0808 · 发表于 2020-1-17 20:50

建议楼主结合附件举例说明具体需求。目前的附件看不懂的

罗亮亮 · 发表于 2020-1-19 22:50

liulang0808 发表于 2020-1-17 20:50
建议楼主结合附件举例说明具体需求。目前的附件看不懂的

如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告.zip (98.03 KB, 下载次数: 6) 如何从单元格1中的N多文字中选出指定文字在数据库对应的字符并显示在单元格2中.png

大神已经重新上传了

liulang0808 · 发表于 2020-1-20 07:48

罗亮亮发表于 2020-1-19 22:50
大神已经重新上传了

不好意思，还是理解不了。
楼主上传的图片及附件代码是达到要求了吗？

lsdongjh · 发表于 2020-1-20 10:21

是不是这个意思

Sub Test()
Dim shData As Worksheet, shDic As Worksheet
Dim arrData As Variant, lngRow As Long
Dim strVal As String, strCheckResult As String
Dim objDic_Basic As Object
Dim objReg As Object, strPat As String, strCkeck As String
Set shData = Sheets("Sheet1")
Set shDic = Sheets("数据库")
Set objDic_Basic = InicDic(shDic, 2, 1)
strCkeck = "【" & Join(objDic_Basic.keys, "】【") & "】" '生成关键字字符中
strPat = "(" & Join(objDic_Basic.keys, ")|(") & ")"
Set objReg = CreateObject("VBScript.RegExp")
With objReg
.Global = True
.Pattern = strPat
End With
lngRow = shData.Range("B" & Rows.Count).End(xlUp).Row
arrData = shData.Range("B2:B" & lngRow)
For lngRow = LBound(arrData) To UBound(arrData)
strVal = Trim(arrData(lngRow, 1))
If strVal <> "" Then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'这里你自己灵活处理，现在是逐项弹出提示
strCheckResult = CheckHasStr(strVal, objReg, strCkeck)
If strCheckResult <> "" Then
MsgBox "第" & lngRow & "项，缺少以下内容：" & strCheckResult
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
Next
MsgBox "检查完毕"
End Sub
'返回不存在的关键字
Private Function CheckHasStr(strVal As String, objReg As Object, ByVal strCkeck As String) As String
Dim objTmp As Object, arr As Variant
Dim objMatchs As Object, objMatch As Object
Dim strReturn As String
strReturn = strCkeck
Set objMatchs = objReg.Execute(strVal)
For Each objMatch In objMatchs
strKey = Trim(objMatch.Value)
strReturn = Replace(strReturn, "【" & strKey & "】", "")
Next
CheckHasStr = strReturn
End Function
'生成关键字字典列表
Private Function InicDic(sh As Worksheet, lngColID As Long, lngStartRow As Long) As Object
Dim arrData As Variant, lngRow As Long
Dim objDic As Object, strKey As String
Set objDic = CreateObject("Scripting.Dictionary")
arrData = sh.UsedRange
For lngRow = LBound(arrData) To UBound(arrData)
strKey = Trim(arrData(lngRow, lngColID))
If strKey <> "" Then objDic(strKey) = strKey
Next
Set InicDic = objDic
End Function

复制代码

lsdongjh · 发表于 2020-1-20 10:37

附件中将结果写入文本文件

如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告.rar (24.35 KB, 下载次数: 9)

罗亮亮 · 发表于 2020-1-20 15:21

lsdongjh 发表于 2020-1-20 10:37
附件中将结果写入文本文件

非常感谢虽然没有测试但是我深知调整代码的辛苦再次谢谢了鞠躬

罗亮亮 · 发表于 2020-1-20 17:37

lsdongjh 发表于 2020-1-20 10:37
附件中将结果写入文本文件

咋这么厉害!!!! 膜拜了

		自动登录	找回密码
密码			免费注册

[求助] 如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告

评分

评分

评分

最新热点 /1

[求助] 如何使单元格内输入文字与数据库进行对比 然后提示缺哪些字并且生成文本文档报告

评分

评分

评分

最新热点 /1

[求助] 如何使单元格内输入文字与数据库进行对比然后提示缺哪些字并且生成文本文档报告