Цвет ячейки - Microsoft Office Excel

АлёнаP · 29.03.2010, 11:35

Подскажите пож-та, как проверить, черный ли цвет в ячейке?

VictorM · 29.03.2010, 11:57

Если речь идет о цвете ТЕКСТА в ячейке, то можно так

Код:

Sub ЦветТекста()
    If ActiveCell.Font.ColorIndex < 0 Then
        Call MsgBox("Цвет текста в выбранной ячейке - черный", vbExclamation, "Цвет")
    Else
        Call MsgBox("Цвет текста в выбранной ячейке -  НЕ черный", vbExclamation, "Цвет")
    End If
End Sub

АлёнаP · 29.03.2010, 12:08

Спасибо, большое. Именно то!)

VictorM · 29.03.2010, 12:10

Попробуйте вот так еще, так будет точнее

Код:

Sub ЦветТекста()
    If ActiveCell.Font.ColorIndex < 0 Or ActiveCell.Font.ColorIndex = 1 Then
        Call MsgBox("Цвет текста в выбранной ячейке - черный", vbExclamation, "Цвет")
    Else
        Call MsgBox("Цвет текста в выбранной ячейке -  НЕ черный", vbExclamation, "Цвет")
    End If
End Sub

***
Кстати ColorIndex = 55
это тоже черный цвет

Dophin · 29.03.2010, 12:18

можно еще vbblack использовать, тоже более менее точно.

29.03.2010, 11:35	#1
АлёнаP Пользователь Регистрация: 17.12.2008 Сообщений: 56	Цвет ячейки Подскажите пож-та, как проверить, черный ли цвет в ячейке?

29.03.2010, 11:57	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Если речь идет о цвете ТЕКСТА в ячейке, то можно так Код: `Sub ЦветТекста() If ActiveCell.Font.ColorIndex < 0 Then Call MsgBox("Цвет текста в выбранной ячейке - черный", vbExclamation, "Цвет") Else Call MsgBox("Цвет текста в выбранной ячейке - НЕ черный", vbExclamation, "Цвет") End If End Sub` "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

29.03.2010, 12:10	#4
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Попробуйте вот так еще, так будет точнее Код: `Sub ЦветТекста() If ActiveCell.Font.ColorIndex < 0 Or ActiveCell.Font.ColorIndex = 1 Then Call MsgBox("Цвет текста в выбранной ячейке - черный", vbExclamation, "Цвет") Else Call MsgBox("Цвет текста в выбранной ячейке - НЕ черный", vbExclamation, "Цвет") End If End Sub` *** Кстати ColorIndex = 55 это тоже черный цвет "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 29.03.2010 в 12:14.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Цвет заливки ячейки в зависимости от значений RGB	nikcher	Microsoft Office Excel	6	24.08.2016 16:52
цвет ячейки как поменять?	zander	Microsoft Office Access	8	10.03.2010 22:46
Можно ли своей функцей менять цвет ячейки в которую эта фу-я вставлена?	maeglah	Microsoft Office Excel	3	21.04.2009 05:23
Можно ли как-нить изменить цвет отдельной ячейки в DBGride?	3lander	БД в Delphi	2	10.10.2007 21:23
как изменять цвет ячейки в зависимости от условий ?	Витёк	Microsoft Office Excel	2	19.06.2007 13:10

29.03.2010, 12:08	#3
АлёнаP Пользователь Регистрация: 17.12.2008 Сообщений: 56	Спасибо, большое. Именно то!)

29.03.2010, 12:18	#5
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	можно еще vbblack использовать, тоже более менее точно.