Laskuri Excel VBA: ssa

Laskemiseen MS Excelissä on useita tapoja. Voimme käyttää sisäänrakennettuja toimintoja, kuten Count, CountIf, CountA, CountBlank, jotka ovat olemassa Excelissä. Mutta nämä toiminnot eivät toimi oikein VBA: lla, ja niillä on myös rajoituksia. Tämän voittamiseksi meillä on monia toimintoja ja komentoja sekä prosessi, jolla voimme suorittaa VBA-laskurin. VBA-laskuria käytetään solun laskemiseen, solun sisällön laskemiseen, ja sitä käytetään myös lähtölaskurina, kun voimme toteuttaa aikataulun minkä tahansa tehtävän mittaamiseksi.

Voimme laskea solut VBA-laskurin avulla myös niiden väri-indekseillä. Tämä väri-indeksi voi myös fontin väriä tai solun taustaväriä ja lihavoituja arvoja.

Kuinka luoda laskuri Excel VBA: ssa?

Alla on erilaisia ​​esimerkkejä laskurin luomiseksi Excel-sovellukseen VBA-koodilla.

Voit ladata tämän VBA Counter Excel -mallin täältä - VBA Counter Excel Template

VBA-laskuri - esimerkki # 1

Meillä on joitain satunnaislukutietoja sarakkeessa A. Kaikki mainitut arvot ovat satunnaisia, eikä niillä ole mitään yhteyttä, kuten sekvenssissä tai sarjassa. Nyt VBA Counter -prosessin avulla lasketaan ylin ja alin arvo ja saadaan tulos soluihin D2 ja D3.

Laskemme lukumäärän ja värittämme ne samanaikaisesti solute C2: n ja C3: n väritekstin mukaan.

Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Luo komentopainike, joka on käytettävissä Kehittäjä- välilehdessä Lisää-valikon Active X -ohjain alla olevan kuvan mukaisesti.

Vaihe 2: Luo nyt painike alla olevan kuvan mukaisesti.

Vaihe 3: Napsauta oikealla luotavaa painiketta ja siirry Ominaisuudet-asetukseen .

Vaihe 4: Muuta painikkeen, jonka oletusasetus on CommandButton2, otsikko mihin tahansa haluttuun nimeen. Täällä olemme vaihtaneet sen " Solujen laskeminen arvon mukaan ".

Vaihe 5: Kun olet valmis, napsauta hiiren kakkospainikkeella luotua painiketta ja valitse vaihtoehto Näytä koodi saadaksesi VBA-ikkunan.

Visual Basic Editor avataan nyt ja oletusarvoisesti aliohjelma on jo luotu komentopainikkeelle.

Koodi:

 Yksityinen alikomento Button2_Click () End Sub

Vaihe 6: Nyt meidän on ilmoitettava 3 muuttujaa. Ilmoita ensimmäinen muuttuja, johon tallennamme numerot, ja toinen muuttuja, jolla käytämme laskuria kokonaislukuina, kuten alla on esitetty. Ja kolmas muuttuja on yhtä pitkä laskemaan jokaiselle riville tallennetut numerot.

Koodi:

 Yksityinen alikomento Button2_Click () himmentää kokonaislukuna himmentää lukumääränä kokonaislukuna himmentää LRowa kuin pitkä loppuosa

Vaihe 7: Nyt valitsemme arkin ensimmäisen solun, joka on A1 alueemme. Tästä eteenpäin valitsemme solut, kunnes niissä on numeroita.

Koodi:

 Yksityinen alikomento Button2_Click () himmentää kokonaislukuna himmentää lukuna kokonaislukuna himmentää LRow niin kauan LRow = Alue ("A1"). CurrentRegion.End (xlDown) .Row End Sub

Vaihe 8: Nyt avaamme ja kirjoitamme ehdon kohtaan For loop, jos solun arvo on suurempi kuin 10, sitten solun fontin väri muuttuu keltaiseksi ja arvon ollessa alle 10 solun fontin väri muuttuu Sininen väri-indekseillä 44 ja 55 .

Koodi:

 Yksityinen alikomento Button2_Click () himmentää kokonaislukuna pienentää lukuna kokonaislukuna himmentää LRow niin kauan LRow = Alue ("A1"). CurrentRegion.End (xlDown) .Row for A = 1 LRow If Cells (A, 1) .Value> 10 Sitten Count = Count + 1 solua (A, 1) .Font.ColorIndex = 44 Else Cells (A, 1) .Font.ColorIndex = 55 End if Next A End Sub

Vaihe 9: Nyt nähdäksemme arvojen lähdön solusta A1 loppuun saakka, valitsemme solut yllä esitetyn mukaisesti alla olevan koodin avulla.

Koodi:

 Yksityinen alikomento Button2_Click () himmentää kokonaislukuna pienentää lukuna kokonaislukuna himmentää LRow niin kauan LRow = Alue ("A1"). CurrentRegion.End (xlDown) .Row for A = 1 LRow If Cells (A, 1) .Value> 10 Sitten Count = Count + 1 Solut (A, 1) .Font.ColorIndex = 44 Else Cells (A, 1) .Font.ColorIndex = 55 End if Next A Cells (2, 4) .Arvo = Count Cells (3, 4) .Arvo = 12 - Count End Sub

Vaihe 10: Suorita nyt koodi painamalla painiketta.

