Очистка адресной ячейки макросом по выбору из списка
Dastin
Дата: Понедельник, 28.05.2018, 13:10 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день! Есть список из 4 строк - тип бетона. при выборе строки - легкий, в ячейке ниже вводится значение плотности. для остальных строк нужно, чтобы значение в ячейке ниже удалялось. При этом, в дальнейшем на листе могут быть еще списки и ячейки связанные с этими списками и которые тоже надо очистить по тому же принципу. Спасибо)
Добрый день! Есть список из 4 строк - тип бетона. при выборе строки - легкий, в ячейке ниже вводится значение плотности. для остальных строк нужно, чтобы значение в ячейке ниже удалялось. При этом, в дальнейшем на листе могут быть еще списки и ячейки связанные с этими списками и которые тоже надо очистить по тому же принципу. Спасибо) Dastin
Ответить
Сообщение Добрый день! Есть список из 4 строк - тип бетона. при выборе строки - легкий, в ячейке ниже вводится значение плотности. для остальных строк нужно, чтобы значение в ячейке ниже удалялось. При этом, в дальнейшем на листе могут быть еще списки и ячейки связанные с этими списками и которые тоже надо очистить по тому же принципу. Спасибо) Автор - Dastin Дата добавления - 28.05.2018 в 13:10
_Boroda_
Дата: Понедельник, 28.05.2018, 13:33 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16913
Репутация:
6617
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
В модуль листа такой код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0 , 0 ) = "F6" Then
If Target.Value <> "легкий" Then
Range("J8:K8" ).ClearContents
End If
End If
End Sub
*Добавлено Или, если для нелегких бетонов средняя плотность нигде дальше участвовать не будет, то можно просто скрыть значение условным форматированием. *Добавлено Кстати, и текст в А8 и L8 тоже См. файл _2
В модуль листа такой код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0 , 0 ) = "F6" Then
If Target.Value <> "легкий" Then
Range("J8:K8" ).ClearContents
End If
End If
End Sub
*Добавлено Или, если для нелегких бетонов средняя плотность нигде дальше участвовать не будет, то можно просто скрыть значение условным форматированием. *Добавлено Кстати, и текст в А8 и L8 тоже См. файл _2 _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение В модуль листа такой код [vba]
Private Sub Worksheet_Change(ByVal Target As Range ) If Тarget.Address(0; 0) = "F6" Then If Target.Value <> "легкий" Then Range("J8:K8").ClearContents End If End IfEnd Sub
[/vba] *Добавлено Или, если для нелегких бетонов средняя плотность нигде дальше участвовать не будет, то можно просто скрыть значение условным форматированием. *Добавлено Кстати, и текст в А8 и L8 тоже См. файл _2 Автор - _Boroda_ Дата добавления - 28.05.2018 в 13:33
китин
Дата: Понедельник, 28.05.2018, 13:40 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
Доброго!! может так?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F6" )) Is Nothing Then
If Range("F6" ).Value <> "легкий" Then
Range("J8:K8" ).ClearContents
End If
End If
End Sub
P.S. не добавил проверку на легкость.Исправил
Доброго!! может так?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F6" )) Is Nothing Then
If Range("F6" ).Value <> "легкий" Then
Range("J8:K8" ).ClearContents
End If
End If
End Sub
P.S. не добавил проверку на легкость.Исправил китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 28.05.2018, 13:47
Ответить
Сообщение Доброго!! может так? [vba]
Private Sub Worksheet_Change(ByVal Target As Range ) If Target.Count > 1 Then Exit Sub If Not Intersect(Target , Range("F6")) Is Nothing Then If Range("F6").Value <> "легкий" Then Range("J8:K8").ClearContents End If End IfEnd Sub
[/vba] [p.s.]не добавил проверку на легкость.Исправил[/p.s.] Автор - китин Дата добавления - 28.05.2018 в 13:40
Dastin
Дата: Понедельник, 28.05.2018, 14:15 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
_Boroda_, Спасибо. Подходит. А если появятся еще ячейки с привязкой к другим спискам, то наверное просто добавить такие же строки с соответствующими адресами ячеек?
_Boroda_, Спасибо. Подходит. А если появятся еще ячейки с привязкой к другим спискам, то наверное просто добавить такие же строки с соответствующими адресами ячеек? Dastin
Ответить
Сообщение _Boroda_, Спасибо. Подходит. А если появятся еще ячейки с привязкой к другим спискам, то наверное просто добавить такие же строки с соответствующими адресами ячеек? Автор - Dastin Дата добавления - 28.05.2018 в 14:15
Dastin
Дата: Понедельник, 28.05.2018, 14:17 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
китин, Спасибо. Тоже хорошо. Для чего нужна проверка на легкость ?
китин, Спасибо. Тоже хорошо. Для чего нужна проверка на легкость ? Dastin
Ответить
Сообщение китин, Спасибо. Тоже хорошо. Для чего нужна проверка на легкость ? Автор - Dastin Дата добавления - 28.05.2018 в 14:17
_Boroda_
Дата: Понедельник, 28.05.2018, 14:17 |
Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16913
Репутация:
6617
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Да, совершенно верно. Ниже строки
Range("J8:K8" ).ClearContents
Добавить такие же, только с другими адресами. А с Условным форматированием не понравилось?
Да, совершенно верно. Ниже строки
Range("J8:K8" ).ClearContents
Добавить такие же, только с другими адресами. А с Условным форматированием не понравилось? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Да, совершенно верно. Ниже строки [vba]
Range("J8:K8").ClearContents
[/vba] Добавить такие же, только с другими адресами. А с Условным форматированием не понравилось? Автор - _Boroda_ Дата добавления - 28.05.2018 в 14:17
Dastin
Дата: Понедельник, 28.05.2018, 14:30 |
Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
_Boroda_, Понравилось. Пробовал сам с условным, не догадался именно так.
_Boroda_, Понравилось. Пробовал сам с условным, не догадался именно так. Dastin
Ответить
Сообщение _Boroda_, Понравилось. Пробовал сам с условным, не догадался именно так. Автор - Dastin Дата добавления - 28.05.2018 в 14:30
китин
Дата: Понедельник, 28.05.2018, 14:35 |
Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
Для чего нужна проверка на легкость ?
If Range("F6" ).Value <> "легкий"
Для чего нужна проверка на легкость ?
If Range("F6" ).Value <> "легкий"
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 28.05.2018, 14:36
Ответить
Сообщение Для чего нужна проверка на легкость ?
[vba]
If Range("F6").Value <> "легкий"
[/vba]Автор - китин Дата добавления - 28.05.2018 в 14:35