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 执行代码:工具 > 宏... > 宏...