Страницы: 1
RSS
При ручной заливке желтым цветом, автоматом выводил сумму ячеек в другую ячейку
 
Допустим Вася заработал 15000 а Даша 46000, мне нужно что бы вынос сумм в другую ячейку происходил при заливке ячеек желтым цветом.
 
и вам здрасьте, такое только через UDF
Соблюдение правил форума не освобождает от модераторского произвола
 
Добрый вечер)Боюсь что сам не сделаю слишком сложно для меня, у вас статьи не будет для изучения?  
 
как-то так
Код
Function sumcolor(r As Range, e As Range)
    Application.Volatile
    c = e.Interior.Color
    Sum = 0
    For Each cell In r
       If cell.Interior.Color = c Then Sum = Sum + cell
    Next
    sumcolor = Sum
End Function
Соблюдение правил форума не освобождает от модераторского произвола
 
Добрый вечер, вот попробуйте.
 
Добрый вечер
когда я остальные ячейки заливаю желтым он их суммы не прибавляет =(
 
Если у Вас получится распишите пожалуйста подробно  
 
Вот еще попробуйте, пересчёт будет после изменения положения курсора. В модуле листа тоже есть код, который вызывает пересчёт.
 
СУПЕР отлично, как вы это сделали ?
 
К коду buchlotnikа чуть-чуть добавил своего кода, вы думаю поняли первый параметр это весь диапазон с числами, а второй одна ячейка образец цвета, её лучше держать отдельно. Как сделал? Ответ: VBA.
 
СПАСИБО!
 
Подскажите еще пожалуйста, там стоит пароль, то есть я не смогу копировать макросс в другую книгу ?  
Страницы: 1
Наверх