Координатное выделение

[kzld]

Где нашёл, не помню - да простит меня автор

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

[Hugo121]

Всё в модуль книги, кнопки исправить на другие макросы:

Public NoEvents As Boolean
Public Sub SelOn()
    NoEvents = False
End Sub
Public Sub SelOff()
    NoEvents = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim addr As String
    Dim x As Variant
    Dim rng, c, r, cll As String
    
    If NoEvents Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
        addr = ActiveCell.Address()
    x = Split(addr, "$")
    
    c = x(1)
    r = x(2)
    rng = c & ":" & c & "," & r & ":" & r
    Range(rng).Select
    cll = c & r
    Range(cll).Activate
End Sub

[kzld]

Сообщение от Hugo121

Всё в модуль книги, кнопки исправить на другие макросы:

Спасибо. Всё работает

[Uralmaster]

А как можно ограничить диапазон ( например A3:O45) и изменить цвет координатного выделения ?

[Uralmaster]

вот пример макроса коорд выделения в диапазоне и цвет можно делать

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'координатное выделение
    On Error Resume Next 'по ошибке перейти к выполнению следующей строки
    Application.ScreenUpdating = False 'чтоб не моргало
    Dim x As Range: Set x = [B11:J5000]: x.Interior.ColorIndex = xlNone
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, x) Is Nothing Then
    Intersect(x, Target.EntireRow).Interior.ColorIndex = 35
    Intersect(x, Target.EntireColumn).Interior.ColorIndex = 35
    Target.Interior.ColorIndex = xlNone
End If
End Sub

диапазон B11:J5000 цвет зеленый

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

поэтому хотелось бы узнать как в макросе от уважаемого Hugo121 выделить диапазон B11:J5000 цвет сделать зеленый
и как оставить только горизонтальное выделение ?

[Hugo121]

Как оставить только горизонтальное -
заменить

    rng = c & ":" & c & "," & r & ":" & r

на

    rng = r & ":" & r

Ну соотвественно там появляются лишние переменные "c" и "x", которые впрочем не мешают.
Про цвет не понял.

[sanych_09]

Сообщение от Hugo121

Как оставить только горизонтальное -
заменить

    rng = c & ":" & c & "," & r & ":" & r

на

    rng = r & ":" & r

Ну соотвественно там появляются лишние переменные "c" и "x", которые впрочем не мешают.
Про цвет не понял.

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

заранее спасибо!

[Hugo121]

Добрый вечер
Так в примере http://programmersforum.ru/attachmen...4&d=1288700914 так и сделано - при изменении выделения на листе срабатывает координатное выделение, если оно не отключено кнопкой.

[Uralmaster]

цвет - это цвет фона линй горизонтального и вертикального выделения
щас скрин приложу

[Uralmaster]

и еще как можно диапазон координатного выделения ограничить например областью B8:G5000
так выглядит