Автоматическое суммирование чисел в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое суммирование чисел в ячейке (Функции/Function)

Mihail69

Дата: Среда, 16.09.2015, 22:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте форумчане! Есть функция для автоматического суммирования чисел ячейки. Никак не могу понять как задать условие, чтобы эта функция выполнялась только в ячейках зеленого цвета

К сообщению приложен файл: 3802539.xlsx (8.7 Kb)

Ответить

Mihail69

Дата: Среда, 16.09.2015, 22:13 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Извиняюсь не тот файл вложил

К сообщению приложен файл: 6297681.xlsm (14.1 Kb)

Ответить

miver

Дата: Четверг, 17.09.2015, 08:35 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Как то так

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim n As Long
     If Target.Interior.Color = 5287936 Then
         n = Target.Value
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         Application.Undo
         Target.Value = Target.Value + n
         Application.EnableEvents = True
         Application.ScreenUpdating = True
     End If
End Sub

[/vba]