Прескочи на основното съдържание

Как бързо да маркирате активна клетка в Excel?

Автор: Слънце Последна промяна: 2020-09-02

Ако има множество колони и редове с данни в работен лист, изобразили ли сте, когато активирате клетка, нейните относителни колона и ред са маркирани? Например щракнете върху F11 и колоната F и ред 11 се маркират едновременно, както е показано на екранната снимка по-долу. Тук тази статия представя бързите трикове, които могат да ви помогнат да маркирате активната клетка в Excel.
doc мерник подчертаване 1

Кръстосано подчертаване на активна клетка с VBA

Кръстосано подчертаване на активна клетка с Kutools за Excel добра идея3


Кръстосано подчертаване на активна клетка с VBA

В Excel няма вградена функция, която да ви помогне да маркирате с кръстосано поле активната клетка, но тук въвеждам VBA, което може да ви помогне да маркирате кръстосано реда и колоната на активната клетка.

1. Натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.

2. След това в Проект панел, щракнете двукратно върху листа, който искате да приложите този VBA, и след това копирайте и поставете под VBA кода в десния скрипт. Вижте екранна снимка:

Съвет: Ако прозорецът на проекта е скрит, щракнете Гледка > Project Explorer in Microsoft Visual Basic за приложения прозорец, за да го покажете.

VBA: активна клетка за осветяване с кръстосана линия.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice6/1/2016
    Application.ScreenUpdating = False
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0
        .EntireRow.Interior.Color = vbYellow
        .EntireColumn.Interior.Color = vbYellow
    End With
    Application.ScreenUpdating = True
End Sub
doc мерник подчертаване 2

3. След това запазете и затворете VBA и сега, когато активирате клетка, нейният относителен ред и колона се маркират.
doc мерник подчертаване 3

Ако искате да маркирате само активната клетка, можете да използвате следния VBA.

VBA: Маркирайте избраната от вас активна клетка

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice6/1/2016
    Application.ScreenUpdating = False
    Target.Worksheet.Cells.Interior.ColorIndex = 0
    Target.Interior.Color = vbYellow
    Application.ScreenUpdating = True
End Sub

Забележка: В горните VBA кодове ColorIndex може да се променя, както искате.


Кръстосано подчертаване на активна клетка с Kutools за Excel

Ако не сте запознати с VBA, можете да опитате да кандидатствате Kutools за ExcelЕ Оформление за четене помощна програма за бързо осветяване на активна клетка с кръст.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След безплатно инсталиране Kutools за Excel, моля, направете следното:

Кликнете Kutools > Оформление за четене за да активирате Оформление за четене полезност. Вижте екранна снимка:
doc мерник подчертаване 4

Забележка:

1. кликване Kutools > Оформление за четене отново, за да деактивирате тази помощна програма.

2. кликване Kutools > Оформление за четене > Четене на настройките на оформлението за да посочите формите, стиловете и цветовете, от които се нуждаете в Четене на настройките на оформлението диалогов прозорец. Вижте екранна снимка:
doc мерник подчертаване 5

Съвет: Тази помощна програма се прилага за цялата работна книга.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. Can you please help with a VBA Code that doesn't remove the cell formatting or the previous colored cells.
This comment was minimized by the moderator on the site
Hi, the VBA code cannot satisfy your need, I suggest you try Kutools for Excel.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations