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 для приложений.

2. Потом выберите Эта рабочая тетрадь слева Обозреватель проекта, дважды щелкните его, чтобы открыть Модули, а затем скопируйте и вставьте следующий код 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

док-подсветка-активная-ячейка-1

3. Затем сохраните и закройте этот код и вернитесь на рабочий лист, теперь, когда вы выбираете ячейку или выделение, выбранные ячейки будут выделены, и они будут динамически перемещаться по мере изменения выбранных ячеек.

Ноты:

1. Если вы не можете найти Панель проводника проекта в окне можно нажать Вид > Обозреватель проекта в Окно Microsoft Visual Basic для приложений чтобы открыть ее.

2. В приведенном выше коде вы можете изменить .Колориндекс = 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, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (16)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Великолепно! Я использовал ваш код, чтобы выделить ячейку. Это отлично работает для того, что я делаю. Использование сотен гиперссылок для перемещения между рабочими листами и рабочими книгами. значительно облегчает передвижение. Спасибо за ваш небольшой скрипт VBA.
Этот комментарий был сведен к минимуму модератором на сайте
Большой!! Но что, если я не хочу терять назначенный ранее цвет ячейки? Это было бы лучше знать.
Этот комментарий был сведен к минимуму модератором на сайте
Да, я тоже хотел бы это знать. Как бы вы сохранили выделение ранее выбранных ячеек для целей отслеживания?
Этот комментарий был сведен к минимуму модератором на сайте
Смотрите мой комментарий выше.
Этот комментарий был сведен к минимуму модератором на сайте
Вместо «ColorIndex», который имеет ограниченный набор из 255 значений (это означает, что любые пользовательские цвета теряются), используйте вместо этого «Color». Вам нужно будет сохранить старое значение в новой статической длинной переменной, а также сгенерировать нужный цвет выделения с помощью функции RGB. Единственная проблема с активным кодом заключается в том, что вы больше не можете изменить цвет активной ячейки, поскольку он возвращается к тому, что было до того, как вы щелкнули по нему. Я предлагаю, если вам нужно изменить цвета выделения на листе, сделайте это с отключенными макросами или измените подимя на секунду, чтобы оно не срабатывало, когда вы нажимаете на ячейки, а затем просто переименуйте его обратно в нормальное значение « повторно активировать». Вот мой код:

Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Excel.Range)

Статический xLastRng как диапазон
Статический xLastRngColor As Long

On Error Resume Next

xLastRng.Interior.Color = xLastRngColor
xLastRngColor = Цель.Внутренний.Цвет
Target.Interior.Color = RGB(255, 255, 0) 'составьте любой цвет подсветки, который вы хотите, со значениями RGB, здесь я использую желтый
Установите xLastRng = цель

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
работа....отлично...
Этот комментарий был сведен к минимуму модератором на сайте
Используйте условный формат для ячеек, которые вы хотите защитить.
Этот комментарий был сведен к минимуму модератором на сайте
Идеальное решение, так как я всегда теряю дорожку выделенной ячейки во время операции «Найти и выбрать». Большое спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Но я не могу отменить операцию и также потерять ранее назначенный цвет ячейки.
Пожалуйста, предоставьте решение
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, но используйте это с осторожностью. Это имеет нежелательный встречный эффект, заключающийся в невозможности отменить действие. Есть ли какое-нибудь решение для этого?
Этот комментарий был сведен к минимуму модератором на сайте
В любом случае, вы можете выделить левую соседнюю ячейку вместо активной ячейки? Или диапазон ячеек вокруг активной ячейки?
Этот комментарий был сведен к минимуму модератором на сайте
Это было очень полезно, спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Я попробовал ваш макрос, скопировав и вставив его в свой файл Excel. Однако я изменил одну вещь в макросе. Я изменил индекс цвета с 6 на 24 (на цвет, отличный от цветов, которые я сейчас использую в своем макросе). Это работало очень хорошо, и мне это очень нравилось, но затем начало вызывать у меня проблемы. У меня много ячеек, заполненных цветами в моем Excel. Макрос начал удалять заливку цветом из каждой затронутой ячейки. Я не знаю, как остановить это странное поведение макроса. У меня не было другого выбора, кроме как удалить макрос из моего файла. Мне все еще нравится использовать этот макрос, если кто-то может помочь мне его исправить.
Этот комментарий был сведен к минимуму модератором на сайте
Я знаю, что вы предложили решение, но решение связано с другой проблемой, как вы описали ниже: «Единственная проблема с активным кодом заключается в том, что вы больше не можете изменить цвет активной ячейки, поскольку он возвращается к тому, что было до того, как вы щелкнули Это. Я предлагаю, если вам нужно изменить цвета выделения на листе, сделайте это с отключенными макросами или измените дополнительное имя на секунду, чтобы оно не срабатывало, когда вы нажимаете на ячейки». Для меня это неприемлемая альтернатива. Мне нужно иметь возможность менять цвета в ячейках, когда макрос активен. У вас есть решение этой проблемы. Если вы придумаете решение этой проблемы, пожалуйста, опубликуйте свой исправленный макрос полностью новым (вместо того, чтобы предлагать исправления к исходному макросу, потому что у меня есть технические сложности в том, что касается макросов).
Этот комментарий был сведен к минимуму модератором на сайте
Привет, если кто-то может мне помочь... Я нашел этот код в Интернете (извинения перед владельцем). Он делает почти то, что мне нужно, но этот код выбирает всю строку. Что мне нужно, так это изменение, позволяющее выбрать только первые две ячейки строки активных ячеек. Когда я нажимаю на ячейку, мне нужно, чтобы ячейка столбца «$ I16» и «$ J16» (16 — первая строка моей таблицы) этой строки стала внутренним цветом (= 9359529). Код такой: 
Dim lTarget As Range

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Если Target.Row >= 16 Тогда

Если не lTarget - это ничто, то

lTarget.EntireRow.Interior.ColorIndex = 0
End If

Цель.EntireRow.Interior.Color = 9359529

Установите lTarget = Цель
End If
End Sub

Можете вы помочь мне? Я пытался изменить этот код, но единственное, что я могу сделать, это выбрать внутренний цвет целевой ячейки, а не столбцы «$ I» и «$ J» в этой конкретной строке. Спасибо за вашу помощь.
Луис Лопес
Этот комментарий был сведен к минимуму модератором на сайте
У меня была такая же проблема, прочитал всю страницу и комментарии. Раздумывая, применить это или нет, я просто случайным образом нажимал на числа и буквы, чтобы выбрать весь столбец и строки. Затем внезапно вернулась подсветка выбранной функции ячейки :)
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL