史上最难VBA，打败99%人

舞文弄墨123

清风竹-

Sub 运行代码()

'  Dim i As Integer
'  Dim j As Integer
'   For i = 5 To Range("P65536").End(xlUp).Row
'  For j = 5 To Range("Q65536").End(xlUp).Row
  With Worksheets("每月-赛马表").Range("D5:K12")
    .FormatConditions.Delete
     For i = 1 To 8
       .Select
       .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & """" & Worksheets("每月-赛马表").Range("Q" & i + 4).Value & """" & "", Formula2:=""
       .FormatConditions(i).Interior.Color = Worksheets("每月-赛马表").Range("R" & i + 4).Value
     Next


  End With
'  Next
'  Next
MsgBox "已③运行代码" & Chr(10) & "         ——XXX制"
End Sub

清风竹-

请参考一下。代码变化较大。

舞文弄墨123

清风竹- 发表于 2024-8-12 11:09
Sub 运行代码()

'  Dim i As Integer

收下我的膝盖，大神

舞文弄墨123

清风竹- 发表于 2024-8-12 12:22
请参考一下。代码变化较大。

人外有人，天外有天。才知道我是如此浅薄

舞文弄墨123

清风竹- 发表于 2024-8-12 12:22
请参考一下。代码变化较大。

大神，我想给您发个红包表示感谢