Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
При изменение данных в одной ячейки, происходит сброс данных в других ячейках
 
#1
04.03.2021 20:27:31
Доброе время суток! Прошу Вашей помощи в решение данной проблемы, а именно написание макроса.

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

Прошу пожалуйста Вашей помощи в написание этого макроса, можно не полностью, хотя бы одно, чтобы я по аналогу написал для остальных ячеек.
Спасибо за понимание !
Учусь, хочу получить образование, и пойти служить, и жить как все, нормально!
 
 
 
#2
04.03.2021 20:37:35
Николай Ершов, в модуль листа - возможно кося в диапазоне очистки ну подправите
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11")) Is Nothing Then
    Union(Range( _
        "BG22:BI25,BN22:BP25,BU22:BW25,CB22:CD25,CI22:CK25,J12:L15,Q12:S15,X12:Z15,AE12:AG15,AL12:AN15,AS12:AU15,AZ12:BB15,BG12:BI15,BN12:BP15,BU12:BW15,CB12:CD15,CI12:CK15,CI17:CK20,CB17:CD20,BU17:BW20,BN17:BP20,BG17:BI20,AZ17:BB20,AS17:AU20,AL17:AN20,AE17:AG20" _
        ), Range("X22:Z25,AE22:AG25,AL22:AN25,AS22:AU25,AZ22:BB25,J17:L20,J22:L25,Q17:S20,Q22:S25,X17:Z21")).ClearContents
End If
End Sub
Изменено: Mershik - 04.03.2021 20:37:57
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
04.03.2021 20:50:20
Mershik, Спасибо огромное ! Вот уровень, не успел я написать, мой вопрос решили за 10 минут

Спасибо ещё раз , всех земных благ Вам!
Учусь, хочу получить образование, и пойти служить, и жить как все, нормально!
 
 
 
#4
04.03.2021 20:54:33
Николай Ершов, не за что возможно так удобнее
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11")) Is Nothing Then
Dim cell As Range, i As Long
For i = 10 To 92 Step 7
    For n = 12 To 26 Step 5
        If cell Is Nothing Then
            Set cell = Range(Cells(n, i), Cells(n + 3, i + 2))
        Else
            Set cell = Union(cell, Range(Cells(n, i), Cells(n + 3, i + 2)))
        End If
    Next n
Next i
If Not cell Is Nothing Then cell.ClearContents
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
13.03.2021 16:09:34
Спасибо большое за помощь и ещё с различными вариантами, извините, раннее не увидел ваше второго сообщения  
Учусь, хочу получить образование, и пойти служить, и жить как все, нормально!
 
 
 
Страницы: 1
Наверх