Выделение строк

[AlexM12]

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

При выделении ЛК ячейки первого листа (ниже 19 строки), например, AC22 выделяются ячейки A13 и A17 первого столбца

Смотрю ваш файл. Выделяются А6 и А10. На втором листе (задан столбец 1), также выделяются А6 и А10.

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

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

Не надо что-то абстрактное, так как при выборе AC22 не выделяются ячейки A13 и A17 и на листе нет таких значений "A13" и "A17"
Пока учимся понимать друг друга.

[AlexM12]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sm, i As Long, sm1 As Long, sm2 As Long
    Dim SheetIndex As Long, ColumnIndex As Long
    Set IRange = Range("A1:AN18") 'задаем верхний диапазон
    Set JRange = Range("B20:AN37") 'задаем нижний диапазон
    SheetIndex = 2: ColumnIndex = 1 'тут задаем индекс листа и столбец для единиц
    IRange.Interior.ColorIndex = 0
    Sheets(SheetIndex).Cells.Clear ' если закомментировать эту строку, то на 2 и далее листах метки не стираются
    If Not Intersect(JRange, Target) Is Nothing Then
        On Error Resume Next
        sm = Split(Replace(Target.Formula, "*", ":"), ":")
        sm0 = Range(sm(1)).Column - Target.Column
        sm1 = Range(sm(2)).Column - Target.Column
        sm2 = Range(sm(4)).Column - Target.Column
        If Err Then Exit Sub
        For i = 1 To IRange.Rows.Count
            If Cells(i, Target.Column + sm0) = 1 And Cells(i, Target.Column + sm1) = 1 _
                And Cells(i, Target.Column + sm2) = 1 Then
                Cells(i, Target.Column + sm0).Interior.ColorIndex = 4
                Cells(i, Target.Column + sm1).Interior.ColorIndex = 4
                Cells(i, Target.Column + sm2).Interior.ColorIndex = 4
                Cells(i, 1).Interior.ColorIndex = 4
                
                Sheets(SheetIndex).Cells(i, ColumnIndex) = 1
                Sheets(SheetIndex).Cells(i, ColumnIndex).Interior.ColorIndex = 4
            End If
        Next i
    End If
End Sub

Не сильно затягивайте с ответами. За 5 дней вашего молчания решался не один десяток задач. Может настать момент, когда возвращаться к давней задаче не захочется.

[IgorGO]

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

[Aristarkch]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sm, i As Long, sm1 As Long, sm2 As Long
    Dim SheetIndex As Long, ColumnIndex As Long
    Set IRange = Range("A1:AN18") 'задаем верхний диапазон
    Set JRange = Range("B20:AN37") 'задаем нижний диапазон
    SheetIndex = 2: ColumnIndex = 1 'тут задаем индекс листа и столбец для единиц
    IRange.Interior.ColorIndex = 0
    Sheets(SheetIndex).Cells.Clear ' если закомментировать эту строку, то на 2 и далее листах метки не стираются
    If Not Intersect(JRange, Target) Is Nothing Then
        On Error Resume Next
        sm = Split(Replace(Target.Formula, "*", ":"), ":")
        sm0 = Range(sm(1)).Column - Target.Column
        sm1 = Range(sm(2)).Column - Target.Column
        sm2 = Range(sm(4)).Column - Target.Column
        If Err Then Exit Sub
        For i = 1 To IRange.Rows.Count
            If Cells(i, Target.Column + sm0) = 1 And Cells(i, Target.Column + sm1) = 1 _
                And Cells(i, Target.Column + sm2) = 1 Then
                Cells(i, Target.Column + sm0).Interior.ColorIndex = 4
                Cells(i, Target.Column + sm1).Interior.ColorIndex = 4
                Cells(i, Target.Column + sm2).Interior.ColorIndex = 4
                Cells(i, 1).Interior.ColorIndex = 4
                
                Sheets(SheetIndex).Cells(i, ColumnIndex) = 1
                Sheets(SheetIndex).Cells(i, ColumnIndex).Interior.ColorIndex = 4
            End If
        Next i
    End If
End Sub

Не сильно затягивайте с ответами. За 5 дней вашего молчания решался не один десяток задач. Может настать момент, когда возвращаться к давней задаче не захочется.

Алексей, извините! Исправил текст.
При выделении ЛК ячейки первого листа (ниже 19 строки), например, AC22 выделяются ячейки первого столбца A6 и A10, в которых, соответственно, записаны числа 13 и 17. При этом во второй лист записываются с заливкой единицы в 13 и в 17 строки столбца (номер столбца задается в макросе).

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

Это всё в файле есть.

Проблема же в том, что в представленном файле при записи в заданный столбец второго листа стирается содержимое всех остальных столбцов второго листа.
Необходимо сделать так, чтобы при записи в заданный столбец второго листа не затрагивалось содержимое ячеек остальных столбцов этого листа.

В крайнем случае допустимо, чтобы во втором листе, как и в первом, просто выделялись бы заливкой (без записи единиц) ячейки также первого столбца A: A13 и A17 в нашем примере. Содержимое ячеек остальных столбцов не затрагивается.

Вторая задача - возможность изменения (задания) размеров верхнего и нижнего полей файла. Сейчас в макросе выставлены размер верхнего поля "A1:AN18" и размер нижнего поля "B20:AN37".
Для конкретики: размер верхнего поля может быть "A1:CM36", а размер нижнего "B39:CM127".

[AlexM12]

Проверяйте

[Aristarkch]

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

Проверяйте

Здорово!
Обнаружил такую деталь.
Форматирую ячейки второго листа, как мне надо: по вертикали. по горизонтали, автоподбор ширины, шрифт.
Когда же во второй лист происходит очередная запись, форматирование ячеек скатывается на изначально установленное, что было до форматирования.

[AlexM12]

В файле Последний вариант_02.xls строка кода 'Sheets(SheetIndex).Cells.Clear закомментирована. В этом случае очистку форматов не наблюдаю. Если не комментировать эту строку, то форматы очищаются.

[Aristarkch]

Если строка закомментирована, то,действительно, формат не меняется, но зато метки (заливки) при каждом выделении не убираются, а накапливаются, что неприемлемо. При незакомментированной строке наоборот.
Как бы сделать так, чтобы при каждом последующем выделении и метки предыдущие стирались и формат не менялся?

[AlexM12]

Посмотрите. Формат на Лист 2 установил.

[IgorGO]

у нас, на курсах трактористов, был аналогичный случай