返回列表 上一主題 發帖

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

蘿蔔泥

帖子
36 
主題
10 
精華
0 
積分
93 
點名
0  
作業系統
win10 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2018-2-27 
最後登錄
2022-2-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-5-26 14:04 | 只看該作者

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

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

  3. Application.ScreenUpdating = False

  5. Cells.Interior.ColorIndex = -4142

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

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

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

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

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

  17. Application.ScreenUpdating = False

  19. End Sub
複製代碼
收藏 分享

微風

帖子
15 
主題
4 
精華
0 
積分
61 
點名
0  
作業系統
win 10 OR WIN XP 
軟體版本
office365 OR 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2020-3-15 
最後登錄
2021-8-2 
2#
發表於 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

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
3#
發表於 2020-5-28 10:15 | 只看該作者
回復 1# 蘿蔔泥

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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
4#
發表於 2020-5-28 11:33 | 只看該作者
使用捲軸物件進行欄的變換,
預設每 5 欄跳動, 可視需求自行在程式碼中修改:
Xl0000128(欄變換檢視).rar (13.91 KB)

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題