Cum se creează sume de culoare
Doriți să adăugați conținut de celulă, dar să țineți cont de culoarea celulelor? Puteți face asta cu o macro. Următoarea figură arată un tabel de date în care unele celule au un fundal galben (culoare de umplere galbenă):
Pentru a adăuga numai celulele din selecția curentă care au o culoare de fundal galbenă, utilizați următoarea macro:
Sub Add CellColor ()
Dim Sum As Long
Dim Cell As Range
Pentru fiecare celulă selectată
Dacă Cell.Interior.ColorIndex = 6 Atunci
Suma = Suma + Celula.Valoare
End If
Următoarea celulă
MsgBox "Suma de culoare este:" & sum
Sfârșitul Sub
După pornirea macro-ului, Excel vă arată suma celulelor dintr-o fereastră, care sunt evidențiate cu o culoare galbenă de fundal. Următoarea figură arată cum arată rezultatul dacă selectați intervalul de celule prezentat mai sus:
Pentru a utiliza alte culori în loc de celule cu fundal galben, ajustați valoarea de comparație în interogarea If. Înlocuiți alte valori cu galben în loc de 6. Pentru a afla ce valoare pentru ColorIndex utilizați pentru o culoare la alegere, puteți utiliza o macro mică. Faceți clic pe o celulă la alegere și porniți următoarea macro pentru a afla cu ce culoare de fundal este formatată celula activă:
Sub ActiveColor ()
MsgBox "Culoare de fundal activă:" & _
(Selecție (1, 1) .Interior.ColorIndex)
Sfârșitul Sub
Sfat: Dacă doriți să știți cum să introduceți și să porniți macrocomenzile în Excel, veți găsi o scurtă descriere aici: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
