用知VBA單元格事件處理道,修改過(guò)的版單元格自動(dòng)變紅色權字體Private Sub Worksheet_Change(ByVal Target As Range) Target.Font.ColorIndex = 3End Sub一、問(wèn)題的解決辦法 關(guān)于這個(gè)問(wèn)題,只能使用VBA來(lái)做,下面,一個(gè)非常實(shí)用的也很簡(jiǎn)單的通用的方法。二、實(shí)例制作1.假如,工作薄中存在這樣的一個(gè)工作表2.在這個(gè)工作薄的任何一個(gè)工作表,只要對方修改了哪個(gè)單元格的值,其值與原來(lái)的不一樣,那么,對應單元格的背景顏色就會(huì )變成紅色的。3.以下是制作的過(guò)程,請您認真仔細的看了,否則會(huì )功虧一簣。4.在工作表激活的狀態(tài)下,按下“7a686964616fe58685e5aeb931333337613762Alt+F11”組合鍵,彈出Microsoft Visual Basic窗口,如下圖!5.然后,如上圖一樣,找到ThisWorkbook點(diǎn)擊右鍵,選擇“查看代碼”,之后,會(huì )彈出如下圖的代碼編寫(xiě)窗口。6.上圖中,請先選擇好“通用”對象名,之后,直接輸入上述被選中的代碼?! ∽詈?,緊跟著(zhù)直接輸入如下的代碼,以完成上述的所有代碼的輸入: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MyRow = Target.Row MyColumn = Target.Column MyNewValue = Cells(MyRow, MyColumn).Value If (MyNewValue <> MyOldValue) Then Cells(MyRow, MyColumn).Interior.ColorIndex = 3 End If End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) MyRow = Target.Row MyColumn = Target.Column MyOldValue = Cells(MyRow, MyColumn).Value End Sub 代碼輸入完成之后,請在Microsoft Visual Basic窗口中進(jìn)行保存操作,現在,整個(gè)代碼輸入過(guò)程就完成了,并且,可以直接使用了。7.返回到Excel窗口,現在,就來(lái)驗證一下您的代碼吧! 比如,試圖將“大眾三七網(wǎng)”改成“文山三七”;試圖將“2009-8-1”改成“2119-8-1”,那么,這兩個(gè)單元格的值與原來(lái)的就不一樣了,因此,它們的背景顏色自然就會(huì )自動(dòng)變成紅色的了。條件格式不能跨表引用,但可以變通抄一下:1、以算好的Sheet1為基礎2、復制2113Sheet1到sheet2、3,作為第二、三棟數據52613、復制Sheet1的數據區,使用“選擇性粘貼”-“粘貼鏈接”,至Sheet2、3的空白處備用4102(可以隱藏)4、然后1653就可以在Sheet2、3里使用條件格式了以下附件是用批注來(lái)記錄修改的,每一次的修改都會(huì )記錄下來(lái)使用條件格式