Cum să evidențiați celula activă sau selecția în Excel?
Dacă aveți o foaie de lucru mare, poate vă este greu să aflați dintr-o privire celula activă sau selecția activă. Dar, dacă celula / secțiunea activă are o culoare remarcabilă, să afle că nu va fi o problemă. În acest articol, voi vorbi despre cum să evidențiați automat celula activă sau gama selectată de celule din Excel.
Evidențiați celula activă sau selecția cu codul VBA
Evidențiați celula activă sau selecția cu codul VBA
Următorul cod VBA vă poate ajuta să evidențiați dinamic celula activă sau o selecție, vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. Atunci alege Acest manual de lucru din stânga Explorator de proiecte, faceți dublu clic pe acesta pentru a deschide fișierul Module, apoi copiați și lipiți următorul cod VBA în modulul gol:
Cod VBA: Evidențiați celula activă sau selecția
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
3. Apoi salvați și închideți acest cod și reveniți la foaia de lucru, acum, când selectați o celulă sau o selecție, celulele selectate vor fi evidențiate și vor fi mutate dinamic pe măsură ce celulele selectate se schimbă.
note:
1. Dacă nu găsiți Panoul Project Explorer în fereastră, puteți face clic Vizualizare > Explorator de proiecte în Fereastra Microsoft Visual Basic pentru aplicații să o deschidă.
2. În codul de mai sus, puteți schimba .ColorIndex = 6 colorează la altă culoare care îți place.
3. Acest cod VBA poate fi aplicat tuturor foilor de lucru din registrul de lucru.
4. Dacă există câteva celule colorate în foaia de lucru, culoarea se va pierde atunci când faceți clic pe celulă și apoi mutați în altă celulă.
Articol asociat:
Cum se evidențiază automat rândul și coloana celulei active din Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!