Удалить значение ячейки если нет заливки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить значение ячейки если нет заливки (Макросы/Sub)

Gjlhzl

Дата: Пятница, 05.01.2024, 16:40 | Сообщение № 1

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

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

Сообщений: 112

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

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

Заливка выполняется макросом (не УФ), значение в ячейке формулой...можно ли в формуле прописать условие - если ячейка не закрашена-пусто?
или макросом или пользовательской функцией?

Ответить

i691198

Дата: Пятница, 05.01.2024, 18:57 | Сообщение № 2

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

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

Сообщений: 223

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

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

Gjlhzl, Формулы не могут определять формат ячеек, в том числе и заливку, так что только макрос.

Сообщение отредактировал i691198 - Пятница, 05.01.2024, 19:03

Ответить

boa

Дата: Суббота, 06.01.2024, 17:31 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 552

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

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

365

i691198,
Ошибочное мнение ((
есть функция ПОЛУЧИТЬ.ЯЧЕЙКУ(GET.CELL), которая позволяет очень много узнать о ячейке, в т.ч. и заливку

К сообщению приложен файл: kniga1.xlsb (10.4 Kb)

Сообщение отредактировал boa - Суббота, 06.01.2024, 17:50

Ответить

i691198

Дата: Воскресенье, 07.01.2024, 14:52 | Сообщение № 4

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

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

Сообщений: 223

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

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

boa, Добрый день. Спасибо, напомнили о макрофункциях. Вот только сомневаюсь, что эта функция сможет помочь ТС. Вопрос то в том, что нужно найти ячейки без заливки и удалить из них значения. К сожалению не было времени написать ТС более подробный ответ, сделаю сейчас.
Gjlhzl, Добрый день, пример файла вы не приложили, поэтому ограничусь абстрактным примером решения вашей задачи. Насчет формул я уже написал, макрос-формула тоже не поможет, нужен макрос-процедура. Предположим, что вам нужно сделать эту операцию в каком то выделенном диапазоне. Тогда прописываем в макросе такой код [vba]

Код

For Each Cl In Selection
If Cl.Interior.Color = 16777215 Then Cl.ClearContents
Next

[/vba]
И еще множество вариантов.