Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 17142|回复: 57

跪求破解宏密码 急!!!

  [复制链接]
发表于 2010-1-28 17:49 | 显示全部楼层 |阅读模式
附件的宏有密码,请哪位高手帮我破解一下,非常感谢,急用! d0dB3Wfy.rar (32.76 KB, 下载次数: 58)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-1-28 18:22 | 显示全部楼层
本帖最后由 爱疯 于 2013-7-5 09:05 编辑

宏密码:

[hide]

SQ1

[/hide
]
[此贴子已经被作者于2010-1-28 18:22:58编辑过]
回复

使用道具 举报

发表于 2010-1-28 19:21 | 显示全部楼层
回复

使用道具 举报

发表于 2010-3-17 22:52 | 显示全部楼层

请高手明示![em05]
回复

使用道具 举报

发表于 2010-3-31 15:01 | 显示全部楼层

asdggg
回复

使用道具 举报

发表于 2010-3-31 15:05 | 显示全部楼层

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

回复

使用道具 举报

发表于 2010-3-31 15:08 | 显示全部楼层

已移去密码

sOMg8ZiB.rar (32.67 KB, 下载次数: 36)
回复

使用道具 举报

发表于 2010-3-31 18:36 | 显示全部楼层

学习

回复

使用道具 举报

发表于 2010-4-24 11:58 | 显示全部楼层

yunfghhg
回复

使用道具 举报

发表于 2010-4-24 12:07 | 显示全部楼层

看看                      
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:04 , Processed in 0.484013 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表