能够把$K11里的11参数化么？

[qhgary]

Range("A11:M11").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(OR($K11=""NotExec"", $K11=""Pass""), TRUE())"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF($K11=""Delete"", TRUE())"
Selection.FormatConditions(2).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF($K11=""Failed"", TRUE())"
Selection.FormatConditions(3).Interior.ColorIndex = 3


我想把里面所有的11变成一个参数形式，这样我可以通过循环来反复执行这一段。
请问如何写这个循环呢？

[thoughter]

Range(Cells(11, 1), Cells(11, 13))

[thoughter]

下面的这样行不行
"=IF(OR($K"&列号&"=""NotExec"", $K"&列号&"=""Pass""), TRUE())"

[ChinaOBS]

Sub tes()
Dim i As Integer
i = 11
Range("A" & i & ":M" & i).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(OR($K" & i & "=""NotExec"", $K" & i & "=""Pass""), TRUE())"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF($K" & i & "=""Delete"", TRUE())"
Selection.FormatConditions(2).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF($K" & i & "=""Failed"", TRUE())"
Selection.FormatConditions(3).Interior.ColorIndex = 3
End Sub

[qhgary]

A!F4，如果要把A参数化怎么弄？

Range(strSheetName"!F4, "strSheetName"!F7").Select

好像编译不过。

[ChinaOBS]

Range(strSheetName & "!F4, " & strSheetName & "!F7").Select

[qhgary]

为什么你之前写的代码&在引号里面，现在的&在引号外面呢？

[ChinaOBS]

你没有看清楚吧？