利用Excel的VBA代码实现自动化“收集原始数据、汇总计算和报表”VIP专享

利用 Excel 的 VBA 代码实现自动化“收集原始数据、汇总计算和报表”联系人:杨先生电话：18053150391 电子邮箱：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)等贷额公贷资料日贷款资料合格日贷约日贷款合同签署日商放=SUMIFS(房款[金额］,房款［销售索引],[＠销售索引］,房款[实收日]，"〉40544”,房款［款类],"商贷”)，商业贷款到账日公放=SUMIFS(房...