成本核算参考.docx
《成本核算参考.docx》由会员分享，可在线阅读，更多相关《成本核算参考.docx（64页珍藏版）》请在冰点文库上搜索。
成本核算参考
刚开始我们做的‘0503长沙兴隆材料进销存’只是对不包括胶件在内的材料进行汇总，汇总求和的只在《0503长沙兴隆材料进销存》中的‘长沙兴隆入库-国内材料’、‘长沙兴隆入库-进口材料’、‘0503长沙兴隆出库’中非胶件部分。
还要做的就是将‘0503长沙兴隆材料进销存’表中的相关汇总公式的汇总范围扩大些，把塑胶件的也框进去。
请看改动后的公式,蓝色字为增加的公式内容：
当月入库的数量栏的公式是：
=SUMIF（'长沙兴隆入库-国内材料'!
$L$1:
$L$23410,$A3,'长沙兴隆入库-国内材料'!
$N$1:
$N$23410）+SUMIF（'长沙兴隆入库-进口材料'!
$L$1:
$L$647,$A3,'长沙兴隆入库-进口材料'!
$N$1:
$N$647）+SUMIF（[0503长沙兴隆塑胶件进销存.xls]进口入库!
$L$1:
$L$1136,$A3,[0503长沙兴隆塑胶件进销存.xls]进口入库!
$N$1:
$N$1136）+SUMIF（[0503长沙兴隆塑胶件进销存.xls]国内采购明细!
$L$1:
$L$3831,$A3,[0503长沙兴隆塑胶件进销存.xls]国内采购明细!
$N$1:
$N$3831）+SUMIF（'[0503长沙兴隆塑胶件进销存.xls]注塑（入库）核算'!
$A$3:
$A$534,$A3,'[0503长沙兴隆塑胶件进销存.xls]注塑（入库）核算'!
$B$3:
$B$534）+SUMIF（'[0503长沙兴隆塑胶件进销存.xls]丝印（入库）核算'!
$A$3:
$A$281,$A3,'[0503长沙兴隆塑胶件进销存.xls]丝印（入库）核算'!
$B$3:
$B$281）
当月入库的金额栏的公式是：
=SUMIF（'长沙兴隆入库-国内材料'!
$L$1:
$L$23410,$A3,'长沙兴隆入库-国内材料'!
$Y$1:
$Y$23410）+SUMIF（'长沙兴隆入库-进口材料'!
$L$1:
$L$647,$A3,'长沙兴隆入库-进口材料'!
$Y$1:
$Y$647）+SUMIF（[0503长沙兴隆塑胶件进销存.xls]进口入库!
$L$1:
$L$1136,$A3,[0503长沙兴隆塑胶件进销存.xls]进口入库!
$Y$1:
$Y$1136）+SUMIF（[0503长沙兴隆塑胶件进销存.xls]国内采购明细!
$L$1:
$L$3831,$A3,[0503长沙兴隆塑胶件进销存.xls]国内采购明细!
$Y$1:
$Y$3831）+SUMIF（'[0503长沙兴隆塑胶件进销存.xls]注塑（入库）核算'!
$A$3:
$A$534,$A3,'[0503长沙兴隆塑胶件进销存.xls]注塑（入库）核算'!
$G$3:
$G$534）+SUMIF（'[0503长沙兴隆塑胶件进销存.xls]丝印（入库）核算'!
$A$3:
$A$281,$A3,'[0503长沙兴隆塑胶件进销存.xls]丝印（入库）核算'!
$G$3:
$G$281）
当月出库的数量的公式是：
=SUMIF（'0503长沙兴隆出库'!
$I$1:
$I$50137,$A3,'0503长沙兴隆出库'!
$K$1:
$K$50137）
当月出库的加权平均的公式：
=IF（C3+E3=0,0,（F3+D3）/（C3+E3））
最好不要两三列公式同时往下复制。
往下复制一列公式,计算结束后，保留第一行的公式，贴掉后面的，再算其它列。
可以说，原材料这一块的工作已经完成一大半了。
接下只要做两个东东就ok了：
一个是更新BOM表中的单价；另一个是做《0503长沙兴隆部门领料》。
BOM表是我们拿来在后面算WIP金额的一个标准。
其中每个单个的工作表代表一个成品或半成品的BOM结构，例如一个成品，他是由哪些料和半成品组成，其中的半成品又是由哪些材料组成，一道加工工艺就是一层BOM，这样一层一层分解下去。
我们厂的产品加上注塑丝印也就4-6级BOM：
SMT、附件、总装、包装。
这里演示下我们之前是怎样整理BOM表的：
1.是从系统中导出原始数据。
看下图的标识，点击要导出的半成品或成品编码进，要点上面的物料清单编号，而不是生成的成品。
另外我们是导出到EXCEL表中，下面的输出格式要选EXCEL无格式的。
确定要保存的路径，点下图中的打印机符号，保存的文件名就是半成品或成品的编码，图中为998-0100-CP2P-01。
我们看一下导出的原始数据：
里边有好多信息，但有些是对后面的核算没什么帮助的，要删除掉。
格式也要整理下。
要是一个一个手工整理，当有较多的BOM表要整理时，这可是个费时的工作，而且各个表可能手工整理后格式不一定统一，不美观。
对于这样的大量的重复工作，可以用EXCEL中的宏来解决。
先将想好一套整理格式的标准的操作，打开录制宏，再将套整理格式的标准的操作做一次。
下次又要整理格式时运行宏就行了。
下边是整理格式的的宏代码：
Sub第一步BOM格式整理（）
'
'新下载BOM格式整理Macro
'宏由heshiping录制，时间:
2005-4-16
'
'快捷键:
Ctrl+q
Rows（"1:
1"）.Select
Selection.InsertShift:
=xlDown
Range（"A3"）.Select
Selection.Copy
Range（"B1"）.Select
ActiveSheet.Paste
Range（"C3"）.Select
Application.CutCopyMode=False
Selection.Copy
Range（"C1"）.Select
ActiveSheet.Paste
Columns（"A:
A"）.Select
Application.CutCopyMode=False
Selection.DeleteShift:
=xlToLeft
Columns（"B:
B"）.Select
Range（"B1"）.Select
Selection.AutoFillDestination:
=Range（"B1:
D1"）,Type:
=xlFillDefault
Range（"B1:
D1"）.Select
Columns（"B:
C"）.Select
Selection.DeleteShift:
=xlToLeft
Range（"B9:
B10"）.Select
Range（"B10"）.Activate
Columns（"A:
A"）.EntireColumn.AutoFit
Columns（"B:
B"）.EntireColumn.AutoFit
Columns（"B:
B"）.ColumnWidth=18.63
Columns（"C:
D"）.Select
Selection.DeleteShift:
=xlToLeft
Columns（"D:
D"）.Select
Selection.DeleteShift:
=xlToLeft
Columns（"E:
J"）.Select
Selection.DeleteShift:
=xlToLeft
Columns（"E:
I"）.Select
Selection.DeleteShift:
=xlToLeft
Columns（"E:
G"）.Select
Selection.DeleteShift:
=xlToLeft
Columns（"I:
I"）.Select
Selection.InsertShift:
=xlToRight
Columns（"I:
J"）.Select
Selection.DeleteShift:
=xlToLeft
Columns（"H:
H"）.Select
Selection.Cut
Columns（"C:
C"）.Select
Selection.InsertShift:
=xlToRight
Columns（"F:
F"）.Select
Selection.Cut
Columns（"D:
D"）.Select
Selection.InsertShift:
=xlToRight
Columns（"G:
G"）.Select
Selection.Cut
Columns（"E:
E"）.Select
Selection.InsertShift:
=xlToRight
Columns（"H:
H"）.Select
Selection.Cut
Columns（"F:
F"）.Select
Selection.InsertShift:
=xlToRight
Range（"H2"）.Select
ActiveCell.FormulaR1C1="RequiredQty"
Range（"G2"）.Select
ActiveCell.FormulaR1C1="Level"
Range（"F2"）.Select
ActiveCell.FormulaR1C1="Vendor"
Range（"E2"）.Select
ActiveCell.FormulaR1C1="UOMCode"
Range（"D2"）.Select
ActiveCell.FormulaR1C1="fldShortName"
Range（"D2"）.Select
ActiveCell.FormulaR1C1="description2"
WithActiveCell.Characters（Start:
=1,Length:
=12）.Font
.Name="TimesNewRoman"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
Range（"C2"）.Select
ActiveCell.FormulaR1C1="description1"
WithActiveCell.Characters（Start:
=1,Length:
=12）.Font
.Name="TimesNewRoman"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
Range（"B2"）.Select
ActiveCell.FormulaR1C1="PARTNO"
WithActiveCell.Characters（Start:
=1,Length:
=7）.Font
.Name="TimesNewRoman"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
Range（"A2"）.Select
ActiveCell.FormulaR1C1="TOPItemCode"
WithActiveCell.Characters（Start:
=1,Length:
=3）.Font
.Name="TimesNewRoman"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
WithActiveCell.Characters（Start:
=4,Length:
=8）.Font
.Name="宋体"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
Range（"A2"）.Select
ActiveCell.FormulaR1C1="TopItemCode"
WithActiveCell.Characters（Start:
=1,Length:
=3）.Font
.Name="TimesNewRoman"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
WithActiveCell.Characters（Start:
=4,Length:
=8）.Font
.Name="宋体"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
Range（"A2:
K15"）.Select
Range（Selection,Selection.End（xlDown））.Select
Range（"A2:
K600"）.Select
WithSelection.Font
.Size=9
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
EndWith
Range（"B4"）.Select
Columns（"A:
A"）.ColumnWidth=14.13
Columns（"A:
A"）.ColumnWidth=17
Columns（"B:
B"）.ColumnWidth=14.13
Columns（"C:
C"）.ColumnWidth=11
Columns（"C:
C"）.ColumnWidth=9.88
Columns（"D:
D"）.ColumnWidth=9.38
Columns（"E:
E"）.ColumnWidth=5.13
Columns（"F:
F"）.ColumnWidth=5.63
Columns（"G:
G"）.ColumnWidth=3.75
Columns（"H:
H"）.ColumnWidth=8
Columns（"G:
G"）.Select
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.ShrinkToFit=False
.MergeCells=False
EndWith
Columns（"E:
F"）.Select
WithSelection
.HorizontalAlignment=xlRight
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.ShrinkToFit=False
.MergeCells=False
EndWith
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.ShrinkToFit=False
.MergeCells=False
EndWith
Range（"A2:
K2"）.Select
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.ShrinkToFit=False
.MergeCells=False
EndWith
Range（"I1"）.Select
WithSelection
.HorizontalAlignment=xlRight
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.ShrinkToFit=False
.MergeCells=False
EndWith
Range（"A1:
C1"）.Select
WithSelection.Interior
.ColorIndex=6
.Pattern=xlSolid
EndWith
Selection.Font.ColorIndex=13
Range（"B1:
D1"）.Select
Selection.Interior.ColorIndex=6
Range（"A1"）.Select
Selection.Font.ColorIndex=54
Selection.Font.Bold=True
Range（"B4"）.Select
Columns（"A:
A"）.ColumnWidth=18.25
Columns（"A:
A"）.ColumnWidth=18.75
Rows（"2:
2"）.Select
Selection.InsertShift:
=xlDown
Range（"A2:
D2"）.Select
Selection.Interior.ColorIndex=xlNone
Range（"A13"）.Select
现在看下运行这个宏的结果：
有了这个经初步整理后的BOM，将要领用的材料的单价从《0503长沙兴隆材料进销存》上匹配上去，再整理下格式，这样就可以看到这个半成品的标准耗料成本了。
下面来看看给刚才的例子998-0100-CP2P-01匹配单价的结果：
每个月会生产不同型号的产品，涉及比较多的BOM，我们可以将它们的BOM，分半成品和成品，分别放到一个工作簿中，这就是我们可以在[核算结果]文件夹中可以看到的《0503长沙兴隆-BOM-半成品》，《0503长沙兴隆-BOM-成品》。
这两个工作簿中的工作表比较多，又都是做相同的处理（匹配单价），同样可以做一个匹配单价的宏。
把这工作簿内的工作表成组，运行宏，就一次全部搞惦了。
下面是匹配单价的宏：
Sub第二步BOM单价整理（）
'
'下载BOM单价整理Macro
'宏由heshiping录制，时间:
2005-2-28
'
'快捷键:
Ctrl+p
'
Range（"I3"）.Select
ActiveCell.FormulaR1C1="Price"
Range（"J3"）.Select
ActiveCell.FormulaR1C1="Amount"
Range（"I4"）.Select
ActiveCell.FormulaR1C1=_
"=VLOOKUP（RC[-7],'[0503长沙兴隆材料进销存.xls]0503长沙兴隆材料进销存'!
R2C1:
R9617C8,8,0）"
Range（"J4"）.Select
ActiveCell.FormulaR1C1="=RC[-1]*RC[-2]"
Range（"I4:
J4"）.Select
Selection.Copy
Range（"I5:
J1000"）.Select
ActiveSheet.Paste
Application.CutCopyMode=False
Range（"I4:
J1000"）.Select
Selection.Copy
Selection.PasteSpecialPaste:
=xlPasteValues,Operation:
=xlNone,SkipBlanks_
:
=False,Transpose:
=False
Range（"H1"）.Select
Application.CutCopyMode=False
ActiveCell.FormulaR1C1="BOM价：
"
WithActiveCell.Characters（Start:
=1,Length:
=1）.Font
.Name="宋体"
.FontStyle="常规"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=xlAutomatic
升级会员 