返回列表 上一主題 發帖

[發問] 標示選擇的儲存格

微風

帖子
15 
主題
4 
精華
0 
積分
61 
點名
0  
作業系統
win 10 OR WIN XP 
軟體版本
office365 OR 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2020-3-15 
最後登錄
2021-8-2 
1# 跳轉到 »
發表於 2020-5-26 22:36 | 顯示全部帖子
回復 1# 蘿蔔泥

試試看~~~
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  2. If Application.CutCopyMode = xlCopy Then Me.Paste
  3.   On Error Resume Next
  4.   [colorCell].FormatConditions.Delete
  5.   Rows(Target.Row).Name = "colorCell"
  6.   With [colorCell].FormatConditions      ' 設定格式化條件
  7.       .Delete
  8.       .Add xlExpression, , "TRUE"        ' 條件(一)內公式為
  9.       .Item(1).Interior.ColorIndex = 36  ' .Item(1)等於FormatConditions(1)
  10.       .Item(1).Font.Bold = True
  11.   End With
  12. End Sub
複製代碼

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題