Licznik VBA | Jak utworzyć licznik w Excel VBA? (z przykładami)

Licznik VBA programu Excel

W programie MS Excel dostępne są różne funkcje liczenia wartości, niezależnie od tego, czy jest to ciąg, czy liczby. Liczenie można przeprowadzić na podstawie pewnych kryteriów. Funkcje obejmują COUNT, COUNTA, COUNTBLANK, COUNTIF i COUNTIFS w programie Excel. Jednak te funkcje nie mogą wykonywać niektórych zadań, takich jak liczenie komórek na podstawie ich koloru, zliczanie tylko pogrubionych wartości itp. Dlatego utworzymy licznik w VBA, abyśmy mogli liczyć na tego typu zadania w programie Excel.

Stwórzmy jakiś licznik w Excel VBA.

Przykłady licznika Excel VBA

Możesz pobrać ten szablon VBA Counter Excel tutaj - VBA Counter Excel Template

Poniżej przykłady licznika w VBA.

Przykład 1

Załóżmy, że mamy dane jak powyżej dla 32 wierszy. Stworzymy licznik VBA, który będzie zliczał wartości większe niż 50 i jeszcze jeden licznik licząc wartości mniejsze niż 50. Kod VBA utworzymy w ten sposób, aby użytkownik miał dane dla nieograniczona liczba wierszy w programie Excel.

Aby zrobić to samo, kroki będą następujące:

Upewnij się, że karta Deweloper Excel jest widoczna. Aby karta była widoczna (jeśli nie), kroki są następujące:

Kliknij kartę „Plik” na wstążce i wybierz z listy opcję „Opcja” .

Wybierz z listy „ Dostosuj Wstążkę” , zaznacz pole „Deweloper” i kliknij OK .

Teraz widoczna jest zakładka „Deweloper” .

Wstaw przycisk polecenia za pomocą polecenia „Wstaw” dostępnego w grupie „Elementy sterujące” w zakładce „Deweloper” .

Trzymając wciśnięty klawisz ALT , utwórz przycisk polecenia za pomocą myszy. Jeśli będziemy nadal naciskać klawisz ALT , krawędzie przycisku polecenia zostaną automatycznie przeniesione z obramowaniem komórek.

Kliknij prawym przyciskiem myszy przycisk polecenia, aby otworzyć menu kontekstowe (upewnij się, że „Tryb projektowania” jest aktywny, w przeciwnym razie nie będziemy mogli otworzyć menu kontekstowego).

Wybierz „Właściwości” z menu.

Zmień właściwości przycisku polecenia, tj. Nazwę, podpis, czcionkę itp.

Kliknij ponownie prawym przyciskiem myszy i wybierz „Wyświetl kod” z menu kontekstowego.

Edytor Visual Basic jest teraz otwarty i domyślnie dla przycisku polecenia jest już utworzony podprogram.

Teraz napiszemy kod. Zadeklarujemy 3 zmienne. Jeden do celów pętli, jeden do zliczania i jeden do przechowywania wartości dla ostatniego wiersza.

Użyjemy kodu, aby wybrać komórkę A1, a następnie bieżący region komórki A1, a następnie przejdziemy do ostatniego wypełnionego wiersza, aby uzyskać numer ostatniego wypełnionego wiersza.

Uruchomimy pętlę „for” w języku VBA, aby sprawdzić wartości zapisane w komórce A2 do ostatniej wypełnionej komórki w kolumnie A. Zwiększymy wartość zmiennej „licznik” o 1, jeśli wartość jest większa niż 50 i zmienimy kolor czcionki komórki na „Niebieski”, a jeśli wartość będzie mniejsza niż 50, kolor czcionki komórki będzie „Czerwony” .

Po sprawdzeniu i zliczeniu musimy wyświetlić wartości. Aby zrobić to samo, użyjemy „VBA MsgBox”.

Kod:

 Private Sub CountingCellsbyValue_Click () Dim i, counter As Integer Dim lastrow As Long lastrow = Range ("A1"). CurrentRegion.End (xlDown) .Row For i = 2 To lastrow If Cells (i, 1) .Value> 50 Then counter = counter + 1 Cells (i, 1) .Font.ColorIndex = 5 Else Cells (i, 1) .Font.ColorIndex = 3 End If Next i MsgBox "Istnieją wartości" & counter & ", które są większe niż 50" & _ vbCrLf & "Istnieją" & lastrow - counter & "wartości mniejsze niż 50" End Sub

