[已解决]这个代码编的太好了，可我弄不懂，请高手逐句详释一下，在下感激不尽

lgoolj

将大于等于4的数字变成红色.rar (8.63 KB, 下载次数: 31)

2011-10-17 13:09 上传

点击文件名下载附件
代码写的真好

最佳答案

月排行榜 / 总排行榜

zjdh

2011-10-17 14:06

我来解释一段吧：
Sub 选择()
    Dim rg As Range
    Application.ScreenUpdating = False '关闭屏幕刷新   
    Range("A2").Select
    Set rg = ActiveCell.CurrentRegion   '设置rg为当前区域(为取得区域范围的行数和列数做准备）   
    rg.Offset(1, 0).Resize(rg.Rows.Count - 1, rg.Columns.Count).Select '激活除区域第一行外的区域   
    Selection.FormatConditions.Delete    '删除条件格式
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="4"    '添加条件格式的条件>=4
    Selection.FormatConditions(1).Font.ColorIndex = 3   '符合条件则字体设置为红色   
    Range("Z3").Select
    Set rg = Nothing   '释放内存   
    Application.ScreenUpdating = True    '打开屏幕刷新
End Sub

跳转到最佳答案楼层

liushui_gaoshan

我也只能看一部分，有些函数没用过，不太懂！

蓝桥玄霜

代码的要点就是选择第3行以下的数据，设置一个条件格式：单元格值>=4时，该单元格的字符串字体变红色。

zjdh

我来解释一段吧：
Sub 选择()
    Dim rg As Range
    Application.ScreenUpdating = False '关闭屏幕刷新   
    Range("A2").Select
    Set rg = ActiveCell.CurrentRegion   '设置rg为当前区域(为取得区域范围的行数和列数做准备）   
    rg.Offset(1, 0).Resize(rg.Rows.Count - 1, rg.Columns.Count).Select '激活除区域第一行外的区域   
    Selection.FormatConditions.Delete    '删除条件格式
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="4"    '添加条件格式的条件>=4
    Selection.FormatConditions(1).Font.ColorIndex = 3   '符合条件则字体设置为红色   
    Range("Z3").Select
    Set rg = Nothing   '释放内存   
    Application.ScreenUpdating = True    '打开屏幕刷新
End Sub

lgoolj

四楼楼主真的太有才了，这下我似乎看懂了一点点，太感谢了{:06:}

lgoolj

这地方真不错，今天才注册就立马学到点东西，精英培训网真的是个好地方

jhmzzj

我似乎看懂了一点点，太感谢了!