Очистка адресной ячейки макросом по выбору из списка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Очистка адресной ячейки макросом по выбору из списка (Формулы/Formulas)

Dastin

Дата: Понедельник, 28.05.2018, 13:10 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Есть список из 4 строк - тип бетона. при выборе строки - легкий, в ячейке ниже вводится значение плотности.
для остальных строк нужно, чтобы значение в ячейке ниже удалялось.
При этом, в дальнейшем на листе могут быть еще списки и ячейки связанные с этими списками и которые тоже надо очистить по тому же принципу.
Спасибо)

К сообщению приложен файл: 7888402.xls (27.5 Kb)

Ответить

_Boroda_

Дата: Понедельник, 28.05.2018, 13:33 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

В модуль листа такой код
[vba]

Код

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

[/vba]

*Добавлено
Или, если для нелегких бетонов средняя плотность нигде дальше участвовать не будет, то можно просто скрыть значение условным форматированием.

*Добавлено
Кстати, и текст в А8 и L8 тоже
См. файл _2

К сообщению приложен файл: 7888402_1.xls (34.0 Kb) · 7888402_2.xls (28.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

китин

Дата: Понедельник, 28.05.2018, 13:40 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Доброго!! может так?
[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 If
End Sub

[/vba]
[p.s.]не добавил проверку на легкость.Исправил[/p.s.]

К сообщению приложен файл: Dastin.xlsm (16.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Понедельник, 28.05.2018, 13:47

Ответить

Dastin

Дата: Понедельник, 28.05.2018, 14:15 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, Спасибо. Подходит.
А если появятся еще ячейки с привязкой к другим спискам, то наверное просто добавить такие же строки с соответствующими адресами ячеек?