Добрый день!
Подскажите как сделать, чтобы CommandButton.1 была зеленая, если сумма ячеек A1+A2+A3=0, и красная в других случаях?
Я не очень силен в вижуал бейсик...
Заранее спасибо

Кнопка расположена на листе.
Инициатором смены цвета является сумма ячеек A1-A3
Я об этом писал ранее
авторкак сделать, чтобы CommandButton.1 была зеленая, если сумма ячеек A1+A2+A3=0, и красная в других случаях?
Тестовый файл приагаю

Да, Selection тут видимо не подходит. Если изменить содержимое ячейки, а потом стать мышкой на произвольную ячейку, то изменения цвета не происходит, это не есть хорошо...

Подскажите ламеру как это правильно воткнуть в таблицу, я попробовал - у меня не работает

Работает, отлично!
Осталось самое последнее - сделать, чтобы менялся цвет кнопки, а не шрифта, как я писал в самом начале

Вручную-то можно, но мне надо же, чтобы она менялась!
CommandButton.1 была зеленая, если сумма ячеек A1+A2+A3=0, и красная в других случаях?

Это можно только в свойствах кнопки прописать, а это, как я понимаю, в макрос не воткнешь.
Неужели вот в этом коде нельзя поменять цвет текста на цвет кнопки?
авторPrivate Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
Shapes("Button 2").DrawingObject.Font.ColorIndex = IIf(Range("A1") + Range("A2") + Range("A3") = 0, 4, 3)
End If

End Sub
Я пробую - но ни фига не выходит, я в этом полный 0...

Ладно, будем думать ...

Неужели никто не может помочь?
Вроде пустяковая задача для специалиста...

Есть код, любезно предоставленный Shocker.Pro
авторPrivate Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
Shapes("Button 2").DrawingObject.Font.ColorIndex = IIf(Range("A1") + Range("A2") + Range("A3") = 0, 4, 3)
End If

End Sub
Суть работы: Если сумма ячеек A1-A3=0, то надпись на кнопке зеленого цвета, а если нет - то красная.
Мне надо, чтобы менялся не цвет надписи, а цвет самой кнопки.
Наверняка, надо самую малость изменить, но поскольку я в этом ваще никак, то жду помощи...
Файл прикладываю.
Заранее спасибо

Буду с нетерпением ждать ...
Еще раз заранее спасибо .

Жду помощи ....

Добрый день!
Большое спасибо, вроде получилось, что я хотел.

Немного исправил, под свои нужды:

1. Убрал строку
Me.CommandButton1.BackColor = RGB(255, 255, 0)
Делает кнопку желтой при нажатии.

Вместо этого поставил:
[A1] = 0
[E1] = 0
[I1] = 0

Итак, как это должно работать:

В ячейки A1, E1, I1 - вводятся некоторые значения.
Если там нули - то кнопка зеленая.
Если значения отличные от нулей - то она красная.
При нажатии на эту кнопку указанные ячейки обнуляются и кнопка зеленеет.

Тут у меня вопрос.
Я переделал эти макросы чисто интуитивно, абсолютно не зная этого языка.
В исходном коде была строка:
If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
Анализируются ячейки в диапазоне А1-А3, там они были рядом.
Мне было надо раскидать эти ячейки по горизонтали, и я заменил это условие на
If Not Intersect(Target, Range("A1:I1")) Is Nothing Then
Вроде бы все работает, но ничего, что в этот диапазон попадают ячейки, не участвующие в процессе B1-D1 и F1-H1 ?
Это не может привести к сбоям?
Заранее спасибо.