麻辣家族討論版版 » Excel程式區 » 標示選擇的儲存格

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = -4142
'取消單元格原有填充色，但不包含條件格式產生的顏色。
Rows(Target.Row).Interior.ColorIndex = 36
'活動單元格整行填充顏色
'Columns(Target.Column).Interior.ColorIndex = 36
'活動單元格整列填充顏色(如不需要整列高亮，可刪除該行命令)
Application.ScreenUpdating = False
End Sub

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 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# 蘿蔔泥

試試看~~~

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode = xlCopy Then Me.Paste
On Error Resume Next
[colorCell].FormatConditions.Delete
Rows(Target.Row).Name = "colorCell"
With [colorCell].FormatConditions ' 設定格式化條件
.Delete
.Add xlExpression, , "TRUE" ' 條件(一)內公式為
.Item(1).Interior.ColorIndex = 36 ' .Item(1)等於FormatConditions(1)
.Item(1).Font.Bold = True
End With
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

3^#

發表於 2020-5-28 10:15 | 只看該作者

回復 1# 蘿蔔泥

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

4^#

發表於 2020-5-28 11:33 | 只看該作者

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

Xl0000128(欄變換檢視).rar (13.91 KB)

靜思自在 : 有時當思無時苦，好天要積雨來糧。

返回列表下一主題上一主題