Please note javascript is required for full website functionality.


VBA Blogs: For Loops

14 April 2017

Last week, we showed you how to declare variables.  This week, we’re going to use a variable to create a loop.  Let’s introduce the For loop.

The basics of the For loop involve taking a variable, incrementing it until it gets to a certain target number, and performing a bit of code for each incremental step.  It looks a bit like this:

For X = 1 to 10

<Do this code for each of the 10 times>

Next X

We can use this to put together a simple example that counts the number of coin flips land Heads when we flip them 10 times.  Let’s combine a few of the things that we’ve learned.  If you like, you can copy the text below into VBA, or type it out yourself.

Sub FlipCoins()

Dim X as Integer

‘Declare an integer that will be incremented

Dim Heads as Integer

‘Declare a variable that will store the number of times a coin lands as Heads

Heads = 0

‘Set the initial value for the counter to be zero

For X = 1 to 10

If Rnd() >= 0.5 Then Heads = Heads + 1

‘Take a random number between 0 and 1.  If the value is greater than or equal to 0.5, then add one to the Heads counter.

Next X

MsgBox “You flipped” & Heads & “Heads over 10 coin flips.  Well done!”

End Sub

Have fun flipping coins!