Sub HTRI_1() ' ' HTRI_1 Macro ' 宏由 snowflutter 制,时间: 2006-8-27 ' ' 快捷键: Ctrl+Shift+L ' Windows("HTRI-TEMA.xls").Activate Sheets("5 - TEMA").Select Range("F14").Select Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H12:M12").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H13:J13").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F16").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H14:J14").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K13:M13").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J16").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K14:M14").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N14").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N12:S12").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N13:P13").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q13:S13").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N16").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N14:P14").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R16").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q14:S14").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("H9").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("O7:S7").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("C9").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("O8:S8").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R9").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("C8:F8").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F20").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H15:J15").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J20").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K15:M15").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N20").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N15:P15").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R20:T20").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q15").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F28").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H16:J16").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N28").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N16:P16").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F22:H22").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H18").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J22:L22").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K18:M18").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N22:P22").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N18").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R22:T22").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q18").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F25:H25").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H19").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J25:L25").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K19").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F26:H26").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H20").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J26:L26").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K20").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N25:P25").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N19").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N26:P26").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N20").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R25:T25").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q19").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Application.CutCopyMode = False Range("R26:T26").Select Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q20").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("G27").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H21:J21").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K27").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K21:M21").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("O27").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N21:P21").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("S27").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q21:S21").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F29").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H25:M25").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N29").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N25:S25").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("G30").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("I26:J26").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K30").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("L26:M26").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("O30").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("O26:P26").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("S30").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("R26:S26").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F31").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K27:M27").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N31").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q27:S27").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K33").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("I29:J29").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("E33").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("M29:O29").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R33").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q29:S29").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("E32").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H30:M30").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N32").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q30").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("G38").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H34:M34").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K38").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N34:S34").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=9 Windows("HTRI-TEMA.xls").Activate ActiveWindow.SmallScroll Down:=18 Sheets("3").Select Range("D18").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H35:M35").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("B21").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N35:S35").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Sheets("4 - Rating Data Sheet").Select Range("F23").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K28:M28").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N23").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q28:S28").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("F15:H15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("H17").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("J15:L15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K17").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("N15:P15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("N17").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("R15:T15").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("Q17").Select ActiveSheet.Paste End Sub Sub HTRI_2() ' ' HTRI_2 Macro ' 宏由 snowflutter 制,时间: 2006-8-28 ' ' 快捷键: Ctrl+Shift+H ' Windows("HTRI-TEMA.xls").Activate Range("R39").Select Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("K40:M40").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("H39").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("L41").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("A39").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("D41:E41").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Sheets("4 - Rating Data Sheet").Select ActiveWindow.ScrollWorkbookTabs Sheets:=-1 Sheets("1 - Final Results").Select ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("K39").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate ActiveWindow.SmallScroll Down:=-18 Range("I8:J8").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("D48").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate ActiveWindow.SmallScroll Down:=12 Range("D40").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("D49").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("O40:P40").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate ActiveWindow.SmallScroll Down:=15 Range("D56").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("J38").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K57").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("J39").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("I59").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("P39").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K60").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("E39").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K55").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("D38:F38").Select ActiveSheet.Paste Windows("HTRI-TEMA.xls").Activate Range("K58").Select Application.CutCopyMode = False Selection.Copy Windows("HTRI换热器数据表.XLS").Activate Range("O38:P38").Select ActiveSheet.Paste End Sub Sub HTRI_4() ' ' HTRI_4 Macro ' 宏由 snowflutter 制,时间: 2006-8-28 ' ' 快捷键: Ctrl+Shift+M Windows("HTRI换热器数据表.XLS").Activate Sheets("H-105").Select Range("K16:M16").Select ActiveCell.FormulaR1C1 = "=RC[-3]-R[10]C[1]/1000" Range("Q16:S16").Select ActiveCell.FormulaR1C1 = "=RC[-3]-R[10]C[1]/1000" Range("Q17").Select
ActiveWindow.SmallScroll Down:=-12 Range("A10:S30").Select With Selection.Font .Name = "宋体" .Strikethrough = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone End With With Selection.Font .Name = "宋体" .Size = 9 .Strikethrough = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone End With Range("A32:S45").Select With Selection.Font .Name = "宋体" .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With Selection.Font .Name = "宋体" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub Sub HTRI_3() ' ' HTRI_3 Macro ' 宏由 snowflutter 制,时间: 2006-8-27 '
' Range("H18:S18").Select Selection.Copy Range("H17:S17").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("M17").Select Selection.NumberFormatLocal = "0.0_ " Range("J17").Select Selection.NumberFormatLocal = "0.0_ " Range("N30:S30").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Selection.Borders(xlInsideVertical).LineStyle = xlNone ActiveWindow.SmallScroll Down:=-12 Range("A1:S49").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With ActiveWindow.SmallScroll Down:=18 Range("J39").Select ' ActiveCell.FormulaR1C1 = "19" Range("J38").Select ' ActiveCell.FormulaR1C1 = "1500" Range("O38:P38").Select ' ActiveCell.FormulaR1C1 = "2" Range("P39").Select ' ActiveCell.FormulaR1C1 = "25" Range("O40:P40").Select ' ActiveCell.FormulaR1C1 = "350" Range("L41").Select 'ActiveCell.FormulaR1C1 = "20" Range("D40").Select 'ActiveCell.FormulaR1C1 = "7" Range("E39").Select 'ActiveCell.FormulaR1C1 = "45" Range("J39").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeRight).LineStyle = xlNone Range("J38").Select With Selection.Font .Name = "Arial" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With Selection.Font .Name = "宋体" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.Copy Range("J39").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("E39").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("P39").Select With Selection.Font .Name = "Arial" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With Selection.Font .Name = "宋体" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("J39").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeRight).LineStyle = xlNone End Sub |