ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: ggsmart

菜鸟谈VBA最最基础入门《原创》

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-10-14 09:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖已被收录到知识树中,索引项:开发帮助和教程
原帖由 pingfanexcel 于 2009-10-13 16:39 发表
请VBA高手帮忙做一下,谢谢
情况是:第一张表“交易明细-RMB”是每个科目的当月发生明细账,金额是人民币,第二张表“报表汇总”是一张美金的各个科目的汇总金额(和第一张没有关系),第一张表的美金折算金额汇总后 ...


首先申明,我不是高手~
我试着作了一下,请看附件,不知道是不是你所要的结果。
有点不足的地方就是需按两次按钮。
见笑了。

交易明细.rar

10.38 KB, 下载次数: 215

TA的精华主题

TA的得分主题

发表于 2009-10-14 09:27 | 显示全部楼层
原帖由 trustwxq 于 2009-10-14 08:26 发表
草根糖好,大作已读,整体感觉良好,程序虽小,层次还是挺清晰的,我有一点建议:
程序中的CountIf(Range("a:a")是否可以改成CountIf(Range("a1:a" & rng.Row),这样如果新复制进来的机型在前面没出现过,但是在复制 ...


是的,trustwxq兄提的非常好!
眼光独到啊~,学习了。谢谢~

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-10-14 11:14 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 723楼 草根糖 的帖子

给你改了一下,点一次按钮即可。

交易明细(修改).rar

10.47 KB, 下载次数: 791

TA的精华主题

TA的得分主题

发表于 2009-10-14 11:32 | 显示全部楼层
原帖由 ggsmart 于 2009-10-14 11:14 发表
给你改了一下,点一次按钮即可。


谢谢老师的指导,老师的数组用得出神入化啊~

不过我还是未能明白,为什么我的代码需要点两次按钮。

TA的精华主题

TA的得分主题

发表于 2009-10-14 11:49 | 显示全部楼层

回复 726楼 草根糖 的帖子

顺着你的思路修改了一下,只需按一次,并更正了汇总差异表中的一点错误(汇总差异表方法不大对)。
交易明细trustwxq修改.rar (10.77 KB, 下载次数: 196)
需要按两次的原因是:你在一开始就给xrow3赋了值,当表3是空表时,第一次按xrow3值为1,第二次先给Xrow3付值后,又删除了表3的全部内容,然后才又重新填写,这样虽然能得出结果,但如果两次按按钮之间科目有改动,还是会出错。你应该是在汇总表填好科目后,再给xrow3赋值。
另外,你在算差异时所用的方法不对,你查查看。

[ 本帖最后由 trustwxq 于 2009-10-14 11:58 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-10-14 11:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢叶枫老师

TA的精华主题

TA的得分主题

发表于 2009-10-14 12:51 | 显示全部楼层
原帖由 trustwxq 于 2009-10-14 11:49 发表
顺着你的思路修改了一下,只需按一次,并更正了汇总差异表中的一点错误(汇总差异表方法不大对)。
597413
需要按两次的原因是:你在一开始就给xrow3赋了值,当表3是空表时,第一次按xrow3值为1,第二次先给Xrow3付 ...


trustwxq兄,厉害啊~经你一说,我恍然大悟啊!
只要调整xrow3的位置就可解决按两次的问题。同时,正如你说的,计算差异的时候方法不对,不应该用第二个for……next进行循环,它无法于第一个for……next一一对应。太感谢trustwxq兄了!~

TA的精华主题

TA的得分主题

发表于 2009-10-14 15:45 | 显示全部楼层
各位老师、同学:
我的新问题,又来了(我都快成问题男了,汗……)
详细见附件,请帮忙。

mulu.rar

8.49 KB, 下载次数: 141

TA的精华主题

TA的得分主题

发表于 2009-10-14 16:18 | 显示全部楼层
不好意思,发重复了.

[ 本帖最后由 zznjcs 于 2009-10-14 16:29 编辑 ]

Production record.zip

11.36 KB, 下载次数: 76

TA的精华主题

TA的得分主题

发表于 2009-10-14 16:27 | 显示全部楼层
搞了好入也没搞明白,请大家帮助一下.
我要在B列加内容,自动在A列下日期,改变这一行的颜色,如删除B列最后一个单元格则这一行都清除,
Production record.zip (11.36 KB, 下载次数: 83)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 09:55 , Processed in 0.055300 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表