Public Sub Worksheet_selectionChange(ByVal Taget As Range)
Dim cel As Range
For Each cel In Sheet1.UsedRange
cel.Interior.Color = xlNone
If cel = ActiveCell Then
cel.Interior.Color = RGB(255, 0, 0)
End If
Next
Sheet1.Activate
End Sub
---------------------------------------------------------------------------
效果:
可以指定一个单元格作为存储当前选择的单元格,比如A1;
再用vba根据当前选择修改A1的内容;
然后设置条件格式就可以了
请在此输入您的回答
可以的
通过宏代码,添加一个事件就可以