Як створити кольорові суми
Ви хотіли б додати вміст комірки, але врахувати колір клітин? Ви можете зробити це за допомогою макросу. Наступний малюнок показує таблицю даних, в якій деякі клітинки мають жовтий фон (жовтий колір заливки):
Щоб додати лише клітинки з поточного виділення, які мають жовтий колір фону, використовуйте такий макрос:
Додаткові комірки 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- in-excel-ein.html