Näemme, että solut, joissa on alle 10 numeroa, on korostettu sinisellä värillä. Ja yksi yli 10 on korostettu keltaisella.

VBA-laskuri - esimerkki 2

Tässä esimerkissä käytämme VBA-laskuria mittaamaan aika, jonka kuluessa voimme mitata tekemämme otoksen. Oletetaan, että jos meidän täytyy mitata minkä tahansa tehtävän suorittamiseen vaadittava aika, niin täällä näkemämme prosessi on paras toteuttaa.

Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Luo minkä tahansa muodon 2 välilehteä Lisää-valikon Muodot-vaihtoehdoista alla olevan kuvan mukaisesti. Valitsemme Suorakulmio: Rounder Corners .

Vaihe 2: Luo 2 painiketta ja nimeä ne Käynnistä ja Palauta, joiden avulla käynnistämme ajastin ja tyhjennä aika.

Vaihe 3: Siirry nyt VBA: lle ja avaa moduuli Lisää-valikosta.

Vaihe 4: Kirjoita siihen Käynnistä-ajastimen alaluokka alla olevan kuvan mukaisesti.

Koodi:

 Sub Start () End Sub

Vaihe 5: Mieti seuraavan rivin sanaa, kuten NextRow, jossa valitaan taulukko, johon haluamme panna koodin. Täällä arkki on Sheet2 . Ja tässä lasketaan rivit +1-solusta, joka on solu A2, kunnes meillä on kohdistintiedoston arvo.

Koodi:

 Sub Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Solut (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub

Vaihe 6: Nyt päästäksesi seuraavaan riviin käytämme huippumuotoa, jossa hakasulkeessa 1 on Y-akselille.

Koodi:

 Sub Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Solut (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (NextRow, 1) = Time End Sub

Vaihe 7: Kirjoita nollauskoodi saman aloituskoodin alle.

Koodi:

 Sub Reset () Loppu Sub

Vaihe 8: Palauttamista varten pidämme saman koodin kuin Käynnistä, mutta avainsanan muutos on LastRow ja poistamme +1 vain, jotta meidän ei tarvitse päästä toiseen riviin.

Koodi:

 Sub Reset () lastrow = ThisWorkbook.Sheets ("Sheet2"). Solut (Rows.Count, 1) .End (xlUp) .Row End Sub

Vaihe 9: Tyhjennä nyt sarakkeen A viimeisen solun tiedot ensimmäiseen soluun valitsemalla ensin solualue, jolla on ClearContents- toiminto.

Koodi:

 Sub Reset () lastrow = ThisWorkbook.Sheets ("Sheet2"). Solut (Rows.Count, 1) .End (xlUp) .Row Range ("A2: A" & lastrow) .ClearContents End Sub

Sulje nyt VBA-ikkuna.

Vaihe 10: Napsauta hiiren kakkospainikkeella Käynnistä- välilehteä ja valitse Määritä makro -vaihtoehto.

Vaihe 11: Valitse Aloita-alikoodaus, jonka teimme yllä.

Vaihe 12: Sama tehtävä myös Reset-painikkeelle. Anna Reset-alikoodi Reset- painikkeelle ja napsauta Ok ja poistu suunnittelutilasta suorittaaksesi koodi.

Vaihe 13: Napsauta nyt ensin Käynnistä- painiketta. Saamme aloitusajan 3:51:33.

Vaihe 14: Napsauta nyt uudelleen Käynnistä-painiketta 2-3 kertaa saadaksesi useita aikarajoja. Näemme, että jokaisessa iteraatiossa on muutaman sekunnin välinen ero.

Vaihe 15: Nyt sen jälkeen testaamme Palauta- painiketta. Napsauta Palauta. Näemme, että tiedot on nyt tyhjennetty ja valmiina toista aikalaskenta-kierrosta varten.

Plussat Excel VBA -laskurista

  • Aikakierroslaskurin toteuttaminen on erittäin helppoa, kuten näimme esimerkissä-2.
  • VBA-laskurilla on monia toteutustyyppejä, tämä ei rajoitu vain näkemiemme esimerkkeihin.

Muistettavat asiat

  • Aina on parempi antaa koodi mille tahansa painikkeelle, kun olemme suorittaneet vähintään 2 koodityyppiä yhdessä prosessissa.
  • Poistu suunnittelutilasta, kun koodin määritys ja suorittaminen on suoritettu Kehittäjä-välilehdellä.
  • Voimme myös luoda reaaliaikaisen laskurin, jossa näemme ajanlaskun tai katsellaksemme aikaa todellisuudessa.
  • Tallenna makro makroon ottaen käyttöön excel-tiedostomuoto, jotta et menetäisi koodiamme.

Suositellut artikkelit

Tämä on opas VBA-laskuriin. Tässä keskustellaan kuinka luodaan VBA-laskuri Excelissä käyttämällä VBA-koodia yhdessä käytännön esimerkkien ja ladattavan Excel-mallin kanssa. Voit myös tarkastella seuraavaa artikkelia saadaksesi lisätietoja -

  1. VBA OverFlow -virheen käyttö Excelissä
  2. Esimerkkejä VBA 1004 -virheestä
  3. Kuinka käyttää VBA DoEvents -sovellusta?
  4. Menetelmät piilojen piilottamiseksi VBA: ssa

Luokka:

VBA