быстрый способ решить половину вашей проблемы (при переключении с Excel на Word) - Скопировать текст. Когда вы нажмете Ctrl + c, ячейки будут продолжать отмечаться (выделение пропало, но у вас все еще есть пунктирная линия вокруг текста).

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

нет окончательное решение этой проблемы.

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

ставим этот код в Лист1 код и перейти к вам таблицу и выделите ячейки, выберите другие, а затем введите первые капли цвет

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range

    For Each cell In Target.Cells
        If cell.Interior.Color = RGB(60, 150, 230) Then
            cell.Interior.Pattern = xlNone
        Else
            cell.Interior.Color = RGB(60, 150, 230)
        End If
    Next
End Sub

этот VBa будет делать это, но он предполагает, что вы не используете подсветку. Если вы, ваше выделение будет получить перепутались так что не используйте его.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell.Worksheet.Cells.Interior.ColorIndex = xlNone
    ActiveCell.EntireRow.Interior.ColorIndex = 19
End Sub

как добавить VBA в MS Office?

как массовая работа (если подсветка не работает для вас), вы можете использовать что-то вроде JRuler (выслушайте меня:)!! ) поскольку это позволит вам оставить линейку на экране с соответствующей строкой над ней, чтобы когда ваши глаза вернулись к этому экран вы можете видеть, где вы были (так что вы можете видеть, я потерял подсветку, но, по крайней мере, я вижу, что я смотрел на строку 3)!

Не поймите меня неправильно, это кропотливо и больно, если вы делаете это много, но этого может быть достаточно для любой программы (Word и Excel).

после десяти лет этой проблемы сводит меня с ума, а я, наконец, нашел решение, которое работает для меня. К сожалению это не бесплатно... Собственно Оконный Менеджер имеет функцию под названием "игнорировать деактивацию", которая может быть включена для конкретных приложений. Это заставляет окно думать, что у него все еще есть фокус, даже если это не так. У меня это включено для всех приложений office, и теперь я все еще могу видеть выделенный выбор, даже если другое окно имеет фокус. У меня не было ни одной отрицательной стороны последствия тоже. Я также использую несколько мониторов, и эта программа имеет массу других полезных инструментов для работы с несколькими мониторами, а также, что сделал это стоит для меня. Я установил пробную версию, а затем удалил ее, и она предложила мне скидку 30%. Там может быть бесплатная программа, которая делает это, но я не мог найти... Я надеюсь, что это помогает кому - то столько, сколько это помогло мне!

Я долгое время боролся с этой же проблемой. Я тоже теряюсь в плотных файлах Excel при использовании нескольких экранов.

существует огромная коллекция плагинов Excel, доступных в интернете. Я узнал, что расширение Kutools Excel (бесплатная версия) имеет перекрестие с одним щелчком мыши, которое остается видимым, даже если Excel не сфокусирован. Kutools также, кажется, имеет много дополнительных функций, но это, конечно, не единственный вариант доступный.

вот скриншот Kutools выделить перекрестие в действии:

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

вставить текстовое поле, которое растягивает длину ячеек. Введите строку ******* похожие символы для заполнения текстового поля. Текстовое поле можно перемещать вниз по странице, как линейку или лист бумаги на бумажном носителе. Удалить по завершении.

Простое Решение ^{_{, который помещает цвет ячейки при изменении выбора}}

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.Interior.ColorIndex = xlColorIndexNone
    Selection.Interior.Color = RGB(204, 204, 204)
End Sub

Комплексное Решение ^{_{это только изменяет цвет ячейки, когда фокус теряется}}

в стандартном модуле:

Option Explicit    
Public s As Range

в листах, в которых вы хотите работать:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set s = Selection
End Sub

In ThisWorkbook:

Private Sub Workbook_Deactivate()
    If s Is Nothing Then
        Set s = Selection
        Exit Sub
    End If
    s.Interior.ColorIndex = xlColorIndexNone
    s.Interior.Color = RGB(204, 204, 204)

    ' This is optional formatting to make the cells look more like they're actually selected
    s.Borders.Color = RGB(130, 130, 130)
    s.BorderAround _
    Color:=RGB(30, 130, 37), Weight:=xlThick
End Sub

Private Sub Workbook_Activate()
    If s Is Nothing Then
        Set s = Selection
        Exit Sub
    End If
    s.Interior.ColorIndex = xlColorIndexNone
    s.Borders.ColorIndex = xlColorIndexNone
End Sub

очень простой способ сделать это с помощью условного форматирования и VBA.

просто добавьте это в свой код ThisWorkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CutCopyMode = False Then
        Application.Calculate
    End If
End Sub

и выполните следующий код только один раз, чтобы создать правила условного формата:

Sub CreateConditionalFormats()
  Dim y As FormatCondition
    For Each ws In ThisWorkbook.Worksheets
        DoEvents

        'Optionally delete any existing conditional formats
        'ws.Cells.FormatConditions.Delete

        ' Selection highlight
        Set y = ws.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=AND(ROW()=CELL(""row""), COLUMN()=CELL(""col""))")
        With y.Borders(xlTop)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlBottom)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlLeft)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlRight)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        y.StopIfTrue = False
        y.SetFirstPriority

        ' Row highlight
        Set y = ws.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=ROW()=CELL(""row"")")
        With y.Borders(xlTop)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlBottom)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        y.StopIfTrue = False

        ' Column highlight
        Set y = ws.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=COLUMN()=CELL(""col"")")
        With y.Borders(xlLeft)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlRight)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        y.StopIfTrue = False
    Next
End Sub