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

Вход

Регистрация

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

 

= Мир MS Excel/При изменение данных одной ячейки, в других сброс - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При изменение данных одной ячейки, в других сброс (Макросы/Sub)
При изменение данных одной ячейки, в других сброс
Predator92 Дата: Четверг, 04.03.2021, 16:03 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Добрый день! Подскажите пожалуйста макрос

В документе есть Оранжевая ячейка при изменение или обновление её, нужно чтобы сбрасывались все данные ранее заполненные во всех жёлтых ячейках.

Спасибо за помощь.
К сообщению приложен файл: 55555555555.xlsx (18.6 Kb)


Сообщение отредактировал Predator92 - Четверг, 04.03.2021, 16:08
 
Ответить
СообщениеДобрый день! Подскажите пожалуйста макрос

В документе есть Оранжевая ячейка при изменение или обновление её, нужно чтобы сбрасывались все данные ранее заполненные во всех жёлтых ячейках.

Спасибо за помощь.

Автор - Predator92
Дата добавления - 04.03.2021 в 16:03
probkinfeda Дата: Пятница, 05.03.2021, 05:37 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 5 ±
Замечаний: 0% ±

Проверяйте
К сообщению приложен файл: 555555555551.xlsm (22.7 Kb)
 
Ответить
СообщениеПроверяйте

Автор - probkinfeda
Дата добавления - 05.03.2021 в 05:37
Апострофф Дата: Пятница, 05.03.2021, 06:03 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
Predator92, а где проблема?
В модуль листа элементарный макрос вставьте

[vba]
Код
Private Sub Worksheet_Change(ByVal V As Range)
If V.Interior.Color = 255& + 192& * 256& Then
  Application.EnableEvents = False
  Dim C As Range
  For Each C In V.Worksheet.UsedRange
    If C.Interior.Color = 256& * 256 - 1 Then C = Empty
  Next C
  Application.EnableEvents = -1
End If
End Sub
[/vba]
 
Ответить
СообщениеPredator92, а где проблема?
В модуль листа элементарный макрос вставьте

[vba]
Код
Private Sub Worksheet_Change(ByVal V As Range)
If V.Interior.Color = 255& + 192& * 256& Then
  Application.EnableEvents = False
  Dim C As Range
  For Each C In V.Worksheet.UsedRange
    If C.Interior.Color = 256& * 256 - 1 Then C = Empty
  Next C
  Application.EnableEvents = -1
End If
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 05.03.2021 в 06:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При изменение данных одной ячейки, в других сброс (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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