Добрый день! Необходимо чтобы встав например на строку 19 листа1, эта же строка отображалась на листе2 (ширина строк на двух листах разная). Пример приложен. Спасибо!
Добрый день! Необходимо чтобы встав например на строку 19 листа1, эта же строка отображалась на листе2 (ширина строк на двух листах разная). Пример приложен. Спасибо!Elvira66
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 With Sheets("Лист2") .Select .Cells.FormatConditions.Delete With .Range(Target.Address) .Select .FormatConditions.Add Type:=xlExpression, Formula1:="=1" .FormatConditions(1).Interior.Color = 16764159 End With End With Me.Select Application.ScreenUpdating = 0 End Sub
[/vba]
Попробуйте вот так [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 With Sheets("Лист2") .Select .Cells.FormatConditions.Delete With .Range(Target.Address) .Select .FormatConditions.Add Type:=xlExpression, Formula1:="=1" .FormatConditions(1).Interior.Color = 16764159 End With End With Me.Select Application.ScreenUpdating = 0 End Sub
Если Вам нужен переход на второй лист на строку, выделенную в первом, то можно слегка изменить код Karataev,
[vba]
Код
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Application.Goto Worksheets("Лист2").Range(Target.Address), True End If End Sub
[/vba]
Если Вам нужен переход на второй лист на строку, выделенную в первом, то можно слегка изменить код Karataev,
[vba]
Код
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Application.Goto Worksheets("Лист2").Range(Target.Address), True End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 Windows(2).Activate Application.Goto ActiveSheet.Range(Target.Address), True Windows(2).Activate Application.ScreenUpdating = 0 End Sub
[/vba]
Немного непонятно, может, так? [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 Windows(2).Activate Application.Goto ActiveSheet.Range(Target.Address), True Windows(2).Activate Application.ScreenUpdating = 0 End Sub
Мне надо чтобы не было перехода, чтобы можно было видеть лист1 и лист2, одновременно и при этом, чтобы видеть одну и ту же строчку на разных листах. Только на листе 2 эти строчки шире. На листе1 у меня будут цифры, а листе2 комментарии к этим цифрам, в комментариях много текста, и если поместить на один лист, то строки будут широкими, а тогда цифры будут не читабельны, просматривать их будет не удобно, а мне нужно сделать так чтобы все цифры было видно на листе1 и тут же можно было прочитать комментарий на листе2, встав на нужную строчку листа1, вот такой смысл.
Мне надо чтобы не было перехода, чтобы можно было видеть лист1 и лист2, одновременно и при этом, чтобы видеть одну и ту же строчку на разных листах. Только на листе 2 эти строчки шире. На листе1 у меня будут цифры, а листе2 комментарии к этим цифрам, в комментариях много текста, и если поместить на один лист, то строки будут широкими, а тогда цифры будут не читабельны, просматривать их будет не удобно, а мне нужно сделать так чтобы все цифры было видно на листе1 и тут же можно было прочитать комментарий на листе2, встав на нужную строчку листа1, вот такой смысл.Elvira66