Question

我正在尝试将一个单元格的条件格式设置颜色应用于另一单元格。我这样做是为了创建热图。但是，热图中的值不是适合条件格式设置标准的值（这就是为什么我要从实际符合条件的单元格中复制颜色）。我知道我可以使用循环来完成此过程，但实际上我很努力。

Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim cell As Range
    cnt = 2
    For Each cell In Range("J78:L81")
        Me.cell.Interior.Color = Me.Range("H" & cnt).DisplayFormat.Interior.Color
        cnt = cnt + 2
    Next cell

End Sub

编辑器给我一个编译错误，提示“未找到方法或数据成员”，它指向Me.cell.Interior.Color中的.cell

Answer 1

Array ( [0] => Array ( [Satuan] => 0.5 [Harga Barang 1] => Rp 388.000 [Harga Barang 2] => Rp 342.000 [Harga Barang 3] => Rp 456.000 [Harga Barang 4] => Rp 377.000 ) [1] => Array ( [Satuan] => 1.0 [Harga Barang 1] => Rp 725.000 [Harga Barang 2] => Rp 676.000 [Harga Barang 3] => Rp 855.000 [Harga Barang 4] => Rp 684.000 ) )语句必须位于Me的前面，而不是Range("J78:L81")。

Cell

用于每个循环复制条件格式颜色

1 个答案: