Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистить содержимое ячейки при выполнении условия (VBA)
 
#1
17.06.2015 13:31:11
Здравствуйте. Нужно, чтобы при выборе определённого значения в ячейке А1, содержимое ячеек B1 и C1 удалялось. Подскажите, пожалуйста, с помощью какого макроса можно ето реализовать. Пробовал так:
Код
?
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Range("A1") = "ERASE" Then
  Range("B1,C1").ClearContents
  Application.EnableEvents = True
  End If
End Sub
Срабатывает один раз. При вводе нужного значения в ячейку A1, контент очищается. После смены значения на другое и повторном выборе нужного ничего не происходит. Подскажите, пожалуйста, где ошибка...
 
 
 
#2
17.06.2015 13:34:31
То есть вы хотите, чтобы когда в A1 не "ERASE", то вернулись старые значения? Тогда вам надо запоминать эти значения где-нибудь и возвращать когда не "ERASE". Ж)
Изменено: Johny - 17.06.2015 13:35:55
There is no knowledge that is not power
 
 
 
#3
17.06.2015 13:50:28
Цитата
Oligarch написал:
После смены значения на другое и повторном выборе нужного ничего не происходит
А что должно произойти?
 
 
 
#4
17.06.2015 14:31:18
Так?
Код
?
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Range("A1") = "ERASE" Then
  Range("B1,C1").ClearContents
  Application.EnableEvents = True
  End If
  Next
End Sub
Изменено: Екселист - 17.06.2015 14:32:19
 
 
 
#5
17.06.2015 15:32:32
Екселист, Вы свой код пробовали в деле? Чем он отличается от кода, показанного в стартовом сообщении? Разве, что только тем, что там есть строка Next? Зачем она?
 
 
 
#6
17.06.2015 15:44:37
Цитата
Юрий М написал: Зачем она?
Насколько я понял, юзеру нужно, чтобы при смене значения в ячейке A1 с нужного на другое, а потом обратно, содержимое ячеек B1 и C1 удалялось. А оно удаляется, только при ПЕРВИЧНОМ вводе нужного значения. Если так, то у меня мой вариант кода работает.
Изменено: Екселист - 19.06.2015 16:09:55
 
 
 
#7
17.06.2015 15:48:59
Цитата
Екселист написал: мой вариант кода работает.
Это вряд-ли. Невооруженным глазом видно что Next без For, аесли его убрать, то он идентичен коду ТС  :)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
17.06.2015 15:50:35
Ну значит я ошибся, так как не силён в макросах.
 
 
 
#9
17.06.2015 15:51:02
Цитата
Екселист написал: мой вариант кода работает.
Чем он отличается от авторского?
 
 
 
#10
17.06.2015 15:52:52
Юрий М,
Процедурой Next . Но повторяю я ошибся.
 
 
 
#11
17.06.2015 15:54:24
Цитата
Oligarch написал: После смены значения на другое и повторном выборе нужного ничего не происходит
Потому что Application.EnableEvents = True надо вынести из условия. Ведь Application.EnableEvents = False у Вас срабатывает при любом изменении ячейки, а возвращается-то только если условие выполняется...Т.е. корректнее так:
Код
?
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("A1") = "ERASE" Then
        Range("B1,C1").ClearContents
    End If
    Application.EnableEvents = True
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#12
17.06.2015 15:56:22
Цитата
Екселист написал: повторяю я ошибся.
Ещё раз: зачем повторять уже имеющийся код?
 
 
 
#13
17.06.2015 16:03:45
Юрий М,
Та я пытался допилить его. The_Prist,  тоже повторил
Цитата
Юрий М написал: уже имеющийся код
но по-другому чем я, и без ошибок.
 
 
 
#14
17.06.2015 18:14:44
Цитата
Екселист написал:
Та я пытался допилить его
И как же Вы его допилили? Вы просто его скопировали!
 
 
 
#15
17.06.2015 18:37:31
Юрий М,
Ну я Next  вставил - думал это решит проблему. Говорю же - ошибся.
 
 
 
#16
17.06.2015 20:47:16
Да хватит уже выяснять. Автор появится и все расскажет.
Скрытый текст
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#17
17.06.2015 21:17:00
Цитата
Екселист написал:
Насколько я понял, юзеру нужно, чтобы при смене значения в ячейке A1 с нужного на другое, а потом обратно, содержимое ячеек B1 и C1 удалялось. А оно удаляется, только при ПЕРВИЧНОМ вводе нужного значения. Если так, то у меня мой вариант кода работает.
Да. Вы правы. Но вариант кода с Next не работает.  
 
 
 
#18
17.06.2015 21:22:23
Oligarch,
А отсюда?
 
 
 
#19
17.06.2015 21:24:51
Цитата
The_Prist написал: Потому что Application.EnableEvents = True надо вынести из условия.
Большое спасибо! То что нужно...
Еще один вопрос. Можно ли сделать так, чтобы значение ячейки D1 до выполнения команды  ClearContents додавалось к значению E1?
 
 
 
#20
17.06.2015 21:31:07
Додавалось...Прикольно, надо запомнить :)
Код
?
1
Range("E1").value = Range("E1").value & Range("D1").value

это если под "додавалось" подразумевается сцепление данных, а не их суммирование. Если суммирование:
Код
?
1
Range("E1").value = Range("E1").value + Range("D1").value
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#21
17.06.2015 22:26:18
The_Prist, Имелось ввиду - суммировать)))). Ещё раз спасибо и последний вопрос. В ячейке D1 находится формула, которая состоит из нескольких переменных. Нужно сделать так, чтобы excel предложил ( например, в сплывающем окошке) внести (подкорректировать) значение одной из переменных, а уже потом выполнялась команда суммирования.  
 
 
 
#22
17.06.2015 22:35:15
Цитата
Oligarch написал: и последний вопрос
Уважайте правила форума. Конкретно - п.2.6. Перечитайте, вникните.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Читают тему
Loading...