Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистка содержимого ячейки Листа2 по условию ячейки Листа1 МАКРОС.
 
#1
17.04.2013 13:15:02
Помогите модифицировать макрос, под данное условие.
 
 
 
#2
17.04.2013 14:15:13
в макрос к "листу1" добавтье
Код
Dim x As Integer
   If ActiveCell = "снят" Then
x = ActiveCell.Row
Sheets("Лист2").Cells(x, 5) = ""
End If
Если очень захотеть - можно в космос полететь ;)
 
 
 
#3
17.04.2013 14:25:21
спасибо большое, то что нужно.
 
 
 
#4
28.09.2019 11:04:21
Помогите макросом.
Меняю значение в ячейке А1 - очищается ячейка А2, ввожу значения в ячейку А2 - очищается ячейка А1
 
 
 
#5
28.09.2019 12:23:07
Цитата
Константин Моисеенков: Меняю значение в ячейке А1 - очищается ячейка А2, ввожу значения в ячейку А2 - очищается ячейка А1
через костыль только получилось, чтобы в цикл изменений ячеек не уйти  :D
в модуль листа:
Код
Option Explicit
Dim flag As Boolean
'===================================================================================================================
Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then flag = False: Exit Sub

    If Target.Address = "$A$1" Then
        flag = True: [a2].Value2 = ""
    ElseIf Target.Address = "$A$2" Then
        flag = True: [a1].Value2 = ""
    End If
End Sub
Изменено: Jack Famous - 28.09.2019 19:55:32
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#6
28.09.2019 12:40:55
Зачем костыль? Нам костыль не нужен.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
        If Target.CountLarge > 1 Then Exit Sub
        Application.EnableEvents = False
        Range("A1").Offset(-(Target.Address = "$A$1")) = Empty
        Application.EnableEvents = True
    End If
End Sub
 
 
 
#7
28.09.2019 13:48:52
Тоже не понял, зачем флаги-костыли ))
 
 
 
#8
28.09.2019 13:53:39
Цитата
Юрий М: зачем флаги-костыли
потому что кто-то забыл про то, что можно отключать события  :D
без этого будет зацикливание

P.S.: а вот это крутая строчка Range("A1").Offset(-(Target.Address = "$A$1")) = Empty  :idea:
а почему CountLarge, а не простой Count? Быстрее? Что это вообще?
Изменено: Jack Famous - 28.09.2019 14:14:41
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
28.09.2019 16:06:39
Цитата
Jack Famous написал:
Быстрее?
Больше.
 
 
 
#10
28.09.2019 18:56:56
RAN, извольте объясниться)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх