Cell count in excel vba

VBA Count Function

In Excel, we use the count function to count the number of cells which contains numbers. Same can be done in VBA as well. In VBA, we can use the same function Count to get how many numbers of cells contain numbers. It only counts the cell with numbers. Values other than numbers cannot be counted.

Syntax of Count in Excel VBA

The syntax for the VBA Count function in excel is as follows:

How to Use VBA Count in Excel?

We will learn how to use a VBA Count Function with few examples in excel.

You can download this VBA Count Excel Template here – VBA Count Excel Template

Example #1 – VBA Count

For implementing this we have a list of some data in column A. This list contains numbers and texts as shown below. Now we with the help of Count function in VBA we will see, how many cells are having numbers. For this, we have identified a cell at A8 position, where we will see the output of Count Function through VBA.

Step 1: For this, we require a module. Go to Insert menu tab and click on Module option as shown below from the list.

Step 2: After that, we will get the blank window of Module. Now in that write the subcategory of VBA Count. Or choose any other name as per your choice.

Code:

Sub VBACount()

End Sub

Step 3: Select the range of the cell where we want to apply Count function. Here, our output cell is A8 as defined above. So we have selected it as our Range.

Code:

Sub VBACount()

Range("A8").

End Sub

Step 4: Now get the Value command, and it allows us to add the value in it.

Code:

Sub VBACount()

Range("A8").Value =

End Sub

Step 5: Now with the help of Count Function, select the range of the cells from which we want to get the count of a number of cells which contains Numbers only. Here, we have selected the range of cells from A1 to A6.

Code:

Sub VBACount()

Range("A8").Value = "=Count(A1:A6)"

End Sub

Ste 6: Once done then compile the code and run by clicking play button. As we can see below, the count of cells containing numbers is coming as 3. Which means the Count function in VBA has given the count of cells with numbers which are from cell A1 to A3.

Example #2 – VBA Count

In a similar way, we have another set of data. But this data has some dates, number with text along with numbers and text as shown below. We have fixed a cells C12 where we will see the output of Count function through VBA.

Now we will apply the Count function and see if this can Count date and number-text cells or not. We can choose to write the new code again or we can refer the same code which we have seen in example-1 and just change the reference cells.

Step 1: Go to Insert menu tab and click on Module option as shown below from the list.

Code:

Sub VBACount2()

End Sub

Step 2: Select the range of cell where we want to see the output. Here that cell is C12.

Code:

Sub VBACount2()

Range("C12").Value =

End Sub

Step 3: Now use the count function in inverted commas in select the range of those cells which we need to count. Here that range is from cell C1 to C10.

Code:

Sub VBACount2()

Range("C12").Value = "=Count(C1:C10)"

End Sub

Step 4: Now run the above code.

We will see the Count function has returned the count of cells as 6 as shown below. Which means, count function can count cells with Date as well. Here, the values which are highlighted as bold are those values which just got counted through Count function in VBA.

Example #3 – VBA Count

There is another way to use Count Function in VBA. This method involves using Active Cells of the sheet. Here we will use the same data which we have seen in example-1.

Step 1: Open a new module and create the subcategory in the name of VBA Count as shown below.

Code:

Sub VBACount3()

End Sub

Step 2: First, insert the ActiveCell function in VBA. This will help in selecting the range of cells.

Code:

Sub VBACount3()

ActiveCell.

End Sub

Step 3: Now with the function Formula, select the row number and column number which we want to insert in Count function. Here our reference Row is starting from 1 and Column is also 1.

Code:

Sub VBACount3()

ActiveCell.FormulaR1C1 =

End Sub

Step 4: Now insert the Count function under inverted commas as shown below.

Code:

Sub VBACount3()

ActiveCell.FormulaR1C1 = "=COUNT()"

End Sub

Step 5: Select the range of the cells from the point where we are applying the Count function. As we are going up from A8 to A1 so row count will be “-7” and column is first to nothing is mentioned to the row count “-2” from the starting point which is cell A8.