Dezaktywuj „Tryb projektowania” i kliknij przycisk „Polecenie” . Wynik byłby następujący.

Przykład nr 2

Załóżmy, że chcemy utworzyć licznik czasu za pomocą programu Excel VBA w następujący sposób:

Jeśli klikniemy przycisk „Start” , licznik czasu zostanie uruchomiony , a jeśli klikniemy przycisk „Stop” , stoper się zatrzyma.

Aby zrobić to samo, kroki będą następujące:

Utwórz taki format w arkuszu Excela.

Zmień format komórki A2 na „gg: mm: ss” .

Połącz komórki C3 z G7 za pomocą polecenia Merge and Center Excel w grupie „Wyrównanie” na karcie „Strona główna” .

Podaj odwołanie do komórki A2 dla właśnie scalonej komórki, a następnie wykonaj formatowanie, takie jak nadanie stylu czcionki `` Baskerville '' , rozmiar czcionki na 60 itp.

Utwórz dwa przyciski poleceń „Start” i „Zatrzymaj” za pomocą polecenia „Wstaw” dostępnego w grupie „Elementy sterujące” w zakładce „Deweloper” .

Za pomocą polecenia „Właściwości” dostępnego w grupie „Sterowanie” w zakładce „Deweloper” zmień właściwości.

Wybierz kolejno przyciski poleceń i wybierz polecenie „Wyświetl kod” z grupy „Elementy sterujące” na karcie „Deweloper” , aby napisać kod w następujący sposób.

Wybierz z listy rozwijanej odpowiedni przycisk polecenia.

Wstaw moduł do „ThisWorkbook” , klikając prawym przyciskiem myszy „Thisworkbook”, a następnie wybierz „Insert”, a następnie „Module” .

Napisz następujący kod w module.

Kod:

 Sub start_time () Application.OnTime Now + TimeValue ("00:00:01"), "next_moment" End Sub Sub end_time () Application.OnTime Now + TimeValue ("00:00:01"), "next_moment",, False End Sub Sub next_moment () Jeśli Arkusze ("Licznik czasu"). Zakres ("A2"). Wartość = 0 Następnie zamknij podarkusze ("Licznik czasu"). Zakres ("A2"). Wartość = Arkusze ("Czas Licznik ”). Zakres („ A2 ”). Wartość - TimeValue („ 00:00:01 ”) start_time End Sub

We have used the ‘onTime‘ method of the Application object, which is used to run a procedure at a scheduled time. The procedure, which we have scheduled to run, is “next_moment”.

Save the code. Write the time in the A2 cell and click on the ‘Start’ button to start the time counter.

Example #3

Suppose, we have a list of students along with marks scored by them. We want to count the number of students who passed and who failed.

To do the same, we will write the VBA code.

Steps would be:

Open Visual Basic editor by pressing shortcut in excel Alt+F11 and double click on ‘Sheet3 (Counting Number of students)’ to insert a subroutine based on an event in Sheet3.

Choose ‘Worksheet’ from the dropdown.

As we pick ‘Worksheet’ from the list, we can see, there are various events in the adjacent dropdown. We need to choose ‘SelectionChange’ from the list.

We will declare the VBA variable ‘lastrow’ for storing last row number as a list for students can increase, ‘pass’ to store a number of students who passed and ‘fail’ to store a number of students who failed.

We will store the value of the last row number in ‘lastrow’.

We will create the ‘for’ loop for counting based on condition.

We have set the condition if the total marks are greater than 99 then add the value 1 to ‘pass’ variable and add 1 value to the ‘fail’ variable if the condition fails.

The last statement makes the heading ‘Summary’ bold.

To print the values in the sheet, the code would be:

Code:

 Private Sub Worksheet_SelectionChange( ByVal Target As Range) Dim lastrow As Long Dim pass As Integer Dim fail As Integer lastrow = Range("A1").CurrentRegion.End(xlDown).Row For i = 2 To lastrow If Cells(i, 5) > 99 Then pass = pass + 1 Else fail = fail + 1 End If Cells(1, 7).Font.Bold = True Next i Range("G1").Value = "Summary" Range("G2").Value = "The number of students who passed is " & pass Range("G3").Value = "The number of students who failed is " & fail End Sub

Now whenever there is a change in selection, values will be calculated again as below:

Things to Remember

Save the file after writing code in VBA with .xlsm excel extension otherwise macro will not work.
Use the ‘For’ loop when it is decided already that for how many times, the code in VBA loop will run.