- 帖子
- 12
- 主題
- 2
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2018-3-8
- 最後登錄
- 2019-11-25
|
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode = xlCopy Then Me.Paste
On Error Resume Next
[colorCell].FormatConditions.Delete
Target.Name = "colorCell"
With [colorCell].FormatConditions ' 設定格式化條件
.Delete
.Add xlExpression, , "TRUE" ' 條件(一)內公式為
.Item(1).Interior.ColorIndex = 40 ' .Item(1)等於FormatConditions(1)
.Item(1).Font.Bold = True
End With
End Sub
上述程式是網路上所寫的程式
若滑鼠移到"表格內已設定格式化條件的儲存格"的位置時，不會改變原格式化的條件
設定(只是改變顏色而已)。
請教高手要如何改寫上述程式。 |
|
發表於 2018-12-4 19:05
| 
