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

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

問(wèn)題的需求

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

問(wèn)題的解決辦法

針對(duì)這一需求，唯有利用VBA來(lái)實(shí)現(xiàn)。下面，我們將介紹一個(gè)非常實(shí)用且簡(jiǎn)單通用的方法。

實(shí)例制作

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

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

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

```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

```

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

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

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