利用Excel地VBA代码实现自动化“收集原始数据、汇总计算和报表”.pdfVIP

利用 Excel 的 VBA 代码实现自动化 “收集原始数据、汇总计算和报表” 联系人：杨先生 电话： 电子邮箱： yjjp67@163.com 以房地产销售数据为例。 两个销售中心以 Excel记录销售活动，原始数据和直接使用公式形成的表格模板如下。黄色 标题名称为公式项，根据已知数据自动计算。 1 原始数据收集表 1.1 产品表：所有房屋产品，主房、辅房（储藏室、车库、车位等）的基本信息； 标题名称 含义 房行 =ROW(主房 [@])-ROW(主房 [# 标题 ]) ，动态的数据行号 买受人 =IFERROR(INDEX(销售 [ 买受人 ],[@ 售行 ]),) ，当前买受人 项目 销售项目名称 分区 分区名称 分期 分期名称 楼 数字楼号 单 数字单元号 层 数字楼层 房 数字方位编号 面积 预售面积 预售价 预售价格 产权 产权面积 =COUNTIFS(销售 [ 主房索引 ],[@ 主房索引 ]) ，当前的销售次数，退房、 售次 换房不删除数据，所以用售次区别 售行 对应的销售数据行。 =VALUE([@单]TEXT([@层],00)TEXT([@ 房],00)) ，如 1 单元 1 层 房号 东户表示为 1-0101 （数字的自定义格式） =INDEX(项目分区 [ 代码 ],MATCH([@项目 ][@分区 ], 项目分区 [ 分区名 主房索引 称],0))[@ 分期 ]TEXT([@楼],00)TEXT([@ 房号 ],00000) ，用于表 间互查数据 销售索引 =IFERROR([@主房索引 ]ABS([@售序 ]),) ，用于表间互查数据 总房款 已收 待收 1.2 销售表：每次销售活动的真实记录，产品的组合及从产品表查取的基本信息； 标题名称 含义 售行 =ROW(主房 [@])-ROW(销售 [# 标题 ]) 分区 分区名称 分期 分期名称 房号 手工输入数字（自定义格式） 售序 当前的销售次数，退房、换房不删除数据，所以用售次区别 买受人 业务姓名 顾问 置业顾问姓名 实售价 储号 储款 库号 库款 位号 位款 总房款 合同中填写的总金额 =ROUND(SUM([@主房款 ],[@ 储款 ],[@ 库款 ],[@ 位款 ]),0) ，自动计算的 总款 总金额 差异 =[@总房款 ]-[@ 总款 ] 主房面积 =INDEX(主房 [ 面积 ],[@ 房行 ]) =IFERROR(INDEX(房款 [ 实收日 ],MATCH([@销售索引 ] 定金 , 房款 认购日期 [ 款类索引 ],0)),) ，实交定金日期 主房款 =ROUND([@实售价 ]*[@ 主房面积 ],0) 房约日 购房合同签署日期 房约价 合同单价 买受人身份证 号 共有人 共有人身份证 号 合同交房日 贷行 贷含 贷款对象包含储藏室（ C）、车库（ K）等 贷额 公贷 资料日 贷款资料合格日 贷约日