- 帖子
- 47
- 主題
- 6
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Macau
- 註冊時間
- 2011-6-15
- 最後登錄
- 2016-7-4
|
2#
發表於 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 |
|
