今天，應(yīng)讀者的需求，我們將為大家展示如何通過VBA在Excel中實現(xiàn)當單元格值發(fā)生改變時，其背景顏色也相應(yīng)變化的功能。 問題的需求假設(shè)我們需要向同事或朋友發(fā)送一個Excel表格進行數(shù)據(jù)調(diào)查。為了更直觀

今天，應(yīng)讀者的需求，我們將為大家展示如何通過VBA在Excel中實現(xiàn)當單元格值發(fā)生改變時，其背景顏色也相應(yīng)變化的功能。

問題的需求

假設(shè)我們需要向同事或朋友發(fā)送一個Excel表格進行數(shù)據(jù)調(diào)查。為了更直觀地了解對方所做的修改，希望在他們修改工作表中任意單元格數(shù)值時，被修改的單元格背景顏色能夠自動變化，例如變成紅色或其他顏色。

問題的解決辦法

針對這一需求，唯有利用VBA來實現(xiàn)。下面，我們將介紹一個非常實用且簡單通用的方法。

實例制作

在你的Excel工作表中，無論是哪個工作表，只要對方修改了某個單元格的數(shù)值，使其與原數(shù)值不同，該單元格的背景顏色就會變?yōu)榧t色。

首先，在工作表激活狀態(tài)下，按下“Alt F11”組合鍵，打開Microsoft Visual Basic窗口。接著，找到ThisWorkbook，右鍵點擊并選擇“View Code”，彈出代碼編寫窗口。

在代碼窗口中，輸入以下代碼：

```vba

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

MyRow

MyColumn

MyNewValue Cells(MyRow, MyColumn).Value

If (MyNewValue <> MyOldValue) Then

Cells(MyRow, MyColumn) 3

End If

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

MyRow

MyColumn

MyOldValue Cells(MyRow, MyColumn).Value

End Sub

```

完成以上代碼輸入后，請保存操作?，F(xiàn)在，您已成功輸入代碼并可以立即使用。

返回Excel窗口，驗證您的代碼。嘗試將“大眾三七網(wǎng)”改為“文山三七”或?qū)ⅰ?009-8-1”改為“2119-8-1”。一旦這些單元格的值與原值不同時，它們的背景顏色將自動變?yōu)榧t色。

通過以上步驟，您可以輕松實現(xiàn)Excel單元格值改變時背景顏色自動變化的效果。愿這一技巧能提高您的工作效率！