VBA 文字列分割ForEach,RCからA1アドレス取得,条件付書式

Sub SetColor()

Set w = Sheets("Sheet1")

For Each c In Split("2,3,17,23,24,38,39", ",")

  alphabet = Split(w.Cells(1, CInt(c)).Address, "$")(1)
 
  For r = 2 To 300
 
    Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""未""")
    f.Font.Color = RGB(255, 0, 0)
    f.Interior.Color = RGB(255, 255, 0)
    f.StopIfTrue = False
   
    Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""済み""")
    f.Font.Color = RGB(0, 0, 0)
    f.Interior.Color = RGB(150, 150, 150)
    f.StopIfTrue = False
 
  Next

Next

End Sub

Sub SetColor()

Set w = Sheets("Sheet1")

For Each c In Split("2,3,17,23,24,38,39", ",")

alphabet = Split(w.Cells(1, CInt(c)).Address, "$")(1)

For r = 2 To 300

Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""未""")

f.Font.Color = RGB(255, 0, 0)

f.Interior.Color = RGB(255, 255, 0)

f.StopIfTrue = False

Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""済み""")

f.Font.Color = RGB(0, 0, 0)

f.Interior.Color = RGB(150, 150, 150)

f.StopIfTrue = False

End Sub