ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Excel VBA > 如何根据发_票号取得对应发_票组联的发_票简写名及金额?

如何根据发_票号取得对应发_票组联的发_票简写名及金额?

作者:绿色风 分类: 时间:2022-08-18 浏览:105
楼主
kevinchengcw
Q: 如何根据发_票号取得对应发_票组联的发_票简写名及金额?
A: 本例引用一个实例作为一个多项高级功能综合应用的实例,利用代码根据发_票联号的规律找出对应的登记名和金额,代码如下:
  1. Sub test()
  2. Dim Str As String
  3. Dim Dic, Arr, RegEx
  4. Dim M, N, I As Long
  5. Set Dic = CreateObject("scripting.dictionary")   '定义字典,用于存储发_票号及相关数据
  6. Set RegEx = CreateObject("vbscript.regexp")   '定义正则表达式,用于去除登记名中的汉字
  7. With RegEx   '设定正则表达式相关参数
  8.     .Global = True   '全程有效
  9.     .Pattern = "[\u4e00-\u9fa5]"   '匹配条件为全部中文字符
  10. End With
  11. With Worksheets("金蝶")   '先于登记的工作表中处理数据
  12. For N = 2 To Cells(Rows.Count, 2).End(3).Row  '设定在登记工作表中的循环范围
  13.     If .Cells(N, 2) <> "" Then   '如果当前行的B列不为会,即登记项不为空,则进行下述操作
  14.         Str = RegEx.Replace(.Cells(N, 2).Value, "")   '用正则表达式替换掉B列单元格文本中的全部汉字并赋值给字符串变量
  15.         Do While InStr(Str, "--") > 0   '循环替换全部的两个相连的“-”为一个,防止误输入两个后出错
  16.             Str = Replace(Str, "--", "-")
  17.         Loop
  18.         Str = Replace(Str, "#", "/")   '将字符串中的#替换成"/",主要因为如果中间夹杂汉字的话如果替换为空会将两串数字连接起来,所以换成特定的分割字符
  19.         If InStr(Str, "/") > 0 Then  '判断字符串是不是由多个数字串组成
  20.             Arr = Split(Str, "/")  '是的话就根据特定字符分割放入数组
  21.         Else
  22.             ReDim Arr(0)   '否则将数组定义为只有一个项(不这样定义会出错)
  23.             Arr(0) = Str  '将字符串赋值给数组
  24.         End If
  25.         For M = LBound(Arr) To UBound(Arr)   '循环提取数组内容
  26.             If Arr(M) <> "" Then   '如果对应数组内容不为空,则进一步操作
  27.                 If InStr(Arr(M), "-") > 0 Then   '如果数组当前项含有“-”号,说明是简写模式,要进行展开
  28.                     For I = Val(Split(Arr(M), "-")(0)) To Val(Left(Split(Arr(M), "-")(0), Len(Split(Arr(M), "-")(0)) - Len(Split(Arr(M), "-")(1))) & Split(Arr(M), "-")(1))   '设定变量是从"-"的前一个值到后一个值之间,注意后一个值的获得方式
  29.                         If Not Dic.exists(Format(I, "00000000")) Then _
  30.                             Dic.Add Format(I, "00000000"), .Cells(N, 2).Value & vbTab & .Cells(N, 3).Value   '如果字典中没有当前值的key则添加当前值,及对应的B列和C列的值组成的Item项(用特定字符分隔,方便后面提取),注意key 的格式,否则在后面可能出错
  31.                     Next I
  32.                 Else
  33.                     If Not Dic.exists(Format(Arr(M), "00000000")) Then _
  34.                         Dic.Add Format(Arr(M), "00000000"), .Cells(N, 2).Value & vbTab & .Cells(N, 3).Value   '如果不是缩写模式,直接将数组当前值添加进字典
  35.                 End If
  36.             End If
  37.         Next M
  38.         Erase Arr   '数组用完后清空,防止出错
  39.     End If
  40.     Next N
  41. End With
  42. With Worksheets("税务局认证")    '再到结果页来写入数值
  43.     For N = 2 To .Cells(Rows.Count, 1).End(3).Row   '设定循环范围
  44.         If Dic.exists(.Cells(N, 1).Value) Then  '如果A列当前行的值与字典中的key相吻合则
  45.             .Cells(N, 5) = Format(Split(Dic(.Cells(N, 1).Value), vbTab)(0), "00000000")   '依特定字符分割item项并格式化输出到对应单元格
  46.             .Cells(N, 6) = Format(Split(Dic(.Cells(N, 1).Value), vbTab)(1), "0.00")
  47.         End If
  48.     Next N
  49. End With
  50. Set Dic = Nothing   '清空项目,释放内存
  51. Set RegEx = Nothing
  52. End Sub
总结:
以上代码涉及到如下知识点:
1. 字典的应用
2. 正则的应用
3. 简缩码转全码的方法应用

希望这篇文章能帮助大家学习这方面的用法。
附示例文件。
发票.rar
2楼
wenshui2006
   厉害,,,,,

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap