Долго держал в закромах эту надстройку - она долгое время была частью моей старой надстройки MyAddin (которая впоследствии переросла в MulTEx) - Координатное выделение строки и столбца

Надстройка пригодится тем, кто часто работает с большими таблицами, просматривая их и сопоставляя данные в строках и столбцах. Что дает эта надстройка? Она выделяет столбец и строку таблицы на пересечении выделенной ячейки, благодаря чему можно просмотреть все данные в столбце и строке активной ячейки, не перепроверяя себя лишний раз – "А в том ли столбце я смотрю данные?".
Пример применения

Надстройка рассчитана на пользователей Excel версий 2007 и выше. После подключения или открытия надстройки на панели появится новая вкладка: Excel-vba.ru с единственной кнопкой, по нажатии на которую появится форма:
Координатное выделение

Метод - выбор метода подсветки строки и столбца, их два:

  • выделение - строка и столбец выделяются так же, как если бы вы выделяли ячейки мышкой. У этого метода есть один недостаток. Если на листе в этом режиме будут сделаны изменения(удаление значения ячейки), то отменить их будет невозможно
  • условное форматирование - строка и столбец выделяются при помощи условного форматирования. Можно выбрать один из шести цветов для подсветки выделения строки и столбца. У такого подхода тоже есть недостаток. Все условное форматирование, примененное к текущему листу ранее, будет удалено

Весь лист - выделяются строка и столбец всего листа.

Вся таблица данных - выделяются строка и столбец только в пределах используемого диапазона данных.

Выбранный диапазон - выделяются строка и столбец только в пределах указанного вами диапазона. Особенность: не допускается выделение несвязанных диапазонов.

Область применения - выбирается область листа, к которой применяется координатное выделение:

  • только строка - выделяется только строка активной ячейки
  • только столбец - выделяется только столбец активной ячейки
  • строка и столбец - выделяется строка и столбец на пересечении активной ячейки

Отменить Координатное выделение - отменяет примененное координатное выделение.

Внимание! Координатное выделение действует во всех открытых книгах во всех листах до тех пор, пока вы не отключите его через пункт «Отменить координатное выделение».

Важно! При примененном координатном выделении невозможно скопировать выделенный диапазон, однако можно удалить значение активной ячейки (будет удалено только значение одной ячейки, расположенной на пересечении строки и столбца).

Скачать надстройку:

  ExcelVBA_KoordSel.zip (49,5 КиБ, 6 049 скачиваний)

В архиве расположен файл надстройки. Прежде чем установить надстройку, необходимо её распаковать из архива на жесткий диск, после чего установить. Как установить надстройку: Установка надстроек

Надстройка распространяется бесплатно и с открытыми исходными кодами - смотрите, изучайте, меняйте под себя.
Самый важный момент для тех, кого не устроит цвет выделения по умолчанию: чтобы изменить цвет выделения ячеек через условное форматирование, необходимо перейти в модуль mKoordSelection, найти вверху строку
Public Const lKS_FC_Color As Long = 10921638
и заменить число 10921638 на числовой код нужного цвета заливки. Подобрать нужный цвет можно следующим образом:

  • назначаем заливке любой ячейки нужный цвет
  • выделяем эту ячейку и выполняем код: 
    Sub GetActiveCellColor()
    MsgBox ActiveCell.Interior.Color, vbInformation, sAPP_NAME
End Sub

этот код так же есть внутри надстройки, поэтому его можно вызвать просто через Alt+F8
Изменить цвет выделения методом Обычного выделения нельзя. Это ограничение самого Excel. Можно изменить только изменением цветовых схем Windows.

17 комментариев

  2. Добрый день. Установил надстройку недавно, очень понравилась она. Сегодня выявил ошибку, если хочешь скопировать данные с 1 ячейки пишет ошибку "Данная команда неприменима для нескольких фрагментов". Когда отключаешь надстройку, копирование работает. Офис 2019.

  4. Все работает, но правильнее было бы указать что при установке данной надстройки не работает комбинация клавиш Ctr+C (копировать ячейку), а это на мой взгляд ВАЖНО

    1. Максим, правильнее было бы перед установкой надстройки прочитать хотя бы описание к ней прямо на этой странице. А там написано, что КОПИРОВАНИЕ не будет работать. И даже помечено как важное:

      Важно! При примененном координатном выделении невозможно скопировать выделенный диапазон, однако можно удалить значение активной ячейки (будет удалено только значение одной ячейки, расположенной на пересечении строки и столбца).

      А Ctrl+C - это именно копирование :)

  5. Хорошая надстройка, именно то что было нужно, но почему-то она перестает работать когда повторно открываю сохраненный файл. Точнее работает, но странно, а именно, если перемещаться между ячейками, то выделение не перемещается, а если в ячейку ввести данные или удалить, то выделение перемещается. Подскажите в чем может быть дело?

    1. Нет точного ответа. Проверил у себя - ситуация не воспроизводится, значит дело либо в конкретной версии офиса, либо в ПК. Еще как вариант - срабатывают какие-то другие макросы на открытие книги.

  6. Добрый день. Замечательная надстройка, только никак не получается поменять цвет. Ввожу нужный мне код, но ничего не происходит. Подскажите, пожалуйста, как с этим справится.

    1. Елена, по идее в статье написано, что именно необходимо поменять. Но стоит помнить, что смена цвета доступна только при использовании выделения методом условного форматирования. Для обычного выделения смена цвета невозможна.

  7. Здравствуйте! Подскажите, пожалуйста, где искать "mKoordSelection" и что это такое, и как подробно изменить цвет при выделении строки и столбца, используя Вашу надстройку? Спасибо)

        1. Валентина, записываете в стандартный модуль код, который приведен в статье(GetActiveCellColor), выделяете ячейку с нужным цветом на листе и выполняете макрос GetActiveCellColor. Чтобы понять как выполнить макрос Вам надо еще и это посмотреть: Что такое макрос и где его искать?

Добавить комментарий

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.