excel - 根据格式更改单元格的值

Question

我有一个很大的 Excel 文件，其中一侧有一个列表或类(class)，然后顶部有模块。要指定模块是否在类(class)中，链接类(class)和模块的单元格会显示为绿色，但没有任何值。

我只需要所有绿色单元格的值为 y。

条件格式似乎只提供了将值更改为某种格式的选项，但反之则不然。

Answer 1

您将需要 VBA 来完成此操作。我不认为 Excel 为用户提供了读取单元格格式的能力。

Sub PutYesInColouredCells()
    Dim r As Range
    Dim cell As Range

    Set r = Range("B2:F7") ' or wherever your table is located

    For Each cell In r
        If cell.Interior.ColorIndex <> xlColorIndexNone Then
            cell.Value = "y"
        End If
    Next cell

End Sub

要使用此功能，请打开 Visual Basic 编辑器(工具 > 宏 > Visual Basic 编辑器)，插入一个模块(右键单击 VBAProject 并插入 > 模块)，然后将上述代码粘贴到这个新模块中。然后，您可以从 Excel 执行代码:工具 > 宏... > 宏...