Курсор и выделение невидимы при потере фокуса

Когда окно Excel теряет фокус, курсор становится невидимым. Также цвет соответствующих заголовков столбцов / строк возвращается к значению по умолчанию, поэтому невозможно найти курсор и / или выделение, как только я переключаюсь в другое окно.

Это чертовски раздражает меня, так как делает Excel практически непригодным для большинства задач, в которых я нуждаюсь:

• отслеживание тестовых случаев при выполнении тестирования в другом окне

• получение данных в другом месте и перенос их в Excel

(Я никогда не видел такого поведения в других приложениях и даже не могу придумать оправдания для этого.)

Возможно ли отключить это поведение, т.е. сохранить видимость выделения, когда не в фокусе?

Редактировать: Вопреки тому, что я думал, когда первоначально опубликовал это, это не «новая функция», это скорее прагма пользовательского интерфейса, которую MS придерживается в большинстве своих приложений (по крайней мере, с некоторого момента времени), хотя приложения не MS или некоторые устаревшие приложения MS не всегда уважают это.

В этом посте описан один обходной путь , который не требует использования VBA / макросов:

Копирование содержимого в буфер обмена поместит пунктирную рамку вокруг выделенных ячеек, которая останется, когда окна Excel потеряют фокус.

Выделите соответствующую строку, щелкнув номер строки слева от строки, затем нажмите Ctrl- C/ Cmd- C.

Это нормальное поведение для Windows. Это не относится к Excel. То же самое происходит, если вы выбираете текст в Word, а затем меняете окна. Его нельзя отключить.

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

Добавьте эти фрагменты кода в VBA Explorer ( Alt+ F11), ThisWorkbookи вы можете вызывать их из макросов ( Alt+ F8) или добавлять для них кнопки.

Sub RowHighlight()
  Rows(ActiveCell.Row).Select
  With Selection.Interior
    .Pattern = xlSolid
    .ColorIndex = 6  'Change this number to the color of choice.
  End With
End Sub

Sub RemHighlight()
  Rows(ActiveCell.Row).Select
  With Selection.Interior
    .Pattern = xlNone
  End With
End Sub

Ниже приведен индекс цветов, которые вы можете изменить в коде. В настоящее время установлен желтый.