
Последние записи
- Удалить повторы со сложением значений (Microsoft Office Excel)
- Bass регулировка по отдельности левого и правого каналов звука
- Как ускорить замену текста в MEMO?
- Вывод картинки (текстуры) на OpenGL 3.3 и Qt C++ с плавающем диапазоном координат по оси X
- Поиск ячеек определенного цвета (Microsoft Office Excel)
- Конвертирование кодов в символы (URLDecode в Delphi)
- Рекурсивное удаление файлов из папки (CMD)
- Самый быстрый способ прорисовки на компоненте Image
- Эксперименты с генератором фракталов
- Технология производства чая (белый, зелёный, жёлтый, улун, шен, красный, шу)

17th
Дек
Поиск ячеек определенного цвета (Microsoft Office Excel)
Posted by obzor under VBA
Как написать макрос, чтобы он на листе искал ячейку , которая залита КРАСНЫМ цветом. И в случае если таких ячеек нет, появлялась надпись — «изменений нет», а в случае обнаружения красных ячеек появлялась надпись — «Есть изменения».
Каким именно красным? Как именно залита?
Хотя в последних версиях способ заливки для макроса уже не важен…
Но вот с цветом можете ошибиться, т.к. vbRed — это один конкретный «колор»!
Код:
Sub tt()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.DisplayFormat.Interior.Color = vbRed Then MsgBox "Есть изменения": Exit Sub
Next
MsgBox "изменений нет"
End Sub
Случайные статьи

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)