Code:

Sub VBACount3()

ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-2]C)"

End Sub

Step 6: Now select the range of cell where we want to see the output. Here at this range cell A8, we will see the cursor as well.

Code:

Sub VBACount3()

ActiveCell.FormulaR1C1 = "=COUNT(R[-7]C:R[-2]C)"
Range("B8").Select

End Sub

Step 7: Now run the code. We will see, the count function has returned the same count of number as 3 which we got in example-1.

Pros of VBA Count

1. It is as easy as applying Count Function in excel.
2. This is one of the easiest function that could be automated through VBA.
3. If the process Count is repeating multiple times then automating the same with the help of Count function in VBA is quite a time saving and effort minimizing way.

Things to Remember

• While applying the count function in VBA, always quote the function name in inverted commas.
• As we use Count in Excel, the same way is also seen while applying Count Function in VBA.
• The process of applying VBA Count can be done by recoding a macro as well.
• Always save the written code in VBA in Macro enable excel file format to avoid losing code.

Recommended Articles

This is a guide to VBA Count. Here we discuss how to use Excel VBA Count Function along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA Copy Paste
2. VBA Month
3. VBA Subscript out of Range
4. VBA Selecting Range

Excel VBA Counter

There are various functions in MS Excel to count values, whether a string or numbers. Counting can be done based on some criteria. Functions in Excel include COUNT, COUNTAThe COUNTA function is an inbuilt statistical excel function that counts the number of non-blank cells (not empty) in a cell range or the cell reference. For example, cells A1 and A3 contain values but, cell A2 is empty. The formula “=COUNTA(A1,A2,A3)” returns 2.
read more, COUNTBLANK, COUNTIFThe COUNTIF function in Excel counts the number of cells within a range based on pre-defined criteria. It is used to count cells that include dates, numbers, or text. For example, COUNTIF(A1:A10,”Trump”) will count the number of cells within the range A1:A10 that contain the text “Trump”
read more, and COUNTIFS in excel”COUNTIFSread more. However, these functions cannot do some tasks like counting the cells based on their color, counting only bold values, etc. That is why we will create a counter in VBA to count these tasks in Excel.

Let us create some counters in Excel VBA.

Examples of Excel VBA Counter

You can download this VBA Counter Excel Template here – VBA Counter Excel Template

Below are examples of the counter in VBA.

Example #1

Suppose we have data like the above for 32 rows. First, we will create a VBA counter, which will count the values greater than 50 and one more counter to count the values less than 50. Then, we will create the VBA codeVBA code refers to a set of instructions written by the user in the Visual Basic Applications programming language on a Visual Basic Editor (VBE) to perform a specific task.read more so the user can have data for unlimited rows in Excel.

To do the same, the steps would be:

Make sure the Developer tab Excel is visible. To make the tab visible (if not), the steps are:

First, click on the ‘File’ tab in the ribbon and choose ‘Option’ from the list.

Choose ‘Customize Ribbon’ from the list, check the box for ‘Developer,’ and click on OK.

Now the ‘Developer’ tab is visible.

Insert the command button using the ‘Insert’ command available in the ‘Controls’ group in the ‘Developer’ tab.

While pressing the ALT key, create the command button with the mouse. Then, if we keep pressing the ALT key, the edges of the command button go automatically with the border of the cells.

Right-click on the command button to open the contextual menu (make sure ‘Design Mode’ is activated; otherwise, we will not be able to open the contextual menu).

Choose ‘Properties’ from the menu.

Change the properties of the command button, i.e., Name, Caption, Font, etc.

Right-click again and choose the ‘View Code’ from the contextual menu.

Visual Basic Editor opens now. By default, it creates a subroutine for the command button.

We will write code now. But, first, we will declare 3 variables. One for loop purposes, one to count, and one to store the value for the last row.

We will use the code to select cell A1 and then the current region of cell A1 and then get down to the last filled row to get the last filled row number.

