怎样优化条件格式录制的宏代码？

gwfzh

各位老师：
下面是在用条件格式录制的宏代码，可是只能在一个表中用，不能在sheet1——5表中共用，希望各位老师帮忙更改和优化一下，在此谢谢了！
Sub Macro2()
' 宏由 微软用户 录制，时间: 2010-7-10
    Range("CH:CN,DZ:ET").Select
    Range("DZ1").Activate
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""rr"""                                                       '当等于热时为粉红字；当等于温时，为砖红色字
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .ColorIndex = 7
    End With
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""ww"""
    With Selection.FormatConditions(2).Font
        .Bold = False
        .Italic = True
        .ColorIndex = 3
    End With
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""ll"""
    With Selection.FormatConditions(3).Font
        .Bold = True
        .Italic = True
        .ColorIndex = 4
    End With
    Range("CV:DB,EX:FR").Select
    Range("EX1").Activate
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""cc"""
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .ColorIndex = 7
    End With
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""nn"""
    With Selection.FormatConditions(2).Font
        .Bold = False
        .Italic = True
        .ColorIndex = 3
    End With
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""kk"""
    With Selection.FormatConditions(3).Font
        .Bold = True
        .Italic = True
        .ColorIndex = 4
    End With
    Range("DJ:DP,FV:GP").Select
    Range("FV1").Activate
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""ff"""
    Selection.FormatConditions(1).Font.ColorIndex = 7
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""gg"""
    With Selection.FormatConditions(2).Font
        .Bold = False
        .Italic = True
        .ColorIndex = 3
    End With
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""zz"""
    With Selection.FormatConditions(3).Font
        .Bold = True
        .Italic = True
        .ColorIndex = 4
    End With
    Columns("CH:GP").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 = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.ColumnWidth = 2.5
Selection.ColumnWidth = 3.13
End Sub

fjmxwrs

为什么不上个附件呢？

nichangdong

发晕呀，这么长

[em06][em06][em06]

BAIXINGR

学习下

那么的帅

上传附件，并把你的要求讲清楚

gwfzh

QUOTE:

以下是引用那么的帅在2010-7-12 15:47:00的发言：
上传附件，并把你的要求讲清楚

帅老师：
下面是在用条件格式录制修改后的一段代码，可是运行时出现类型不匹配的错误？，希望帅老师帮忙更改和优化一下，并且能在sheet1——5表中共用，在此谢谢了！
Sub Macro()'

' 宏由 微软用户 录制，时间: 2010-7-10
Range("CH:CN,DZ:ET").Select
    Range("DZ1").Activate
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
       Formula1:="=""★" Or "=""■" Or "=""▲" Or "=""◎"                                                       '当等于★、■、▲、◎时为粉红字   
With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .ColorIndex = 7
    End With
  Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""☆" Or "=""□" Or "=""△" Or "=""㊣"  
With Selection.FormatConditions(2).Font
        .Bold = False
        .Italic = True
        .ColorIndex = 3
    End With
Columns("CH:GP").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 = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.ColumnWidth = 2.5
Selection.ColumnWidth = 3.13   
End Sub

 

VlHMXn7N.zip (90.2 KB, 下载次数: 5)

2010-7-12 17:22 上传

点击文件名下载附件
怎样优化条件格式录制的宏代码？

zg16255

这宏真复杂

cgx5871

我想知道  这宏是怎么录制的?  我在表格里设置条件格式,  录制后没内容.