Hogyan készítsünk színes összegeket
Szeretné hozzáadni a cellatartalmat, de figyelembe veszi a cellák színét? Ezt megteheti egy makróval. Az alábbi ábra adattáblázatot mutat, amelyben néhány cella sárga háttérrel rendelkezik (sárga kitöltési szín):
Ha csak az aktuális kijelölés sárga háttérszínű celláit szeretné hozzáadni, használja a következő makrót:
Sub AddColor cellák ()
Dim Sum olyan hosszú
Dim Cell as Range
Minden kiválasztott cellához
Ha Cell.Interior.ColorIndex = 6 Akkor
Összeg = Összeg + Cella.Érték
Vége Ha
Következő cella
MsgBox "A színösszeg:" & sum
End Sub
A makró elindítása után az Excel megmutatja az ablak celláinak összegét, amelyek sárga háttérszínnel vannak kiemelve. Az alábbi ábra azt mutatja, hogy néz ki az eredmény, ha kiválasztja a fent bemutatott cellatartományt:
Ha más színeket szeretne használni a sárga háttérrel rendelkező cellák helyett, módosítsa az összehasonlító értéket az If lekérdezésben. Cserélje ki a sárga értékeket 6 helyett. Egy kis makró segítségével megtudhatja, hogy a ColorIndex melyik értékét használja az Ön által választott színhez. Kattintson az Ön által választott cellára, és indítsa el a következő makrót, hogy megtudja, melyik háttérszínnel van formázva az aktív cella:
Sub ActiveColor ()
MsgBox "Aktív háttérszín:" & _
(Kiválasztás (1, 1). Belső.ColorIndex)
End Sub
Tipp: Ha szeretné tudni, hogyan kell beírni és elindítani a makrókat az Excelben, itt talál egy rövid leírást: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
