Добрый день!
Подскажите как сделать, чтобы 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 ?
Это не может привести к сбоям?
Заранее спасибо.

Большое спасибо, вы мне очень помогли.

Большое спасибо!
Еще один вопросик.
Я прикрутил это хозяйство к своему файлу.
Вместо стирания ячеек поставил обнуление ( так надо ).
И вот что выяснил: если в ячейки вводить данные руками, то все работает, а одна из ячеек управляется стрелками, при этом кнопка цвет не меняет, как быть?
Заранее спасибо.

Добрый день!
Прикрутил эту конструкцию к своему файлу - заработало. Правда в реальном файле у меня кнопок 6, а со временем будет больше, и этот кусок кода приходится многократно повторять, я подозреваю, что есть более красивое решение. Но в любом случае это работает и я это использую.
Я добавил нужные мне кнопки, и заметил, что не на все стрелки программа срабатывает.
Никак не могу понять где это задано. Подскажите плиз.
Файл прилагаю.

Чета приложенный файл не открывается, видать из за русских букв или пробела.
Переименовал - выложил заново

Ну вот я в коде и не нашел где это задается, хотя сам уже до этого допер!

Да нет, один я ...

Спасибо за подсказку, поду разбираться с именованными диапазонами.

Всем добрый день!
Попробовал "прикрутить" полученные знания об изменении цвета кнопки в реальный файл - почему-то никак не хочет менять цвета. Кнопка "Сброс всех" должна изменить цвет на красный, если стрелками "вправо" увеличить значение ячеек, где написано "L=0", S=0" и т.д. При нажатии на эту кнопку указанные ячейки должны обнулиться и она снова должна стать зеленой.
Помогите пожалуйста, я в этом не очень силен.
Файл прилагаю.
Заранее спасибо.

Прилагаемый файл

С третьего раза приложился файл - был очень большой - пришлось уменьшать и архивировать

Да не, дело вроде не в этом, я потом только заметил, что макс размер файла - 150 кб, пришлось его уменьшать...

Спецы-ы-ы-ы...
Где вы-ы-ы-ы-ы?
Ау-у-у-у-у-у....
Жду помощи-и-и-и-и...

Да мне не лень, просто я в этом мало что понимаю...

ясно ...