选中”7月3日“前面的单元格,插入-名称-定义-输入”color“-引用位置输入”=GET.CELL(38,B3)
(这里的B3为“7月3日”单元格所在位置“)
确认保存
A3=IF(COLOR=4,"返料","")
颜色代码见下图:
可使用如下的代码编辑一个公式,拷贝到VBA模块中。
然后便可在单元格中使用该公式。
缺点在于无自动更新,需要在原单元格公式后手动回车更新。
Public Function ColorChange()
For i = 2 To Cells(1000, 2).End(xlUp).Row
If Cells(i, 2).Interior.Color = 12611584 Then
ColorChange = "配料"
Exit Function
End If
Next
ColorChange = ""
End Function
判断单元格的颜色,现在只能使用vba呢。函数不能判断单元格的颜色。
用IF 判断啊