macro2.bas

来自「Introduction: 1. Macro1: AddFailureMode」· BAS 代码 · 共 1,096 行 · 第 1/5 页

BAS
1,096 行
字号
12345
   
   
   
   '*******************************************
   '*                     NTF                 *
   '*                                         *
   '*******************************************
                        ElseIf x(k) = "NTF" Then
                                    Sheets("DPHU").Select
                                        Range("C54").Select
                                        ActiveCell.Offset((r1 + r2 + r3 + r4 + r5 + r6), 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("C54").Select                          '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 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("D54").Select                         '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 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("F54").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 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("G54").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 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("H54").Select                      '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 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("I54").Select
                                    ActiveCell.Offset(r6 + 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("L54").Select
                                    ActiveCell.Offset(r6 + 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("K54").Select
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 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("E54").Select
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select
                                    ActiveCell.FormulaR1C1 = Get_Word(T, "First")
                                   
'***********************************************************
                                   
                                    r7 = r7 + 1
   
   
   
   '*******************************************
   '*                     TBA                 *
   '*                                         *
   '*******************************************
                        ElseIf x(k) = "TBA" Then
                                    Sheets("DPHU").Select
                                        Range("C57").Select
                                        ActiveCell.Offset((r1 + r2 + r3 + r4 + r5 + r6 + r7), 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("C57").Select                          '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 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("D57").Select                         '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 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("F57").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 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("G57").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 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
12345

macro2.bas - 源码说明

本页面展示了「Introduction: 1. Macro1: AddFailureModeCol is used to the test report generated from GNPO Rpt Tools」中的 macro2.bas 源码文件，采用 BAS 编程语言编写，共 1,096 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与GNPO Rpt Tools相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?