车间成本对比统计缺少变动区求和设置

w_rlin

希望高手能帮我完善一下，借此机会学习一下，不断完善我的成本结转工作。谢谢

shuyee

按钮代码，举了2个，自己编其它的吧,butID=按钮名称
Private butID As String
Sub simBut()
butID = "按钮 4"
AddLine butID
End Sub
Sub simBut4()
butID = "按钮 19"
DelLine butID
End Sub
Private Sub DelLine(ID As String)
Dim tmpR As Range
If ID = "" Then Exit Sub
Set tmpR = ActiveSheet.Shapes(ID).TopLeftCell
tmpR.Offset(-1, 1).EntireRow.Delete
End Sub
Private Sub AddLine(ID As String)
Dim tmpR As Range
If ID = "" Then Exit Sub
Set tmpR = ActiveSheet.Shapes(ID).TopLeftCell
tmpR.EntireRow.Insert
tmpR.Offset(-2, 1).Resize(2, 14).FillDown
tmpR.Offset(-1, 2).Resize(1, 14).SpecialCells(xlCellTypeConstants).ClearContents
End Sub