COUNTA-laskentataulukko-toiminto Excel VBA: ssa
Aikaisemmassa artikkelissamme "Excel COUNTA" olemme nähneet, kuinka COUNT-funktiota käytetään laskemaan numeeriset arvot arvojen alueelta. Entä laskea kaikki kustannukset solualalla? Kyllä, voimme arvioida myös sen. Jos haluat laskea kaikki solualueiden soluarvot, meidän on käytettävä kaavaa ”COUNTA” Excel VBA: ssa. Tässä artikkelissa näytämme sinulle, kuinka voit käyttää VBA: n COUNTA-toimintoa kaikkien soluarvojen laskemiseen toimitetulla alueella.
Esimerkkejä COUNTA-toiminnasta VBA: ssa
Yksi totuus on, että “COUNTA” -toiminto ei ole VBA-toiminto. Tiedän, että kysymyksesi on, jos se ei ole VBA-toiminto, miten sitten sitä käytetään? Mikään ei huolestu, vaikka se ei olekaan VBA-toiminto; silti voimme käyttää sitä laskentataulukon funktioluokassa VBA-koodauksessa.
Ok, kirjoitetaan koodi soveltaa Excel VBA COUNTAa.
Vaihe 1: Luo alimenettelyn nimi.
Vaihe 2: Päätä ensin, mihin tallennamme VBA COUNTA -toiminnon tulokset. Tässä esimerkissä haluan säilyttää työn solussa C2. Joten koodini on Range ("C2"). Arvo.
Koodi:
Sub Counta_Example1 () -alue ("C2"). Arvo = End Sub
Vaihe 3: Solussa C2 tarvitaan VBA COUNTA -funktion arvo. Joten soveltaa Excel VBA COUNTA -toimintoa, antaa ensin käyttää laskentataulukon toimintoluokkaa.
Koodi:
Alalaskuri_esimerkki1 () -alue ("C2"). Arvo = Työn loppuosa
Vaihe 4: Kun olet laskenut laskentataulukon toimintoluokan, valitse kaava COUNTA asettamalla piste.
Koodi:
Sub Counta_Example1 () -alue ("C2"). Arvo = WorksheetFunction.Count End Sub
Vaihe 5: Nyt meidän on toimitettava laskettava solualue. Tässä esimerkissä meidän on laskettava solualue A1 - A11. Solujen tarjoaminen VBA RANGE -objektilla.
Koodi:
Sub Counta_Example1 () -alue ("C2"). Arvo = WorksheetFunction.CountA (Range ("A1: A11")) End Sub
Ok, suoritetaan koodi saadaksesi tuloksen soluun C2.
Joten sama tulos palautti myös VBA COUNTA.
Tällä tavoin voimme käyttää COUNTAa laskemaan ei-tyhjät tai tyhjät solut toimitetulta alueelta.
Koodaus muuttujien kanssa
VBA-muuttujat ovat avain projektin rakentamiseen. Nyt samat tiedot voidaan ilmoittaa VBA-muuttujista ja saavuttaa tulos.
Katso esimerkiksi alla oleva koodi.
Koodi:
Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub
Selitetään nyt yllä oleva koodi.
Ensinnäkin olen ilmoittanut muuttujan "CountaRange" alueeksi, joka viittaa arvoalueeseen.
Hämärä CountaRange-alue
Seuraavaksi olen asettanut viitteen alueeksi A1 - A11.
Set CountaRange = Range ("A1: A11")
Toisen muuttujan on viitattava COUNTA-tulos soluun.
Hämärä CountaResultCell-alue
Tälle muuttujalle olen asettanut solun arvoksi C2.
Aseta CountaResultCell = Alue ("C2")
Nyt, kuten tavallista, olen käyttänyt COUNTA-funktiota käyttämällä muuttujia kovakoodattujen alueiden sijaan. Katsokaa nyt vanhaa koodia ja tätä VBA-koodia.
Koodi 1:
Koodi 2:
Koodissa 1 meillä on alue C2. Koodissa 2 meillä on muuttujan nimi CountaResultCell. Tässä muuttuja ”CountaResultCell” asettaa viitteen C2-soluksi. Joten tämä muuttuja on nyt C2-solu.
Koodissa 1 COUNTA-toimintoalue on A1 - A11. Säännössä 2 se on muuttuja nimeltä CountaRange. Tämä muuttuja sisältää viittauksen alueeseen A1 - A11.
Tässä on ero vanhan koodin ja muuttujia sisältävän koodin välillä.
Joten COUNTA-toiminto auttaa meitä laskemaan kaikki ei-tyhjät solut toimitetulta alueelta riippumatta sen tiedoista.
