Vba 按上面的单元格设置每个单元格的图标格式

我正在寻找使用图标条件格式来格式化每个单元格的上方或下方的单元格

我正在使用以下代码：

Sub FormatCellswIcons()
Dim rCell As Range
Dim rRng As Range
Set rRng = Worksheets("Charts").Range("c5:n5")

    For Each rCell In rRng.Cells
        With rCell.FormatConditions(1).IconCriteria(2)
            .Type = xlConditionValueNumber
            .Value = rCell.Offset(-1, 0).Select
            .Operator = 7
        End With
        With rCell.FormatConditions(1).IconCriteria(3)
            .Type = xlConditionValueNumber
            .Value = rCell.Offset(-1, 0).Select
            .Operator = 7
        End With
    Next rCell 
End Sub

---

我有两个问题，a）为什么下标超出范围？b） 在

.Value

中使用偏移量是否仍然可以这样拉取值

哪一行的下标超出范围？另外--.Select如果选择操作成功，则返回True，而不是单元格中的值。您可能希望使用.valuefirst

和rCell

抛出下标（第7行）。还有，有没有一种方法可以使用地址（例如=c$4而不是值？）。现在唯一的部分是让它做一个没有“”标记的地址。那么-可能rCell.FormatConditions没有元素，或者，如果它有元素，rCell.FormatConditions（）。IconCriteria只有不到2个元素。可能会加入一些Debug.Print语句，看看rCell.FromatConditions.Count和rCel.FormatConditions（1.iconcreteria.Count）是什么。我假设这些是集合——如果它们是数组，请检查它们的ubound