Števec v Excelu VBA

V MS Excel obstajajo različni načini štetja. Uporabimo lahko vgrajene funkcije, kot so Count, CountIf, CountA, CountBlank, ki so tam v Excelu. Toda te funkcije v sistemu VBA ne bodo delovale pravilno in imajo tudi omejitve. Da bi to premagali, imamo veliko funkcij in ukazov ter postopek, s katerim lahko izvedemo števec VBA. Števec VBA se uporablja za štetje celice, štetje vsebine celice in se uporablja tudi kot odštevalni števec, kadar lahko izvedemo časovnik za merjenje katere koli naloge.

S pomočjo števca VBA lahko celice preštejemo tudi z njihovimi barvnimi indeksi. Ta barvni indeks lahko tudi barve pisave ali barve ozadja celice in krepke vrednosti.

Kako ustvariti števec v Excelu VBA?

Spodaj so različni primeri za ustvarjanje števca v Excelu z uporabo kode VBA.

To predlogo VBA Counter Excel lahko prenesete tukaj - Predloga VBA Counter Excel

Števec VBA - Primer # 1

V stolpcu A. imamo nekaj podatkov o naključnih številkah. Vse omenjene vrednosti so naključne in nimajo povezave, na primer v zaporedju ali seriji. Zdaj bomo s pomočjo števca VBA Counter šteli zgornje in najnižje vrednosti in dobili izhod v celici D2 in D3.

Štetje bomo prešteli in hkrati barvali po barvnem besedilu v celicah C2 in C3.

Za to sledite spodnjim korakom:

1. korak: Ustvarite ukazni gumb, ki je na voljo na zavihku Developer pod menijem Vstavljanje Active X Control, kot je prikazano spodaj.

2. korak: Zdaj ustvarite gumb, kot je prikazano spodaj.

3. korak: Kliknite desno tipko na ustvarjeni gumb in pojdite na možnost Lastnosti .

4. korak: Spremenite napis gumba, ki je privzeta kot CommandButton2, na katero koli želeno ime. Tu smo to spremenili v » Štetje celic po vrednosti «.

5. korak: Ko končate, z desno miškino tipko kliknite ustvarjeni gumb in izberite možnost Prikaži kodo, da dobite okno VBA.

Zdaj se odpre Visual Basic Editor in privzeto je že ustvarjen podprogram za ukazni gumb.

Koda:

 Zasebni Sub CommandButton2_Click () Konec pod

6. korak: Zdaj moramo razglasiti 3 spremenljivke. Označite prvo spremenljivko, kamor bomo shranili številke in drugo spremenljivko, s katero bomo števec uporabili kot cela števila, kot je prikazano spodaj. In 3. spremenljivka bo dolga, da šteje številke, shranjene v vsaki vrstici.

Koda:

 Zasebni pod CommandButton2_Click () Dim A kot celo število Dim šteje kot celoten dim LRow kot dolgi konec pod

7. korak: Zdaj bomo izbrali prvo celico lista, ki je A1 kot naš razpon. Od tu naprej bomo izbirali celice, dokler ne bodo imeli številk.

Koda:

 Zasebni pod CommandButton2_Click () Dim A kot celo število Dim Število kot celo število Dim LRow as Long LRow = domet ("A1"). CurrentRegion.End (xlDown) .Row End Sub

Korak 8: Zdaj odpremo in zapišemo pogoj v zanko For za, če ima celica vrednost večjo od 10, potem bo barva pisave celice spremenjena v Rumena in za vrednost manjša od 10, se bo barva pisave celice spremenila v Modra z barvnima indeksoma 44 oziroma 55 .

Koda:

 Zasebni pod CommandButton2_Click () Dim A kot celoštevilko Dim šteje kot celo število Dim LRow as Long LRow = domet ("A1"). CurrentRegion.End (xlDown). 10 Nato štejte = Število + 1 celice (A, 1).

Korak 9: Zdaj, da vidimo izhodne vrednosti iz celice A1 do konca, bomo izbrali celice, kot je razloženo zgoraj s spodnjo kodo.

Koda:

 Zasebni pod CommandButton2_Click () Dim A kot celoten Dim Številka kot celoten Dim LRow as Long LRow = Domet ("A1"). CurrentRegion.End (xlDown) .Row For A = 1 To LARow If Cells (A, 1) .Value> 10 Nato štejte = Štetje + 1 celice (A, 1). Konec.ColorIndex = 44 Druge celice (A, 1). Količek.KolorIndex = 55 Konec Če so naslednje celice A (2, 4) .Value = Število celic (3, 4) .Value = 12 - Številka konec Sub

Korak 10: Zdaj zaženite kodo s pritiskom na gumb.

Videli bomo, celice, ki vsebujejo številke manjše od 10, so označene z modro barvo. In tisti, ki je večji od 10, je poudarjen z rumeno barvo.

Števec VBA - Primer # 2

V tem primeru bomo uporabili števec VBA za merjenje časa, v katerem lahko merimo čas, ki ga opravljamo. Recimo, če moramo izmeriti čas, potreben za dokončanje katere koli naloge, je postopek, ki ga bomo videli tukaj, najboljši za izvajanje.

Za to sledite spodnjim korakom:

1. korak: Iz menija Vstavi možnosti Oblike, kot je prikazano spodaj, ustvarite 2 jezička katere koli oblike. Izbiramo pravokotnik: Rounder Corners .

2. korak: ustvarite 2 gumba in jih poimenujte kot Start in Reset, s katerimi bomo zagnali timer in počistili čas.

3. korak: Pojdite na VBA in v meniju Vstavljanje odprite modul.

4. korak: Vpišite podkategorijo Start timer, kot je prikazano spodaj.

Koda:

 Pod Start () Konec Pod

5. korak: Razmislite o besedi za naslednjo vrstico, na primer NextRow, kjer bomo izbrali delovni list, v katerem želimo implementirati kodo. Tu je naš list Sheet2 . In tukaj bomo prešteli vrstice od +1 celice, ki je celica A2, dokler ne bomo imeli datoteke s kurzorjem.

Koda:

 Pod Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Celice (vrstice.številka, 1) .End (xlUp) .Row + 1 konec pod

6. korak: Za vstop v naslednjo vrstico bomo uporabili vršno obliko, kjer je 1 v oklepaju za os Y.

Koda:

 Pod start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Celice (vrstice.številka, 1). Konča (xlUp) .Row + 1 celice (NextRow, 1) = podnapis

7. korak: Pod isto začetno kodo napišite kodo za ponastavitev.

Koda:

 Ponastavitev podnapisa () Konec pod

Korak 8: Zdaj za ponastavitev bomo obdržali isto kodo kot Start, vendar bo ključna beseda spremenjena v LastRow in odstranimo +1 le tako, da nam ne bo treba v drugo vrstico.

Koda:

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

9. korak: Če želite počistiti podatke v zadnji celici stolpca A, v prvo celico najprej izberite obseg celic s funkcijo ClearContents .

Koda:

 Podnastavitev () lastrow = ThisWorkbook.Sheets ("Sheet2"). Celice (vrstice.številka, 1). Konča (xlUp) .Row Range ("A2: A" & lastrow) .ClearContents End Sub

Zdaj zaprite okno VBA.

Korak 10: Z desno miškino tipko kliknite kartico Start in izberite možnost Dodeli makro .

11. korak: Izberite začetno pod kodiranje, ki smo ga storili zgoraj.

12. korak: Enako storite tudi za gumb Reset. Dodelijo podkodo Reset gumbu Ponastavi in kliknite OK in zapustite iz načina oblikovanja, da izvršite kodo.

Korak 13: Zdaj najprej kliknite gumb Start . Začetni čas bomo dobili 3:51:33.

14. korak: Zdaj ponovno kliknite gumb Start 2-3 krat, da dobite večkratni časovni zamik. Videli bomo, v vsaki iteraciji je nekaj sekund razmika.

Korak 15: Zdaj po tem bomo preizkusili gumb Reset . Kliknite na Ponastavi. Videli bomo, podatki so zdaj izbrisani in pripravljeni za še en krog štetja.

Prednosti Excela VBA Counter

  • Zelo enostavno je izvesti števec časovnih krogov, kot smo videli v primeru-2.
  • VBA števec ima veliko vrst izvajanja, to ni omejeno le na primere, ki smo jih videli.

Stvari, ki jih je treba zapomniti

  • Vedno je bolje, da kodo dodelimo poljubnemu gumbu, ko smo v enem postopku izvedli 2 ali več vrst kode.
  • Ko končate z dodelitvijo in izvedbo kode, zapustite način oblikovanja na zavihku Developer.
  • Izdelamo lahko tudi števec v živo, kjer lahko odštevamo čas ali si ogledamo čas v resnici.
  • Makro shranite v formatu datoteke Macro enable Excel, da ne izgubimo svoje kode.

Priporočeni članki

To je vodnik za VBA števec. Tukaj razpravljamo o tem, kako ustvariti števec VBA v Excelu z uporabo kode VBA skupaj s praktičnimi primeri in naloženo predlogo excela. Če želite izvedeti več, si oglejte tudi naslednji članek -

  1. Uporaba napake VBA Overflow Overcel v Excelu
  2. Primeri napake VBA 1004
  3. Kako uporabljati VBA DoEvents?
  4. Metode za skrivanje stolpcev v VBA

Kategorija:

VBA