V tem članku bomo ustvarili funkcijo po meri za štetje števila celic v obsegu z določenimi barvami.
V tem primeru so vzorčni podatki obseg, ki ima vrednosti med 100 in 1000. Vrednosti v celicah so označene z različnimi barvami. Želimo najti število vsake barve.
Za izračun števila določene barve smo ustvarili funkcijo po meri "CountByColor". Ta funkcija za vhod vzame dva parametra območja. Parameter prvega območja določa notranjo barvo celice, drugi pa parametra območja vzorca.
Razlaga kode
Application.Volatile se uporablja, saj se bo znova izračunal vsakič, ko se v delovnem zvezku spremeni vrednost celice.
DefinedColorRange.Interior.ColorIndex
Zgornja koda se uporablja za pridobivanje notranje barve določenega območja.
Za kodo sledite spodaj
Funkcija CountByColor (DefinedColorRange As Range, CountRange As Range) Aplikacija. Hlapna 'Razglasitev spremenljivk Dim ICol za celo število Dim GCell As Range' Dobivanje notranje barve celice ICol = DefinedColorRange.Interior.ColorIndex 'Preklapljanje skozi definirano območje Za vsako GCell CountRange If ICol = GCell.Interior.ColorIndex Potem 'Pridobivanje števila ujemajočih se barvnih celic CountByColor = CountByColor + 1 End Če je naslednja funkcija GCell End
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
