Brojač u Excelu VBA

U MS Excel-u postoje razni načini brojanja. Možemo koristiti ugrađene funkcije kao što su Count, CountIf, CountA, CountBlank koje se nalaze u Excelu. Ali ove funkcije neće raditi ispravno u VBA i imaju ograničenja. Da bismo to prevladali, imamo mnogo funkcija i naredbi i postupak pomoću kojeg možemo izvršiti VBA Counter. VBA brojač koristi se za brojanje ćelije, brojanje sadržaja ćelije i koristi se i kao odbrojavanje vremena kada možemo implementirati vremenski list za mjerenje bilo kojeg zadatka.

Uz pomoć VBA Counter-a možemo ćelije prebrojati i njihovim indeksima boja. Ovaj indeks boja može slova slova ili boje pozadine i podebljane vrijednosti.

Kako stvoriti brojač u Excelu VBA?

Ispod su sljedeći primjeri za kreiranje brojača u Excelu pomoću VBA koda.

Možete preuzeti ovaj VBA Counter Excel predložak ovdje - VBA Counter Excel predložak

VBA brojač - Primjer # 1

U stupcu A. imamo neke podatke o slučajnim brojevima. Sve navedene vrijednosti su slučajne i nemaju vezu, kao što su niz ili niz. Sada ćemo uz pomoć procesa VBA Counter brojati gornje i najnovije brojeve vrijednosti i dobiti izlaz u ćeliji D2 i D3.

Brojat ćemo i istovremeno ih obojati prema tekstu boje u ćeliji C2 i C3.

Za to slijedite dolje navedene korake:

Korak 1: Stvorite naredbeni gumb koji je dostupan na kartici Programeri ispod aktivne X kontrole izbornika kao što je prikazano u nastavku.

2. korak: Sada napravite gumb kao što je prikazano u nastavku.

Korak 3: Kliknite desno na stvoreni gumb i prijeđite na opciju Svojstva .

Korak 4: Promijenite naslov gumba koji podrazumijeva kao CommandButton2 na bilo koje željeno ime. Ovdje smo to promijenili u "Broj stanica po vrijednosti ".

Korak 5: Nakon završetka, desnom tipkom miša kliknite stvoren gumb i odaberite opciju View Code da biste dobili prozor VBA.

Visual Basic Editor je otvoren sada i prema zadanim postavkama već je stvoren potprogram za naredbeni gumb.

Kodirati:

 Privatni Sub CommandButton2_Click () Kraj Sub

Korak 6: Sada moramo proglasiti 3 varijable. Deklarirajte prvu varijablu u koju ćemo pohraniti brojeve i drugu varijablu pomoću koje ćemo brojač koristiti kao cijele brojeve kao što je prikazano u nastavku. A treća varijabla bit će dugačka brojanje brojeva pohranjenih u svakom retku.

Kodirati:

 Privatni Sub CommandButton2_Click () Dim A Kao Integer Dim Broj kao Cijeli Dim LRow Kao Long End Sub

Korak 7: Sada ćemo odabrati prvu ćeliju lista koja je A1 kao naš domet. Odavde ćemo birati stanice dok ne dobiju brojeve.

Kodirati:

 Privatni Sub CommandButton2_Click () Dim A kao Integer Dim Broj kao cijeli broj Dim LRow as Long LRow = domet ("A1"). CurrentRegion.End (xlDown) .Row End Sub

Korak 8: Sada ćemo otvoriti i napisati uvjet u For petlji za, ako ćelija ima vrijednost veću od 10, tada će boja fonta stanice biti promijenjena u Žuta, a za vrijednost manju od 10, boja fonta stanice će se promijeniti u Plava s indeksima boja 44 i 55 .

Kodirati:

 Privatni Sub CommandButton2_Click () Dim A kao Integer Dim Broj kao Integer Dim LRow as Long LRow = domet ("A1"). CurrentRegion.End (xlDown) .Row For A = 1 to LARow If Cells (A, 1). Value> 10 Zatim izbrojite = Broj + 1 ćelija (A, 1). Font.ColorIndex = 44 Druge ćelije (A, 1) .Font.ColorIndex = 55 Kraj Ako je sljedeći A Kraj Sub

Korak 9: Da bismo vidjeli izlaz vrijednosti iz ćelije A1 do kraja, mi ćemo izabrati stanice kao što je gore raspravljeno.

Kodirati:

 Privatni Sub CommandButton2_Click () Dim A kao Integer Dim Broj kao Integer Dim LRow as Long LRow = domet ("A1"). CurrentRegion.End (xlDown) .Row For A = 1 to LARow If Cells (A, 1). Value> 10 Zatim izbrojite = Broj + 1 ćelija (A, 1). Fon.ColorIndex = 44 Druge ćelije (A, 1) .Font.ColorIndex = 55 Kraj Ako su sljedeće stanice A (2, 4). Value = Broj stanica (3, 4) .Value = 12 - Count End Sub

Korak 10: Sada pokrenite kôd pritiskom na gumb.

Vidjet ćemo, ćelije koje sadrže brojeve manje od 10 istaknute su plavom bojom. A onaj veći od 10 istaknut je žutom bojom.

VBA brojač - primjer br. 2

U ovom ćemo primjeru koristiti VBA Counter za mjerenje vremena u kojem možemo mjeriti potrošnju koju obavljamo. Pretpostavimo da, ako trebamo izmjeriti vrijeme potrebno za dovršavanje bilo kojeg zadatka, postupak koji ćemo ovdje vidjeti je najbolje provesti.

Za to slijedite dolje navedene korake:

Korak 1: Stvorite 2 kartice bilo kojeg oblika iz izbornika Umetanje opcija oblika kako je dolje prikazano. Biramo Pravokutnik: Rounder Corners .

Korak 2: Stvorite 2 gumba i imenovajte ih Start i Reset pomoću kojih ćemo pokrenuti tajmer i očistiti vrijeme.

Korak 3: Sada prijeđite na VBA i otvorite modul iz izbornika Umetanje.

Korak 4: U to napišite podkategoriju Start timer kao što je prikazano u nastavku.

Kodirati:

 Pod Start () Kraj Sub

Korak 5: Razmotrite riječ za sljedeći redak, kao što je NextRow, gdje ćemo odabrati radni list u koji želimo implementirati kôd. Ovdje je naš list Sheet2 . I ovdje ćemo brojati retke od +1 ćelije koja je ćelija A2 dok ne dobijemo vrijednost datoteke kursora.

Kodirati:

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

Korak 6: Sada za ulazak u sljedeći red koristit ćemo vertex format gdje je 1 u zagradi za Y-os.

Kodirati:

 Pod start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Stanice (Rows.Count, 1) .End (xlUp). Row + 1 ćelije (NextRow, 1) = Sub kraj vremena

Korak 7: Napišite kod za resetiranje ispod istog početnog koda.

Kodirati:

 Sub reset () Kraj sub

Korak 8: Sada ćemo za resetiranje zadržati isti kod kao i Start, ali ključna riječ bit će promijenjena u LastRow i uklonimo +1 samo tako da ne moramo ući u drugi red.

Kodirati:

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

Korak 9: Sada da biste očistili podatke u posljednjoj ćeliji stupca A u prvu ćeliju, prvo odaberite raspon ćelija s funkcijom ClearContents .

Kodirati:

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

Sada zatvorite VBA prozor.

Korak 10: Desnom tipkom miša kliknite karticu Start i odaberite opciju Dodijeli makronaredbu .

11. korak: Odaberite početno podkodiranje koje smo gore napravili.

12. korak: Isto učinite i za gumb Reset. Dodijelite Reset pod-kôd gumbu Reset i kliknite na U redu i izađite iz načina dizajna kako biste izvršili kôd.

Korak 13: Sada prvo kliknite gumb Start . Vrijeme početka počet ćemo do 3:51:33.

14. korak: Sada ponovo pritisnite gumb Start 2-3 puta da dobijete više vremena. Vidjet ćemo, u svakoj iteraciji postoji jaz od nekoliko sekundi.

Korak 15: Sada nakon toga testirat ćemo gumb Reset . Kliknite Reset. Vidjet ćemo, podaci su sada očišćeni i spremni za još jedan krug prebrojavanja vremena.

Prosci Excel VBA brojača

  • Vrlo je lako implementirati brojač vremenskih krugova kao što smo vidjeli u primjeru-2.
  • VBA Counter ima mnogo vrsta implementacije, a to se ne ograničava samo na primjere koje smo vidjeli.

Stvari koje treba zapamtiti

  • Uvijek je bolje dodijeliti kod bilo kojem gumbu kada smo u jednom procesu izveli 2 ili više vrsta koda.
  • Izađite iz načina dizajna nakon dodjeljivanja koda i izvršavanja s kartice Razvojni programer.
  • Također možemo stvoriti brojač vremena uživo gdje možemo vidjeti odbrojavanje vremena ili gledati vrijeme u stvarnosti.
  • Spremite makronaredbu u makronaredbu u formatu excel datoteke kako ne bismo izgubili kod.

Preporučeni članci

Ovo je vodič za VBA šalter. Ovdje smo raspravljali o tome kako stvoriti VBA brojač u Excelu pomoću VBA koda zajedno s praktičnim primjerima i download-om Excel predloška. Možete pogledati i sljedeći članak da biste saznali više -

  1. Upotreba pogreške VBA Overlowlow u Excelu
  2. Primjeri pogreške VBA 1004
  3. Kako koristiti VBA DoEvents?
  4. Metode za sakrivanje stupaca u VBA

Kategorija:

VBA