При изменение данных одной ячейки, в других сброс

Вход

Регистрация

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

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

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

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

При изменение данных одной ячейки, в других сброс (Макросы/Sub)

При изменение данных одной ячейки, в других сброс

Predator92

Дата: Четверг, 04.03.2021, 16:03 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124

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

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

Excel 2016

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

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

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

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

Сообщение отредактировал Predator92 - Четверг, 04.03.2021, 16:08

Ответить

probkinfeda

Дата: Пятница, 05.03.2021, 05:37 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 25

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

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

Проверяйте

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

Ответить

Апострофф

Дата: Пятница, 05.03.2021, 06:03 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

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

Замечаний: 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]

Ответить

При изменение данных одной ячейки, в других сброс (Макросы/Sub)

Страница 1 из 1
1