Как да създадете цветни суми
Искате ли да добавите съдържание на клетка, но вземете предвид цвета на клетките? Можете да направите това с макрос. Следващата фигура показва таблица с данни, в която някои клетки имат жълт фон (жълт цвят на запълване):
За да добавите само клетките от текущата селекция, които имат жълт цвят на фона, използвайте следния макрос:
Sub AddColor клетки ()
Dim Sum As Long
Dim Cell As Range
За всяка избрана клетка
Ако Cell.Interior.ColorIndex = 6 Тогава
Сума = Сума + клетка
Край Ако
Следващата клетка
MsgBox "Сумата на цветовете е:" & sum
End Sub
След стартиране на макроса Excel ви показва сумата от клетките в прозорец, които са маркирани с жълт цвят на фона. Следващата фигура показва как изглежда резултатът, ако изберете диапазона от клетки, представен по -горе:
За да използвате други цветове вместо клетки с жълт фон, коригирайте стойността за сравнение в заявката If. Заменете други стойности с жълто вместо с 6. За да разберете коя стойност за ColorIndex да използвате за цвят по ваш избор, можете да използвате малък макрос. Кликнете върху клетка по ваш избор и стартирайте следния макрос, за да разберете с какъв цвят на фона е форматирана активната клетка:
Sub ActiveColor ()
MsgBox "Активен цвят на фона:" & _
(Избор (1, 1). Интериор. Цветен индекс)
End Sub
Съвет: Ако искате да знаете как да въвеждате и стартирате макроси в Excel, ще намерите кратко описание тук: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- в-excel-ein.html
