📄 macro2.bas
字号:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("I" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("K42").Select
ActiveCell.Offset(r1 + r2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'************************************************************
'************************************************************
'find out the test station
'************************************************************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 0).Activate
Selection.End(xlUp).Select
T = ActiveCell.Value
Sheets("DPHU").Select
Range("E42").Select
ActiveCell.Offset(r1 + r2, 0).Select
ActiveCell.FormulaR1C1 = Get_Word(T, "First")
'***********************************************************
'************************************************************
r3 = r3 + 1
'*******************************************
'* Material *
'* *
'*******************************************
ElseIf x(k) = "Material" Then
Sheets("DPHU").Select
Range("C45").Select
ActiveCell.Offset((r1 + r2 + r3), 0).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
'*********************************
''''''copy the data from summary to dphu sheet
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("A" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'**********************************************
Range("C45").Select '*
ActiveCell.Offset(r1 + r2 + r3, 0).Select '*
'**********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("B" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'*********************************************
Range("D45").Select '*
ActiveCell.Offset(r1 + r2 + r3, 0).Select '*
'*********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("C" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'********************************************
Range("F45").Select '*
ActiveCell.Offset(r1 + r2 + r3, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "0"
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("F" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'********************************************
Range("G45").Select '*
ActiveCell.Offset(r1 + r2 + r3, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "0"
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("E" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'******************************************
Range("H45").Select '*
ActiveCell.Offset(r1 + r2 + r3, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("H" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("I45").Select
ActiveCell.Offset(r1 + r2 + r3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("J" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("L45").Select
ActiveCell.Offset(r1 + r2 + r3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("I" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("K45").Select
ActiveCell.Offset(r1 + r2 + r3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'************************************************************
'find out the test station
'************************************************************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 0).Activate
Selection.End(xlUp).Select
T = ActiveCell.Value
Sheets("DPHU").Select
Range("E45").Select
ActiveCell.Offset(r1 + r2 + r3, 0).Select
ActiveCell.FormulaR1C1 = Get_Word(T, "First")
'************************************************************
r4 = r4 + 1
'*******************************************
'* Process *
'* *
'*******************************************
ElseIf x(k) = "Process" Then
Sheets("DPHU").Select
Range("C48").Select
ActiveCell.Offset((r1 + r2 + r3 + r4), 0).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
'*********************************
''''''copy the data from summary to dphu sheet
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("A" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'**********************************************
Range("C48").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4, 0).Select '*
'**********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("B" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'*********************************************
Range("D48").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4, 0).Select '*
'*********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("C" & ActiveCell.Row).Select
Selection.Copy
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -