Board logo

標題: [發問] 格式化條件不被更動 [打印本頁]
作者: edwardyen    時間: 2011-7-12 21:45     標題: 格式化條件不被更動

本帖最後由 edwardyen 於 2011-7-12 21:47 編輯

請問各位前輩, 我的excel表格已經設定了儲存格的格式化條件, 儲存格都設定好要的格式化條件。要如何使每個儲存格都可以正常輸入、刪除、剪下、貼上資料而不會改變或覆蓋掉我所設好的格式化條件,尤其是當資料是從別的工作表剪下貼上時. 或者VBA可以克服這問題嗎?
不希望用"選擇性貼上"...
作者: StanleyVic    時間: 2011-7-13 12:44

回樓主 :  
既然你用了"刪除"、"剪下"、"貼上" 當然裏頭你所建立的格式化條件也會跟著變化和被覆蓋.

建議你用vba 吧.  
例子 : 假設 如果range(A:A)  任一格 輸入或 更新資料後 , 如有 "Stanley" 這個字都會變紅色.

代碼以下. 請參考, 希望對你幫助.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Range("A65536").End(xlUp).Row
If Target.Column = 1 And Target.Row <= i Then
    Range("A1:A" & i).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Stanley"""
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Range("A1").Select
End If
End Sub



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)