|
1学分
Sub 入库导入总档()
'
' 入库导入总档 宏
'
'
Range("A1").Select
Sheets("总档").Select
Range("A2:M2").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Range("A1").Select
Sheets("入库").Select
Range("A1").Select
ActiveSheet.Range("$A$2:$I$10069").AutoFilter Field:=7, Criteria1:="="
ActiveWindow.SmallScroll Down:=-6
Range("C2").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("总档").Select
Range("B1045936").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("入库").Select
ActiveCell.Offset(-2, 0).Range("A1").Select
Range("E2").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("总档").Select
Range("J1045936").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("入库").Select
ActiveCell.Offset(-2, -3).Range("A1").Select
Range("A2:I2").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Range("A1").Select
Range("D1").Select
Sheets("总档").Select
Range("I1").Select
Application.ScreenUpdating = False
mrow = Sheets("总档").Cells(Rows.Count, "B").End(3).Row
Range([C2510], Cells(mrow, "I")).FillDown
Application.ScreenUpdating = True
Sheets("入库").Select
Range("D1").Select
Calculate
Calculate
ActiveWorkbook.Save
MsgBox "做账成功!"
End Sub
Sub 出库()
'
' 出库 宏
'
'
Range("C2").Select
Sheets("出库").Select
Range("A2:I2").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter
Sheets("领料").Select
Range("C2").Select
Range("H4:H300").Select
Selection.Copy
Sheets("出库").Select
Range("E1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("领料").Select
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-2, -5).Range("A1").Select
Range("B4:E300").Select
Selection.Copy
Sheets("出库").Select
Range("C1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, -1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("领料").Select
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-2, 1).Range("A1").Select
Range("A4:H4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("C2").Select
Range("D1").Select
Sheets("出库").Select
Range("I1").Select
Application.ScreenUpdating = False
mrow = Sheets("出库").Cells(Rows.Count, "E").End(3).Row
Range([F4], Cells(mrow, "G")).FillDown
Application.ScreenUpdating = True
Sheets("领料").Select
Range("D1").Select
Range("C2").Select
Sheets("出库").Select
Range("C1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, -2).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("领料").Select
ActiveCell.Select
Calculate
Calculate
ActiveWorkbook.Save
MsgBox "做账成功!"
End Sub
|
|