平行结转分步法ExcelVB应用

平行结转分步法ExcelVB应用 平行结转分步法ExcelVB应用 平行结转分步法 会计信息化IACCOUNTINGINFORMATION ExcelVB应用 湖南.Y--程职业技术学院荣树新戴勇 在大批多步骤生产的制造企业中,各生产步骤所产半成品的 种类很多,但半成品对外销售的情况却很少,在管理上并不需要计 算半成品成本.在这种情况下,为简化和加速成本计算工作,通常 采用平行结转分步法计算产成品成本,然而这种方法在手工会计 下计算较为繁琐.据了解,目前主流财务软件尚未解决其电算化问 MATCH_ word word文档格式规范word作业纸小票打印word模板word简历模板免费word简历 _1713955163247_0,产品成本计算电算化问题的研究成果也不多.本文提出用 ExcelVB解决分项结转分步法计算产品成本的 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ,并实现循环, 以期实现成本核算的准确性,及时性和自动化,提高财会人员的工 作效率,同时也在应用ExcelVB解决其他产品成本计算方法方面 起到一定的启示作用. 一 ,实施ExcelVB解决方案的步骤 本文结合实例进行介绍.某企业甲产品经过二个车间连续加 工制成,一车间生产A半成品,直接转入二车间加工成甲产成品. 原材料于生产开始时一次投入,各车间月末在产品完工程度均为 50%.各车间生产费用在完工产品和在产品之间的分配采用约当 产量比例法.该企业某月有关成本计算资料如图1中所示,步骤如 下: (一)用Excel建立工作 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 先用Excel建立空白工作表(以 当月月份命名),再输入本月末在产品完工程度,当月产量记录资 料和生产费用记录资料等原始数据(各车间产品明细账和产成品 成本汇总表为空表). (二)确定各单元格的运算关系产量记录资料表各单元格 的运算关系为:B7=B4+B5一B6;C5=B6;C7=C4+C5一C6. 第一车间产品成本明细账各单元格的运算关系为:C19=C11; D19=D11;E19=E11;F19=F11;C20=C12;D20=D12;E20=E12;F20=-F12; C21=C19+C20;D21=D19+D20;E2I=E19+E20;F21=F19+F20;C22=C6; D22=C6;E22---C6;C23=B7;D23=B7B1;E23=B7B1;C24=C7;D24---C7; E24=C7;C25=C22+C23+C24:D25=D22+D23+D24;E25=E22+E23+E24; C26=ROUND(C21/C25.2);D26=ROUND(D21/D25.2);F26=ROUND (墟25.2);V26=C26+D26+E26;C27=ROUND((222*(226,2);D27=ROUND (D22*D26.2);E27=ROUND(E22E26.2);F27=C27+D27+E27;C28= C21一C27;28=D21一D27;E28=E21一E27;F28=F21一F27. 第二车间产品成本明细账各单元格的运算关系与第一车间类 似,不同之处在于:D36=C6;E36=C6;D37=C7;E37=C7.产成品成 本汇总表各单元格的运算关系为:B47=C27;C47=D27;D47=E27; E47=F27;B48=C41;C48=D41;D48=E41;E48=F41;B49=B47+B48; CA9=CA7+CA8:D49=D47+D48:FA9=-FA7+FA8:B50=ROUND(B49/C6. 2);C50=ROUND(C49/C6,2);D50=ROUND(D49/C6,2);E50= B50+C50+D50. 经过上述单元格的运算,即可得到首次当月完工产品成本资 料,以后各月的完工产品成本资料可 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 "产品成本自动计算"程 序来完成. (三)设计"产品成本自动计算"程序先选择Excel中工具 菜单下的"宏\visualbasic编辑器",然后系统调用VB编辑器,选 B12:C17区域中输人数组公式"=B3:C8";(2)在单元格D12中输 入公式"=$F$4+D3($F$5一$F$4)",然后利用其填充柄拖放,即求 出D13:D17单元格的值;(3)在单元格E12:E17区域中输人数组 公式"=($F$2一C12:C17.B12:B17)(1一$F$3)/D12:D17";(4)在 单元格F12:F17区域中输人数组公式"=E12:E17+B12:B17";(5) 在单元格G12:G17区域中输入下面的数组公式:"=BI2:B17/F12: F17C12:C17(1一$F$3)+E12:E17/F12:F17*D12:D17";(6)在单 元格El8中输入公式"=MAX(F12:F17)",在单元格El9中输入 公式"=MIN(G12:G17)";在单元格G18中输入公式"=MATCH (El8,F12:F17,0)";在单元格G19中输入公式"=MATCH(El9, G12:G17,0)";(7)根据以上资料绘制的公司价值和综合资本成 本与债务规模之问的关系图(如图4). 由计算结果可以看出,没有负债时,公司的总价值就是其原有 股票的市场价值.当公司用债务资本部分地替换权益资本时,起初 公司总价值上升,综合资本成本下降;当债务达到600万元时,公 司总价值最高,综合资本成本最低;债务超过600万元以后,公司 总价值下降,综合资本成本上升.因此,债务为600万元时的资本 结构是该公司的最佳资本结构,最优筹资方案是发行600万元的 02?.0o6??0l0.0 债务拽谯 图4公司价值和综合资本成本与债务规模之间的关系 债券并回购600万元的股票. 参考文献: [1]韩良智:(Excel在财务管理中的应用》,人民邮电出版 社2004年版. [2]中国注册会计师协会:《财务成本管理》,经济科学出版 社2007年版. (编辑代娟) 甜冬通孔?综台20o8年第4期黧 埒餐幡崩姐错 ?矾槲?矾{善? 佰???""""" 会计信息化IACCOUNTINGINFORMATION 圈1 择VB编辑器"插入"菜单下的"模块",最后在模块中输入以下 代码(如表1 (四)运行"产品成本自动计算"程序选择"工具"菜单下 的"宏",在宏下拉按钮中选择该程序,单击"运行"按钮即可.然 后在"B1"单元格中输入完工程度百分比,在"产量记录资料表" 中输入各车间当月"本月投产数量或上步转入数量","本月完工 转入下步或交库数量",在"生产费用记录资料表"中输入各车间 当月生产费用数据,即可自动生成各车间的产品成本明细账和产 成品成本汇总计算表,从而实现循环自动计算产成品成本的目 的. 二,实施ExcelVB解决方案的效果 该方案解决了期初,期末数据转换问题,提高了工作效率,有 一 劳永逸的功效:首次使用时,建立相关工作表格,建立数据运算 关系,以后每月只需输入该月月末在产品完工程度,该月投产数 量,该月完工产品数量,该月各车间生产费用资料,然后运行该程 序,即可得到相应的资料. ?财今逼IL?综合20o8年第4期 表1 行号代码 lSub平行结转分步法0 2Sheets(1).Select 3Sheets.Add 4Sheets(2).Select 5Cells.Select 6Selection.Copy 7Sheets(1).Select 8Range("A1").Select 9ActiveSheetPaste 10Range("B1").Select llSelection.ClearContents 12Rangef"B5:C6").Select 13Selection.ClearContents l4Range("C12:E12").Select 15Seleetian.ClearContents 16R~nge("C14:E14").Select 17Selectian.ClearContents 18DimstryearAsString 19Dimstr_ monthAsString 20?(Val(Sheets(2).Name)+1)/12=1Then 21str_month="12'' 22Else 23str_month=Trim(Str((Val(Sheets(2).Name)+1)Mod12)) 24End? stryear=Str(Val(Sheets(2).Range("C17"))+Val(Sheets(2).25 Name)\12) 26Sheets(1).Name=str_month&&"月份" Range("A2").Value="表1"&&str_year&&"年"&&strmonth27 &&"月产量记录资料表" Range("A9").Value="表2"&&str_.year&&"年"&&strmonth&&28 "月生产费用记录资料表" 29Range("C17").Value=str_year&&"年"&&str_month&&"月" 30Range("C31").Value=str_year&&"年"&&strmonth&&"月" 31Range("C45").Value:str_.year&&"年 "&&strmonth&&"月" 32Range("1t4").Value=Sheets(2).Range("B7").Value 33Range("C4").Value=Sheets(2).Range("C7").Value 34Range("C5").Value:"=B6" 35Range("C11").Value=Sheets(2).Range("C28").Value 36Range("D11").Value=Sheets(2).Range("D28").Value 37R…r"F11",VA1Ilp一hpptqf',Rpf"FR",Va1l1P 38Range("C13").Value:Sheets(2).Range("C42").Value 39Range("D13"),Value:Sheets(2),Range("D42").Value 40Range("El3").Value=Sheets(2).Range("E42").Value 4lEndSubBS 需要说明的问题:分配"直接材料"方法取决于投料方式,以 生产开始时一次性投料为例进行计算,实际工作中会因投料方式 不同而有不同的计算方法,需要对有关取数公式进行调整.生产费 用在完工产品和在产品之间的分配本文是采用约当产量比例法, 至于其他方法(如不计算在产品成本法,在产品按固定成本计算 法等)也需对有关公式进行适当修改. 参考文献: [1]明爱芬等:《成本会计》,中南大学出版社2006年版. [2]郑翠菊等:《用Excel设计的平行结转分步成本核算系 统》,《上海会计》20o3年第6期. [3]宋立:《用Excel进行分品种成本核算》,《时代财会》 2003年第1期. [4]刘曜:《用Excel进行分步成本核算》,《上海会计))2oo1 年第4期. (编辑代娟)