We will run a ‘for’ loop in VBA to check the values written in the A2 cell to the last filled cell in the A column. We will increase the value of the ‘counter’ variable by 1 if the value is greater than 50 and will change the font color of the cell to ‘Blue,’ and if the value is less than 50, then the font color of the cell would be ‘Red.’

After checking and counting, we need to display the values. To do the same, we will use ‘VBA MsgBoxVBA MsgBox function is an output function which displays the generalized message provided by the developer. This statement has no arguments and the personalized messages in this function are written under the double quotes while for the values the variable reference is provided.read more.’

Code:

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 "There are " & counter & " values which are greater than 50" & _
vbCrLf & "There are " & lastrow - counter & " values which are less than 50"

End Sub

Deactivate the ‘Design Mode’ and click on the ‘Command button.’ The result would be as follows.

Example #2

Suppose we want to create the time counter using Excel VBA as follows:

Then, if we click on the ‘Start’ button, the timer starts, and if we click on the ‘Stop’ button, the timer stops.

To do the same, the steps would be:

First, create a format like this in an Excel sheet.

Change the format of cell A2 to ‘hh:mm: ss.’

Merge the cells C3 to G7 by using the Merge and Center ExcelThe merge and center button is used to merge two or more different cells. When data is inserted into any merged cells, it is in the center position, hence the name merge and center. read more command in the ‘Alignment’ group in the ‘Home’ tab.

Give the reference of cell A2 for just merged cell and then do the formatting like make the font style to ‘Baskerville,’ font size to 60, etc.

Create two command buttons, ‘Start’ and ‘Stop,’ using the ‘Insert’ command in the ‘Controls’ group in the ‘Developer’ tab.

Change the properties using the ‘Properties’ command in the ‘Controls’ group in the ‘Developer’ tab.

Select the commands buttons one by one and choose the ‘View Code’ command from the ‘Controls’ group in the ‘Developer’ tab to write the code as follows.

Choose from the dropdown the appropriate command button.

Insert a module into ‘ThisWorkbookVBA ThisWorkbook refers to the workbook on which the users currently write the code to execute all of the tasks in the current workbook. In this, it doesn’t matter which workbook is active and only requires the reference to the workbook, where the users write the code.read more‘ by right-clicking on the ‘Thisworkbook,’ then choose ‘Insert’ and then ‘Module.’

Write the following code in the module.

Code:

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()
If Worksheets("Time Counter").Range("A2").Value = 0 Then Exit Sub
Worksheets("Time Counter").Range("A2").Value = Worksheets("Time Counter").Range("A2").Value - TimeValue("00:00:01")
start_time
End Sub

We have used the ‘onTime‘ method of the Application object to run a procedure at a scheduled time. The procedure 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 the shortcut in excelAn Excel shortcut is a technique of performing a manual task in a quicker way.read more 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 various events in the adjacent dropdown. But, first, we need to choose ‘SelectionChange’ from the list.

We will declare the VBA variableVariable declaration is necessary in VBA to define a variable for a specific data type so that it can hold values; any variable that is not defined in VBA cannot hold values.read more ‘lastrow’ for storing the last row number as a list for students can increase, ‘pass’ to store several students who passed, and ‘fail’ to store several 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 the ‘pass’ variable and add one 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 selection change, values will be calculated again as below:

Things to Remember

1. Save the file after writing code in VBA with the .xlsm excel extensionExcel extensions represent the file format. It helps the user to save different types of excel files in various formats. For instance, .xlsx is used for simple data, and XLSM is used to store the VBA code.read more. Otherwise, the macro will not work.
2. We must use the ‘For’ loop when we have already decided how many times the code in the VBA loopA VBA loop in excel is an instruction to run a code or repeat an action multiple times.read more will run.

Recommended Articles

This article has been a guide to VBA Counter. Here, we discuss how we will create a counter in excel VBA to count cells based on color, counting only bold values, etc. Below you can find some useful Excel VBA articles: –

• VBA With Statement
• VBA DoEvents
• VBA FreeFile
• VBA COUNTA Function