如何基于同一单元格更改条件格式 value/override
How to conditional format based on the same cell changing value/override
我想知道是否可以在条件格式中编写代码或规则,如果我更改单元格中的值,该单元格会突出显示或更改颜色,以表明我在型号。
我有一个模型,其中某些假设是我的输入。我还有一个覆盖部分,例如,如果他们想更改增长率,只需输入单元格即可。是否可以在覆盖该单元格中的值后让该单元格更改颜色?
谢谢!!
使用 WorksheetChangeEvent 检测何时发生更改:
Private Sub Worksheet_Change(ByVal Target As Range)
' do stuff
End Sub
将以上代码放入工作表对象中(在代码编辑器中双击工作表)。
使用Application.Intersect缩小更改范围。例如,如果您只对单元格 A1 到 A10 感兴趣:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
' do stuff
End If
End Sub
然后将更改后的单元格格式化为:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
目标是受影响单元格的范围。当然,用户可以同时影响多个单元格,例如通过自动填充,所以你可能需要添加一些额外的逻辑,例如如果 Target.Rows.Count > 1,但你明白了。
我想知道是否可以在条件格式中编写代码或规则,如果我更改单元格中的值,该单元格会突出显示或更改颜色,以表明我在型号。
我有一个模型,其中某些假设是我的输入。我还有一个覆盖部分,例如,如果他们想更改增长率,只需输入单元格即可。是否可以在覆盖该单元格中的值后让该单元格更改颜色?
谢谢!!
使用 WorksheetChangeEvent 检测何时发生更改:
Private Sub Worksheet_Change(ByVal Target As Range)
' do stuff
End Sub
将以上代码放入工作表对象中(在代码编辑器中双击工作表)。
使用Application.Intersect缩小更改范围。例如,如果您只对单元格 A1 到 A10 感兴趣:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
' do stuff
End If
End Sub
然后将更改后的单元格格式化为:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
目标是受影响单元格的范围。当然,用户可以同时影响多个单元格,例如通过自动填充,所以你可能需要添加一些额外的逻辑,例如如果 Target.Rows.Count > 1,但你明白了。