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