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

蘿蔔泥

大家好，可以讓原本有底色的顏色不要消失嗎？只有選取的列會標示顏色 標示顏色.zip (20.83 KB)

下載次數: 7

2020-5-26 14:03

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. Application.ScreenUpdating = False
   
4. 
   
5. Cells.Interior.ColorIndex = -4142
   
6. 
   
7. '取消單元格原有填充色，但不包含條件格式產生的顏色。
   
8. 
   
9. Rows(Target.Row).Interior.ColorIndex = 36
   
10. 
    
11. '活動單元格整行填充顏色
    
12. 
    
13. 'Columns(Target.Column).Interior.ColorIndex = 36
    
14. 
    
15. '活動單元格整列填充顏色(如不需要整列高亮，可刪除該行命令)
    
16. 
    
17. Application.ScreenUpdating = False
    
18. 
    
19. 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

複製代碼

准提部林

回復 1# 蘿蔔泥

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

准提部林

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

下載次數: 11

2020-5-28 11:32