如何基於相同的單元格更改值/替代條件格式

Question

我想知道是否有可能以條件格式編寫代碼或規則，如果我更改了單元格中的值，則該單元格將突出顯示或更改顏色以使其很明顯地改變了模型中的輸入條件。

我有一個模型，其中某些假設是我的輸入。 我還有一個覆蓋部分，如果他們想更改增長率，例如，只需輸入單元格即可。 在覆蓋該單元格中的值之后，是否可以使該單元格更改顏色？

謝謝！！

Answer 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，則可以理解。