📄 macro2.bas
字号:
Sheets("DPHU").Select
'********************************************
Range("F48").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4, 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("G48").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4, 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("H48").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("H" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("I48").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("J" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("L48").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("I" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("K48").Select
ActiveCell.Offset(r1 + r2 + r3 + r4, 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("E48").Select
ActiveCell.Offset(r1 + r2 + r3 + r4, 0).Select
ActiveCell.FormulaR1C1 = Get_Word(T, "First")
'************************************************************
r5 = r5 + 1
'*******************************************
'* Workmanship *
'* *
'*******************************************
ElseIf x(k) = "Workmanship" Then
Sheets("DPHU").Select
Range("C51").Select
ActiveCell.Offset((r1 + r2 + r3 + r4 + r5), 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("C51").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 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("D51").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 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("F51").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 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("G51").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 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("H51").Select '*
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 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("I51").Select
ActiveCell.Offset(r5 + 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("J" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("L51").Select
ActiveCell.Offset(r5 + 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("I" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("K51").Select
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 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("E51").Select
ActiveCell.Offset(r1 + r2 + r3 + r4 + r5, 0).Select
ActiveCell.FormulaR1C1 = Get_Word(T, "First")
'************************************************************
r6 = r6 + 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -