Note: The other languages of the website are Google-translated. Back to English

如何在Excel中突出顯示活動單元格或選擇?

如果您的工作表很大,也許一眼就很難找到活動的單元格或活動的選擇。 但是,如果活動的單元格/部分具有突出的顏色,則找出它將不是問題。 在本文中,我將討論如何在Excel中自動突出顯示活動單元格或選定的單元格範圍。

高亮顯示活動單元格或使用VBA代碼進行選擇

Office選項卡在Office中啟用選項卡式編輯和瀏覽,並使您的工作更加輕鬆...
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
  • 重用任何東西: 將最常用或最複雜的公式,圖表等添加到您的收藏夾中,並在將來快速重用它們。
  • 超過20種文字功能: 從文本字符串中提取數字; 提取或刪除部分文字; 將數字和貨幣轉換為英文單詞。
  • 合併工具:將多個工作簿和工作表合二為一; 合併多個單元格/行/列,而不會丟失數據; 合併重複的行和總和。
  • 分割工具:根據價值將數據分割成多個工作表; 一本工作簿可轉換為多個Excel,PDF或CSV文件; 一列到多列。
  • 跳過粘貼 隱藏/過濾的行; 計數與求和 按背景色; 向多個收件人批量發送個性化電子郵件。
  • 超級過濾器: 創建高級過濾方案並應用於任何工作表; 分類 按星期,日期,頻率等 篩選 用粗體,公式,註釋...
  • 超過300個強大的功能; 適用於 Office 2007-2021 和 365; 支持所有語言; 在您的企業或組織中輕鬆部署。

箭頭藍色右氣泡 高亮顯示活動單元格或使用VBA代碼進行選擇

以下VBA代碼可以幫助您動態突出顯示活動單元格或所選內容,請執行以下操作:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口。

2。 然後選擇 的ThisWorkbook 從左邊 項目瀏覽器,雙擊以打開 模塊,然後將以下VBA代碼複製並粘貼到空白模塊中:

VBA代碼:高亮顯示活動單元格或所選內容

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

doc-highlight-active-cell-1

3。 然後保存並關閉此代碼,然後返回工作表,現在,當您選擇一個單元格或選定內容時,所選單元格將突出顯示,並且隨著所選單元格的變化而動態移動。

筆記:

1.如果找不到 項目瀏覽器窗格 在窗口中,您可以單擊 瀏覽 > 項目瀏覽器Microsoft Visual Basic for Applications窗口 打開它。

2.在上面的代碼中,您可以更改 .ColorIndex = 6 顏色變為您喜歡的其他顏色。

3.此VBA代碼可以應用於工作簿中的所有工作表。

4.如果工作表中有一些彩色的單元格,則單擊該單元格然後移至其他單元格時,該顏色將丟失。


相關文章:

如何在Excel中自動突出顯示活動單元格的行和列?


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (16)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
傑出的! 我已經使用您的代碼突出顯示了一個單元格。 它非常適合我正在做的事情。 使用數百個超鏈接在工作表和工作簿之間移動。 使遍歷變得更加容易。 謝謝你的小 VBA 腳本。
網站主持人對此評論進行了最小化
偉大的!! 但是如果我不想丟失之前分配的單元格顏色怎麼辦? 知道會更好。
網站主持人對此評論進行了最小化
是的,我也想知道這一點。 您將如何保持先前選擇的單元格突出顯示以進行跟踪?
網站主持人對此評論進行了最小化
請參閱我上面的評論。
網站主持人對此評論進行了最小化
而不是“ColorIndex”,它有一組有限的 255 個值(意味著任何自定義顏色都會丟失),而是使用“Color”。 您需要將舊值存儲在新的靜態長變量中,並使用 RGB 函數生成所需的突出顯示顏色。 激活此代碼的唯一問題是您不能再更改活動單元格的顏色,因為它會變回您單擊它之前的狀態。 我建議,如果您需要更改工作表上的突出顯示顏色,請禁用宏或更改子名稱一秒鐘,以便在單擊單元格時不會觸發它,然後將其重命名為“正常”重新激活”它。 這是我的代碼:

Sub Workbook_SheetSelectionChange(ByVal Sh 作為對象,ByVal 目標作為 Excel.Range)

靜態 xLastRng 作為範圍
靜態 xLastRngColor 只要

在錯誤恢復下一頁

xLastRng.Interior.Color = xLastRngColor
xLastRngColor = Target.Interior.Color
Target.Interior.Color = RGB(255, 255, 0) '用 RGB 值組成你想要的任何高亮顏色,我在這裡使用黃色
設置 xLastRng = 目標

END SUB
網站主持人對此評論進行了最小化
工作……太好了……
網站主持人對此評論進行了最小化
對要保護的單元格使用條件格式。
網站主持人對此評論進行了最小化
完美的解決方案,因為我總是傾向於在“查找和選擇”操作期間丟失突出顯示的單元格的軌道。 非常感謝。
網站主持人對此評論進行了最小化
但是我無法執行撤消選項並且也丟失了先前分配的單元格顏色。
請提供解決方案
網站主持人對此評論進行了最小化
謝謝,但請謹慎使用。 它具有不讓撤消的不良反作用。 有什麼解決辦法嗎?
網站主持人對此評論進行了最小化
無論如何,您可以突出顯示左側相鄰的單元格而不是活動單元格? 還是活動單元周圍的一系列單元?
網站主持人對此評論進行了最小化
這非常有幫助,謝謝。
網站主持人對此評論進行了最小化
我通過將您的宏複製並粘貼到我的 Excel 文件中來嘗試了它。 不過,我確實在宏中更改了一件事。 我將顏色索引從 6 更改為 24(更改為與我當前在宏中使用的顏色不同的顏色)。 它工作得非常好,我非常喜歡它,但後來開始給我帶來問題。 我的 Excel 中有很多充滿顏色的單元格。 宏開始從每個觸摸的單元格中刪除顏色填充。 我不知道如何阻止宏的這種奇怪行為。 我別無選擇,只能從我的文件中刪除宏。 如果有人可以幫助我修復它,我仍然喜歡使用這個宏。
網站主持人對此評論進行了最小化
我知道您提出了一個解決方案,但該解決方案帶來了另一個問題,如下所述:“激活此代碼的唯一問題是您無法再更改活動單元格顏色,因為它會變回您單擊之前的顏色我建議如果您需要更改工作表上的突出顯示顏色,請禁用宏或更改子名稱一秒鐘,這樣當您單擊單元格時它不會觸發“。 這對我來說不是一個可接受的選擇。 當宏處於活動狀態時,我需要能夠更改單元格中的顏色。 你有這個問題的解決方案嗎? 如果您想出解決此問題的方法,請完整地重新發布您更正的宏和新宏(而不是對原始宏提出補丁,因為就宏而言我在技術上面臨挑戰)。
網站主持人對此評論進行了最小化
您好,如果有人可以幫助我...我在互聯網上獲取此代碼(向所有者道歉)。 它幾乎可以滿足我的需要,但此代碼選擇整行。 我需要進行更改以僅選擇活動單元格行的前兩個單元格。 當我單擊單元格時,我需要該行的“$I16”和“$J16”(16 是我的表格的第一行)列的單元格變成內部顏色(=9359529)。 代碼是這樣的: 
將 lTarget 作為範圍

私人子工作表_SelectionChange(ByVal Target As Range)

如果 Target.Row >= 16 那麼

If Not lTarget is nothing then

lTarget.EntireRow.Interior.ColorIndex = 0
如果結束

Target.EntireRow.Interior.Color = 9359529

設置 lTarget = 目標
如果結束
END SUB

你能幫助我嗎? 我曾嘗試更改此代碼,但我唯一能做的就是選擇單元格目標的內部顏色,而不是該特定行中的列“$I”和“$J”。謝謝您的幫助。
路易斯·洛佩斯
網站主持人對此評論進行了最小化
我有同樣的問題,閱讀整個頁面和評論。 在考慮是否應用它時,我只是隨機單擊數字和字母來選擇整個列和行。 然後突然突出顯示選定的單元格功能回來了:)
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護