求一段VBA代码:

来源：百度知道编辑：UC知道时间：2024/06/07 06:41:33

向哪位高手求一段代码,功能是能迅速地向表中添加条件格式,就是在下面这段代码的功能上能反复的执行下去:
Sub 条件格式()

Range("D2:I2").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$C$2"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End Sub
这段代码只能做好一行的条件格式,我想在执行一段代码时能一次做好D3:I3,D4:I4,D5:I5.......,且它参照的单元格也从C3,C4,C5......一直到最后一行有数据的单元格.不知道该如何去写这段段码,请不吝赐教.
这位老师:这段代码还有一个问题,就是:=$C$2没有随著改变,也就是当在设置D3:I3时,它没有参照到"$C$3"来,这样就是从2到100的区域都参照了一个单元格那就是"$2$2",能不能让它往下循环参照.如:
D2:I2 =$C$2
D3:I3 =$C$3
D4:I4 =$C$4
D4:I4 =$C$4
.........

dim area as string
dim i as integer
dim str as string
for i=2 to 100
area="D" & i & ":I" & i
Range(area).Select
str="=$C$" & i
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:=str
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
next i

求VBA口袋妖怪银版金手指所有代码求网球王子VBA金手指代码求 GBA 龙珠Z3 VBA 用代码求vba连接sql的代码 vba 请帮我写一段简单代码. 求机器人大战A VBA模拟器1.7代码和代码使用方法求一段代码求网页一段代码求一段网页代码~~~ 跪求一段代码