Adds cells with red background color between cells A1: d20 Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Açıklama: A1:D20 hücreleri arasındaki arka plan rengi kırmızı olan hücreleri toplar 
Kod: 
Function SumIfColours(cellTextColour As Integer, _ 
   Range1, ParamArray Range2()) As Double

Dim objCell As Range

' Best to use this even if it does 
' slow Excel down somewhat. 
Application.Volatile

' Initialise. 
SumIfColours = 0

' Process first argument. 
' Restrict the range to stop the loop looking 
' at huge swathes of empty cells. 
For Each objCell In Intersect(Range1, _ 
    Range1.Parent.UsedRange) 
    If Application.IsNumber(objCell.Value) And _ 
    objCell.Interior.ColorIndex = cellTextColour Then _ 
    SumIfColours = SumIfColours + objCell.Value 
Next objCell

' Process additional arguments (if any) 
If UBound(Range2)  0 Then 
   For intArgument = 1 To UBound(Range2) 
      For Each objCell In Intersect(Range2(intArgument), _ 
         Range2(intArgument).Parent.UsedRange) 
         If Application.IsNumber(objCell.Value) And _ 
             objCell.Interior.ColorIndex = cellTextColour Then _ 
             SumIfColours = SumIfColours + objCell.Value 
      Next objCell 
   Next intArgument 
End If 
End Function

D21 veya A1:D20 hücreleri dışında bir hücreye aşağıdaki fürmülü yazın.

=SumIfColours(3;$A$1:$D$20) -

No	Macro Name
1	Adds cells with red background color between cells A1: d20
2	excel operators hk
3	summer adds months to sheet / pages
4	Collects cells that are red between a1: d20
5	dyes empty cells between cells a1: a10
6	dyes empty cells between cells a1: a10
7	watermark printing (faded font on sheet / page background)
8	inserts months as sheet / pages Specifies days in detail
9	list formulas on new sheet / page
10	specifies in detail how many formulas are in the book (on new sheet / page)
11	Data between cells a1: af12 flashes
12	Data between cells a1: af12 flashes
13	cleaning specific cells with one button
14	Background of cells "a1: m8" flashes
15	The background of cells a1: m8 flashes
16	Calculate the sum of cells with only a certain cell color
17	writes the names of all sheet / pages from the active sheet / page and cell and adds a link to the sheet / pages
18	empty cells become green
19	I want to throw the full cells in row with text between a1: an1000 into listbox
20	Inputbox add year as summer

Excel Free Macros (VBA)

Adds Cells With Red Background Color Between Cells A1: D20

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords