Как можно узнать backcolor (цвет заливки) для активной ячейки

@XoFfiCEr · Регистрация: 18.03.2010

Студворк — интернет-сервис помощи студентам

ActiveCell.BackColor - так не работает, а еще как можно?

@Sasha_Smirnov · 21.10.2011, 05:32

Попробуй включить запись макроса — залей ячейку — посмотри код.

(Я так почти все ответы и нахожу — записью выполняемых команд.)

@XoFfiCEr · 21.10.2011, 05:35 **[ТС]**

Сообщение от Sasha_Smirnov

Попробуй включить запись макроса — залей ячейку — посмотри код.

(Я так почти все ответы и нахожу — записью выполняемых команд.)

Не понял, как это?
Что включать?

@Watcher_1 · 21.10.2011, 07:33

Держите

Visual Basic
1
MsgBox ActiveCell.Interior.Color

@Апострофф · 21.10.2011, 08:15

В Excel 2003 макросы макрорекордер включался так (см. картинку). После записи нужных действий не забудьте отключить рекордер!

@XoFfiCEr · 21.10.2011, 10:38 **[ТС]**

Visual Basic
1
2
3
4
Dim ColorIndex
ActiveSheet.Cells(i,j).Select
ColorIndex=ActiveCell.Interior.ColorIndex
MsgBox ColorIndex

Выдает ошибку 'overflow'
С чего бы это?

@Watcher_1 · 21.10.2011, 10:45

А в каком диапазоне меняется i и j
Думаю пробелема тут

@XoFfiCEr · 21.10.2011, 10:51 **[ТС]**

Сообщение от Watcher_1

А в каком диапазоне меняется i и j
Думаю пробелема тут

Нет, выше аналогичная процедура с двумя циклами, все работает
там не используется interior

@Watcher_1 · 21.10.2011, 10:53

Попробуйте тогда вместо ColorIndex поставить Color

@XoFfiCEr · 21.10.2011, 10:54 **[ТС]**

Сообщение от Watcher_1

Попробуйте тогда вместо ColorIndex поставить Color

Тоже самое!
Может это потому что в ячейке вообще никакой заливки нет?!

@Watcher_1 · 21.10.2011, 10:56

Нет не из за этого у меня без заливки выдает значение
Мож файл прикрепите, так быстрее косяк найдем...

@XoFfiCEr · 21.10.2011, 11:28 **[ТС]**

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

@Andrey-750 · 23.11.2014, 15:34

Продолжу тему:
Вышеприведённые примеры работают только при отсутствии условного форматирования на исследуемой ячейке. Если же цвет заливки изменён условным форматированием, например:

Visual Basic
1
2
.Range("A5:A8000").FormatConditions.Add(xlCellValue, 3, "=""J""").Interior.Color = 15773696
.Range("A5:A8000").Interior.Color = 0

Если, скажем, в ячейке А10 будет находиться "J" (без кавычек), эта ячейка будет синяя (код цвета 15773696), а Вышеприведённые примеры покажут "0".
Может кто подскажет, как определить ВИДИМЫЙ цвет ячейки?
Кстати: автофильтр по цвету учитывает именно ВИДИМЫЙ цвет, но понять из записанного макроса как определить цвет конкретной ячейки не представляется возможным:

Visual Basic
1
2
3
4
5
Sub test()
    ActiveSheet.Range("$A$4:$AG$7033").AutoFilter Field:=1, Criteria1:=RGB(153 _
        , 255, 204), Operator:=xlFilterCellColor
    Range("A380").Select
End Sub

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2

	Как можно узнать backcolor (цвет заливки) для активной ячейки 21.10.2011, 03:46. Показов 52418. Ответов 12 Метки vba (Все метки) ActiveCell.BackColor - так не работает, а еще как можно? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.10.2011, 05:32
	Попробуй включить запись макроса — залей ячейку — посмотри код. (Я так почти все ответы и нахожу — записью выполняемых команд.) 0

@Апострофф 9908 / 3919 / 742 Регистрация: 11.10.2011 Сообщений: 5,902
	21.10.2011, 08:15
	В Excel 2003 макросы макрорекордер включался так (см. картинку). После записи нужных действий не забудьте отключить рекордер! Миниатюры 1

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	21.10.2011, 10:45
	А в каком диапазоне меняется i и j Думаю пробелема тут 0

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	21.10.2011, 10:53
	Попробуйте тогда вместо ColorIndex поставить Color 0

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	21.10.2011, 10:56
	Нет не из за этого у меня без заливки выдает значение Мож файл прикрепите, так быстрее косяк найдем... 1

@XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2
	21.10.2011, 11:28 [ТС]
	Всем спасибо, разобрался я не в ту переменную записывал, та что записывал байтовая, конечно будет переполнение. 0