Šajā rakstā mēs izveidosim pielāgotu funkciju, lai saskaitītu šūnu skaitu diapazonā ar noteiktām krāsām.
Šajā piemērā parauga dati sastāv no diapazona, kura vērtības svārstās no 100 līdz 1000. Šūnas vērtības ir iezīmētas dažādās krāsās. Mēs vēlamies atrast katras krāsas skaitu.
Lai aprēķinātu konkrētas krāsas skaitu, esam izveidojuši pielāgotu funkciju “CountByColor”. Šī funkcija ievada divus diapazona parametrus. Pirmais diapazona parametrs nosaka šūnas iekšējo krāsu un otrais diapazona parametrs nosaka parauga diapazonu.
Koda skaidrojums
Lietojumprogramma. Gaistošs tiek izmantots, jo tas tiks pārrēķināts katru reizi, kad darbgrāmatā tiek mainīta šūnas vērtība.
DefinedColorRange.Interior.ColorIndex
Iepriekš minētais kods tiek izmantots, lai iegūtu noteiktā diapazona interjera krāsu.
Lūdzu, sekojiet tālāk norādītajam kodam
Funkcija CountByColor (DefinedColorRange As Range, CountRange As Range) Lietojumprogramma. Gaistoši "Deklarējošie mainīgie Dim ICol kā vesels skaitlis Dim GCell As Range" Šūnas iekšējās krāsas iegūšana ICol = DefinedColorRange.Interior.ColorIndex 'Looping caur katru GC CountRange Ja ICol = GCell.Interior.ColorIndex Tad 'Atbilstošu krāsainu šūnu skaita iegūšana CountByColor = CountByColor + 1 beigas, ja nākamā GCell beigu funkcija
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē