根据格式更改单元格的值

Question

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

我只需要所有的绿色单元格的值为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执行代码：工具>宏...>宏...

Answer 2

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