Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Помочь дописать несложный макрос, Макрос
 
#1
18.04.2018 11:21:52
Здравствуйте.
Нашёл в статье о вложенных списках (https://www.planetaexcel.ru/techniques/1/38/) макрос вида:
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
     If Target.Address(False, False) = "C2" Then Range("D2").ClearContents
End Sub
Необходимо изменить макрос так, чтобы он распространялся не только на 2 ячейки, а на оба столбца (C и D) и стирал соответствующие ячейки одного столбца относительно другого, т.е. C3-D3,C4-D4 и т.д.
 
 
 
#2
18.04.2018 11:47:02
Доброго денёчка,
Опишите задачу, за пару минут сделаю без использования target и буквенных ссылок на ячейки
Вся проблема сложных программ, целых томов кодов и состоит в несоблюдении принципа лезвия Оккама: «Не следует множить сущее без необходимости». Вся гениальность в простоте.
 
 
 
#3
18.04.2018 15:50:28
Здравствуйте. Ну задача в принципе вся описана. Даже не знаю что добавить...
Прикладываю файл с примером.
В оригинальном файле есть набор вложенных списков. В примере ячейки столбца D должны очищаться, если пользователь меняет данные в ячейках столбца C. Собственно, как сделать очистку по одной паре ячеек я понимаю, но как сделать условие для каждой пары ячеек двух столбцов я не знаю...
 
 
 
#4
18.04.2018 20:19:23
Не совсем ясна задача. Но может так подойдет.
 
 
 
#5
18.04.2018 20:48:41
Похоже, что подходит.
А как мне расширить этот макрос до 4-х пар столбцов (пример во вложении).
 
 
 
#6
18.04.2018 21:08:22
хоть до 25  :)  Только нужные номера столбцов добавляйте
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 1, 2, 3, 4
        Target.Next.ClearContents
    End Select
End Sub
Изменено: RAN - 18.04.2018 21:08:34
 
 
 
#7
18.04.2018 22:17:40
Огромное спасибо, кот RAN! То что нужно ;)  
 
 
 
#8
18.04.2018 22:21:25
Цитата
RAN написал: хоть до 25
до 25 лучше так
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 1 To 25
        Target.Next.ClearContents
    End Select
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
18.04.2018 22:49:27
Цитата
Sanja написал:
до 25 лучше так
Я решил 4-й столбец исключить, поэтому сплошняком не подойдёт.
 
 
 
#10
18.04.2018 23:53:42
Чуйка, однако!  :D
но есть варианты
Код
Case 1 To 3,  10 to 25
Изменено: RAN - 18.04.2018 23:59:43
 
 
 
#11
19.04.2018 01:10:34
Други, кто теперь крайний?
Автору - ознакомиться с правилами форума.
 
 
 
Страницы: 1
Наверх