Kā izveidot krāsu summas
Vai vēlaties pievienot šūnu saturu, bet ņemt vērā šūnu krāsu? To var izdarīt ar makro. Šajā attēlā parādīta datu tabula, kurā dažām šūnām ir dzeltens fons (dzeltena aizpildījuma krāsa):
Lai pievienotu tikai šūnas no pašreizējās atlases ar dzeltenu fona krāsu, izmantojiet šādu makro:
Sub AddColor šūnas ()
Dim Sum tik ilgi
Dim šūna kā diapazons
Katrai atlasītajai šūnai
Ja šūna.Interior.ColorIndex = 6 Tad
Summa = Summa + Šūna. Vērtība
Beigas Ja
Nākamā šūna
MsgBox "Krāsu summa ir:" & summa
Beigt apakš
Pēc makro palaišanas programma Excel parāda loga šūnu summu, kas ir iezīmēta ar dzeltenu fona krāsu. Šajā attēlā parādīts, kā izskatās rezultāts, ja atlasāt iepriekš norādīto šūnu diapazonu:
Lai šūnu ar dzeltenu fonu vietā izmantotu citas krāsas, pielāgojiet salīdzinājuma vērtību vaicājumā If. Aizstājiet citas dzeltenas vērtības, nevis 6. Lai uzzinātu, kādu ColorIndex vērtību izmantot izvēlētai krāsai, varat izmantot nelielu makro. Noklikšķiniet uz izvēlētās šūnas un sāciet šādu makro, lai uzzinātu, ar kuras fona krāsu aktīvā šūna ir formatēta:
Sub ActiveColor ()
MsgBox "Aktīvā fona krāsa:" & _
(Atlase (1, 1). Interjers.ColorIndex)
Beigt apakš
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
