Excel如何一次汇总比较三家公司财务报表 网志图文版： http://www.b88104069.com/archives/4321 上一节介绍如何一次取得多家公司的损益表，作法是分别放在不同的工作表。实务上财务 报表分析时，将不同公司不同期间放在同一张工作表，格式上适当整理，才方便作有意义 的比较。虽然上一节所取得的资料，可以Excel手工汇总到一张工作表，但既然是编写VBA ，总希望一步到位，在设计程式时把所有需求考虑在内，例如自动将三家公司财报汇总在 一起，方便直接分析，这个当然也可以设计VBA程式达成，以下具体分享： 一、想取得三家公司损益表，年度期间从2014年到2016年。 二、编写VBA程式码如下： 10：建立一个巨集程序「Stock_Year_IS」，「Public」的意思是该程序是被其他模组呼 叫，例如像「Call」引用； 30~40：新增工作表「Income Statement」； 60：宣告变数； 80~90：计算清单共有多少行； 100~110：将开始年度设定为「Year1」、截止年度设定为「Year2」； 130~150：设置三家公司的回圈「i」，将公司代码设定为「Stock1」、公司名称设定为「 Stock2」； 170：设置三个年度的回圈「j」； 190：将年度「j」从数值转换成文字「Year」； 200：此为程式编写的习惯用法，「n=n+1」等於是一个计数器，每循环一次回圈就加一； 210~240： 先设定取得网页资料的参数，以「Stock1」作为公司代码、「Year」作为年度 ，同时以计数器「n」适当决定每次下载的储存格位置「DesCell」、并且以第一行作为公 司名称「Stock2」的标题行； 260~300：本书一直使用的「QueryTables.Add」方法； 320~360：执行下一个循环，最後结束程序「Stock_Year_IS」。 三、执行结果如图所示，一家公司一个年度是三栏资料，有三家公司三个年度，所以从A 栏到AA栏总共27栏。黄色部门是大类的损益项目，从图片可以看出来，不同公司损益表结 构不一样，同样的「营业利益（损失）」在不同公司不同行，其实以先前第二节「多期损 益报表」的范例而言，同一家不同年度因为状况不同，也有可能损益表结构不尽相同。 四、通常财务报表的比较不用到很细，如图所示只需到大项目即可。 五、编写程式码如下： 30~50：先利用「UsedRange.Columns.Count」方法计算出有多少行及多少栏，如同步骤三 所述，共有27栏。因为每次报表有三栏，「Column = Column / 3」得到总共有多少组报 表。 70~110：有「i」组报表、设计回圈「i」，先将每组报表的公司代码及公司名称复制到工 作表「六」。 130~230：设计「j」「k」三个回圈，「j」代表想要撷取的损益项目、「k」代表损益表 总共有多少行，配合回圈「i」，效果等同於Excel的Vlookup查找函数，只要顺着三个回 圈的设定试着跑一两次，应该能理解「i」、「j」、「k」如同Vlookup公式中的三个参数 ，这里是用VBA程式码把Vlookup实际执行过程编写出来。 六、执行结果，成功汇总出简易损益表，每家公司各个年度一览无遗。(为了图片清晰起 见，部份栏位作了寛窄的调整) 七、每家公司规模不同，各个损益项目直接比较，并不具有分析意义。实务作法是计算财 务比率，例如毛利率、营业利益率、净利率，这些在上一步骤的基础上，很容易整理出来 。(同样为了图片清晰起见，部份栏位作了寛窄的调整) 这一节范例是三家公司三个年度的损益表，只要回圈设定再修改一下，便可以取得更多家 公司、更多年度的报表，这是VBA回圈方便的地方。另外这一节也介绍如何利用回圈实现 Vlookup函数功能，这样做可以把熟悉的Excel函数内化成VBA程式码的一部份，重点是将 函数作用以VBA形式编写，其实不限於Vlookup函数，其他熟悉的Excel函数皆能如法泡制 ，待有适当范例再作介绍。 本文内容取自《人人做得到的网路资料整理术》，博客来书店网址： http://www.books.com.tw/products/0010775391。 延伸阅读： Excel如何取得多家公司财务报表 http://www.b88104069.com/archives/4317 Excel如何取得股票代码清单 http://www.b88104069.com/archives/4315 Excel如何取得多期损益报表 http://www.b88104069.com/archives/4313 -- 周末，我们继续Excel：=>21.心得=>5.其他=>3.office 会计人的Excel小教室： https://www.facebook.com/acctexcel --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.20.96.160 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Accounting/M.1531025089.A.80B.html