返回列表 上一主題 發帖

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

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

大家好,可以讓原本有底色的顏色不要消失嗎?只有選取的列會標示顏色 標示顏色.zip (20.83 KB)
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  2. Application.ScreenUpdating = False

  3. Cells.Interior.ColorIndex = -4142

  4. '取消單元格原有填充色,但不包含條件格式產生的顏色。

  5. Rows(Target.Row).Interior.ColorIndex = 36

  6. '活動單元格整行填充顏色

  7. 'Columns(Target.Column).Interior.ColorIndex = 36

  8. '活動單元格整列填充顏色(如不需要整列高亮,可刪除該行命令)

  9. Application.ScreenUpdating = False

  10. End Sub
複製代碼

回復 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

回復 1# 蘿蔔泥

不要這樣做, 會讓某些功能無法操作, 例如"複製""貼上",
若是因"橫向"太多欄不好查看, 可利用"欄群組"的"隱藏/展開"來查看!

TOP

使用捲軸物件進行欄的變換,
預設每 5 欄跳動, 可視需求自行在程式碼中修改:
Xl0000128(欄變換檢視).rar (13.91 KB)

TOP

        靜思自在 : 我們最大的敵人不是別人.可能是自己。
返回列表 上一主題