[已解决]借贷流水账用VBA自动取值求和

907782142 · 发表于 2020-9-11 15:27

本帖最后由 907782142 于 2020-9-25 09:15 编辑

求助VBA大神实现流水账提取数值求和

最佳答案

zgwei050

2020-9-17 20:09

看看行不行：

2020流水账求VBA代码（改）.rar (157.42 KB, 下载次数: 49)

907782142 · 发表于 2020-9-16 10:04

快沉了自已顶一下

金樽空对月 · 发表于 2020-9-16 11:01

907782142 发表于 2020-9-16 10:04
快沉了自已顶一下

请上传一个文档附件，不然没办法给你确切的答案。

907782142 · 发表于 2020-9-16 14:27

金樽空对月发表于 2020-9-16 11:01
请上传一个文档附件，不然没办法给你确切的答案。

老师您好！不好意思可能二次改动没上传，

zgwei050 · 发表于 2020-9-16 19:21

2020流水账求VBA代码.rar (136.68 KB, 下载次数: 6)

907782142 · 发表于 2020-9-17 08:17

zgwei050 发表于 2020-9-16 19:21

谢谢老师的回复！我想再请教您能不能就直接取“元”字前面的数值相加，最好能取多组有几个“元”字就取几个相加，免去每次要用计算器加总数。

zgwei050 · 发表于 2020-9-17 20:09

看看行不行：

907782142 · 发表于 2020-9-17 20:52

zgwei050 发表于 2020-9-17 20:09
看看行不行：

太利害了，太完美了！我的其它工作表的问题也解决了计算速度会快很多，原来用SUMPRODUCT计算太慢了要好几秒只能用手动计算。而且这个提取数值的思路也太好了，不管字符串在哪一列也可用公式轻松解决。谢谢老师的辛苦帮忙！

907782142 · 发表于 2020-9-18 16:48

本帖最后由 907782142 于 2020-9-18 16:50 编辑

zgwei050 发表于 2020-9-17 20:09
看看行不行：

老师您好！今天我把代码用于其它表格时发现负数会取成正数，只能用IF公式处理。

zgwei050 · 发表于 2020-9-18 17:51

907782142 发表于 2020-9-18 16:48
老师您好！今天我把代码用于其它表格时发现负数会取成正数，只能用IF公式处理。

试试加个 \-
.Pattern = "[\-\d+\.\d+]+"

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