根据格式更改单元格的值答案

【问题标题】：Changing the value of cells depending on the format根据格式更改单元格的值
【发布时间】：2012-02-08 10:52:35
【问题描述】：

我有一个很大的 Excel 文件，其中一侧有一个列表或课程，然后是顶部的模块。要指定模块是否在课程中，链接课程和模块的单元格为绿色，但没有值。

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

条件格式似乎只给了我一个将值更改为某种格式的选项，而不是相反。

【问题讨论】：

【解决方案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 中执行代码：工具 > 宏... > 宏...

【讨论】：

【解决方案2】：

尝试使用公式将值“y”放入单元格中，然后根据该值应用条件格式。

【讨论】：