ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 29046|回复: 50

汽车摩托车下乡补贴管理系统(20090809.20)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-8-9 22:09 | 显示全部楼层 |阅读模式
通知,请使用了我的程序的朋友与我联系,由于全国版程序启用,我以解决将原程序内数据上传至网络,速度达到每分钟13户,需要的请与我联系,QQ438575184

注:仅限于原程序导出的备份数据库

我用VBA制作的基于EXCEL的用于汽车摩托车下乡补贴的小程序

其中很多代码源于论坛,结合的可能不是很好,功能也还不完善,希望有志同道合的同志提出宝贵的意见
由于附件大小超过论坛限制,将其分成6卷压缩,请分别下载后集中解压使用

完成时间20090901.10,网站不提供下载,有需要者发邮件fpbd032@qq.com索取
如果在本电脑上是首次使用请先把
注册日期控件(打开运行后自动删除).xls与MSCAL.OCX解压后打开注册日期控件(打开运行后自动删除).xls
提取原工作表的格式(列表).xls与提取原工作表的格式(申报表).xls是被提取表的样式,凡是同格式的表都可以被相应菜单批量提取。
地址库.xls是批量添加家庭住址的样式。

修改了
9、修改了在全部经销商中查找录入错误。
8、修改了申报打印错误
7、经销商代理厂家自动识别添加功能
6、增加了添加经销商功能
5、取消销售统计表公式计算
4、增加了提取申报表的方式
3、修改了程序管理菜单
2、改查询型号的方法(由原来的开头是改为包含)
1、补贴金额看不见自动计算结果及大写显示问题

本程序实现了以下功能:
1、当选择“轻型载货车”时根据产品质量确定是“微型载货车”还是“轻型载货车”。
2、根据勾选的“新购产品类型”,确定“产品型号”的查找范围,
3、“产品型号”支持拼音模糊查找输入、汉字模糊查找输入,比如“力帆牌LF100-2”只要输入“lfplf100-2”即可,而且在输入的过程中有列表逐步提示,当输入“lfp”时将只会显示拼音首字母是lfp的品牌型号,只要在列表中选择你需要的产品型号即可。
4、确定产品型号后,自动根据产品型号提取商务部公布的产品目录中的生产企业、质量或排量,由于目录中微型客车与摩托车只有排量与功率、汽车只有质量,所以只提取了相关数据。
5、根据生产企业弹出本地该产品经销商列表供选择。
6、根据“车辆识别代号”判断产品补贴的唯一性,同样的车辆识别代号只能补贴一次。
7、日期类型的单元格都是弹出日历控件供选择日期,不需要手动输入
8、车主户籍所在地与代办人住址支持拼音模糊查找输入、汉字模糊查找输入,比如“钟祥市旧口镇贺杨集村”可以输入其中的任何连续汉字或拼音首字母,“hyjc” 或者“旧口镇贺杨集”录入一个字符后自动缩小查找范围,选择村后自动弹出组列表供选择。
9、根据户主身份证号码判断是否超过了摩托车户购不能超过2辆、汽车户购不能超过一辆的限制。
10、身份证不符合规则拒绝录入
11、开户行、与户主关系、等项目选择录入,对没有定义的开户行或与户主关系可以直接输入,下次再出现同类可以选择。
12、如果与户主的关系式户主那么户主的姓名与身份证号码自动提取车主信息。
13、补贴比例根据勾选的“新购产品类型”自动确定。
14、购买补贴根据销售价格自动计算,超过限额的以限额为准。
15、报废补贴根据报废车类型自动录入,不需要手动录入。
16、申报后补贴金额合计自动计算以大写显示,
17、信息填写不全不能申报,申报成功后自动打印申报表并且初始化申报表,需要查看申报的数据请使用查询功能。
18、查询提供5种方式1,车辆识别代号2,车主姓名3,车主身份证号码4,储蓄账户5,家庭住址。都支持模糊逐步提示。对查询出来的数据可以双击打印,也可以导出。
19、自动汇总导出销售统计表,销售统计表的统计期间默认是操作日的上个月,只可以选择统计月份,
20、自动汇总导出汇总表,汇总期间默认是近一个月,提供期间选择,可以选择任何时间段就行汇总。
21、对于以前用电子表格录入的申报表样式的可以通过“外部数据提取”菜单提取,提取格式包括申报表格式与列表格式,详见同压缩包格式样式。
22、家庭住址可以通过菜单进行更换或者增加。
23、用户名可以新增,密码可以修改,省份可以修改

产品目录与销售商管理功能没有开发、导出政务公开表功能暂未加入。

[ 本帖最后由 jkczfpb 于 2009-10-2 19:31 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-10 22:01 | 显示全部楼层
欢迎跟帖提出修改意见,谢谢

[ 本帖最后由 jkczfpb 于 2009-8-24 18:36 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-8-14 15:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-19 21:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
你好,为什么提示:无法装载这个对象呀

TA的精华主题

TA的得分主题

发表于 2009-8-20 11:01 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

怎么用啊,请高手指点?下载了,就是几个表格,是程序吗?

怎么用啊,请高手指点?下载了,就是几个表格,是程序吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-20 13:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
提示:无法装载这个对象呀
是因为你没有注册日历控件,请先解压,然后打开“注册日期控件(打开运行后自动删除).xls”,它会自动注册然后删除不需要的文件
除“汽车摩托车下乡补贴管理系统(200908020.08).xls”外其他都只是各种导入文件的格式样式,
“汽车摩托车下乡补贴管理系统(200908020.08).xls”是程序,使用的时候需要启用宏

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-20 15:12 | 显示全部楼层

回复 4楼 panjianmao 的帖子

新版已提供了针对外地用户的省份管理、家庭住址管理、补贴银行管理等
由于都在等国家的软件,所以本程序的产品目录与经销商的管理模块没有开发。

TA的精华主题

TA的得分主题

发表于 2009-8-20 21:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢LZ分享

TA的精华主题

TA的得分主题

发表于 2009-8-22 13:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

有些功能建议修改

我是江西瑞昌一名财政所工作人员,非常感谢程序编写老师,我在用的过程程中,对于统计数据十分方便,导出导入也很实用。就是在系统录入数据时,不是在本程序已编入之内的产品型号就不能录入了,导致下步无法进行,如EQ6362PF微型客车就屏蔽了,因型号比较多,程序肯定一时你写不了那么多,是否设置为可以手工输入,这样就完美。

最新版对产品型号改进了,现在销售单位在我们江西没有列入,还是无法使用了。只有考在《提取原工作表的格式(申报表).xls》中输入,传个实例老师看看能否从《汽车摩托车下乡补贴管理系统.xls》系统中录入信息并申报。谢谢!

[ 本帖最后由 曹跃进 于 2009-8-25 07:11 编辑 ]

董广武(申报表).rar

8.08 KB, 下载次数: 149

农户购车信息

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-22 15:04 | 显示全部楼层
输入的时侯请输入品牌与型号,如钱江牌QJ125-F,请输入qjpqj125-f,型号库包含了现有的所有产品型号
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-26 15:07 , Processed in 0.036293 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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