Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление содержимого ячеек при изменении исходной ячейки. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление содержимого ячеек при изменении исходной ячейки. (Макросы/Sub)
Удаление содержимого ячеек при изменении исходной ячейки.
Baaldoom Дата: Среда, 12.08.2015, 17:43 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!

Таблица - список пациентов на операцию с указанием параметров её. Значения в колонках J, K зависят от первоначального выбора в колонке I. Проблема состоит в

том, что при изменении значения в колонке I когда уже введены данные во все 3 колонки (выпадающие списки), не изменяются самостоятельно. Решение проблемы мы

видим в удалении данных в колонках J, K при любом изменении в первой колонке - I.

Попробовали следующий макрос:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("I7:I36")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then Target.Worksheet.UsedRange.KeyCells.EntireRow
[j:l].ClearContents

End Sub
[/vba]

Однако малый опыт в VBA и возможно не совсем точное понимание методов не дает двигаться дальше. Буду благодарен за возможные пути решения или указание хотя

бы направления :)
[moder]Используйте теги оформления. Для макросов - кнопка #
Поправил за Вас
К сообщению приложен файл: 8337181.xls (70.0 Kb)


Сообщение отредактировал _Boroda_ - Среда, 12.08.2015, 17:54
 
Ответить
СообщениеДобрый день!

Таблица - список пациентов на операцию с указанием параметров её. Значения в колонках J, K зависят от первоначального выбора в колонке I. Проблема состоит в

том, что при изменении значения в колонке I когда уже введены данные во все 3 колонки (выпадающие списки), не изменяются самостоятельно. Решение проблемы мы

видим в удалении данных в колонках J, K при любом изменении в первой колонке - I.

Попробовали следующий макрос:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("I7:I36")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then Target.Worksheet.UsedRange.KeyCells.EntireRow
[j:l].ClearContents

End Sub
[/vba]

Однако малый опыт в VBA и возможно не совсем точное понимание методов не дает двигаться дальше. Буду благодарен за возможные пути решения или указание хотя

бы направления :)
[moder]Используйте теги оформления. Для макросов - кнопка #
Поправил за Вас
Автор - Baaldoom
Дата добавления - 12.08.2015 в 17:43
_Boroda_ Дата: Среда, 12.08.2015, 17:54 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17005
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Такой вариант
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column <> 9 Then Exit Sub
     If Target.Row < 7 Then Exit Sub
     Target.Offset(, 1).Resize(, 2).ClearContents
End Sub
[/vba]
К сообщению приложен файл: 8337181_1.xls (68.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТакой вариант
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column <> 9 Then Exit Sub
     If Target.Row < 7 Then Exit Sub
     Target.Offset(, 1).Resize(, 2).ClearContents
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 12.08.2015 в 17:54
Baaldoom Дата: Пятница, 14.08.2015, 15:25 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата _Boroda_, 12.08.2015 в 17:54, в сообщении № 2
Такой вариант


Большое спасибо за помощь!
 
Ответить
Сообщение
Цитата _Boroda_, 12.08.2015 в 17:54, в сообщении № 2
Такой вариант


Большое спасибо за помощь!
Автор - Baaldoom
Дата добавления - 14.08.2015 в 15:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление содержимого ячеек при изменении исходной ячейки. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!