запустить код события, который выделяет значения, но подсветка имитируется в другом диапазоне - PullRequest
Новая
       32

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

0 голосов
/ 03 июля 2018

Я прилагаю ссылку

https://www.dropbox.com/s/b5m53erinmcj6ys/EXAMPLE.xlsm?dl=0

для просмотра файла, который у меня есть. В настоящее время при выборе комбинации в столбце A она будет выделять в диапазоне справа, от H5 до L27 номер, составляющий комбинацию.

Поэтому мой вопрос заключается в том, как я могу отразить или имитировать в диапазоне справа от первого диапазона от H5 до L27, что означает, что ячейки, выделенные в первом диапазоне, выделяются в тех же ячейках во втором диапазоне от Q5 до U27 , сейчас это не имеет значения для данных во втором диапазоне, так как второй диапазон просто подражает первому диапазону ячеек, выделенных желтым цветом.

(первый, чтобы показать, что он должен делать)

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

[Private Sub Worksheet_SelectionChange(ByVal Target As Range)    With Target
    If .Cells.Count = 1 Then
        If Not Application.Intersect(Target, Range("H:L")) Is Nothing Then
            Application.EnableEvents = False
            Application.Union(.Cells(1, 1), .Offset(0, 9)).Select
            Application.EnableEvents = True
        End If
        If Not Application.Intersect(Target, Range("Q:V")) Is Nothing Then
            Application.EnableEvents = False
            Application.Union(.Cells(1, 1), .Offset(0, -9)).Select
            Application.EnableEvents = True
        End If
        If Not Application.Intersect(Target, Range("Z:AD")) Is Nothing Then
            Application.EnableEvents = False
            Application.Union(.Cells(1, 1), .Offset(0, -9)).Select
            Application.EnableEvents = True




   End If
End If
End With

End Sub]

Любая помощь в этом очень ценится! С уважением Денис

...