Kako ustvariti barvne vsote
Ali želite dodati vsebino celice, vendar upoštevati barvo celic? To lahko storite z makrom. Naslednja slika prikazuje podatkovno tabelo, v kateri imajo nekatere celice rumeno ozadje (rumena barva polnila):
Če želite dodati samo celice iz trenutnega izbora, ki imajo rumeno barvo ozadja, uporabite naslednji makro:
SubAdColor celice ()
Dim Sum As Long
Dim Cell As Range
Za vsako izbrano celico
Če je Cell.Interior.ColorIndex = 6 Potem
Vsota = Vsota + celica.Vrednost
Konec Če
Naslednja celica
MsgBox "Barvna vsota je:" & vsota
End Sub
Po zagonu makra vam Excel prikaže vsoto celic v oknu, ki so označene z rumeno barvo ozadja. Naslednja slika prikazuje, kako izgleda rezultat, če izberete zgornji obseg celic:
Če želite namesto celic z rumenim ozadjem uporabiti druge barve, prilagodite primerjalno vrednost v poizvedbi If. Namesto 6 zamenjajte druge vrednosti za rumeno. Če želite izvedeti, katero vrednost za ColorIndex uporabiti za izbrano barvo, lahko uporabite majhen makro. Kliknite želeno celico in zaženite naslednji makro, če želite izvedeti, v kateri barvi ozadja je aktivna celica oblikovana:
Sub ActiveColor ()
MsgBox "Aktivna barva ozadja:" & _
(Izbor (1, 1). Notranjost. Barvni indeks)
End Sub
Nasvet: Če želite vedeti, kako vnesti in zagnati makre v Excelu, boste tukaj našli kratek opis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
