This page has 0 threads | Add post

Exercises

Finding our exercises useful? Please consider helping us to share more!

Software ==>	Excel VBA Macros (52 exercises)
Topic ==>	Looping over collections (11 exercises)
Level ==>	Average difficulty
Subject ==>	VBA training

Write VBA code in Excel to loop over a collection of cells to pick a set of six random numbers to use in a lottery.

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

Before you can do this exercise, you'll need to download and unzip this file .

Open the file called Lucky Dip.xlsx and create a subroutine to generate a set of random lottery numbers:

You need to create 6 random numbers between 1 and 59 (they don't need to be in order).

To do this, start by looping over the six cells that you need to populate using a For Each loop. Inside the loop, add a line which generates a random number between 1 and 59 and captures it in a variable. You can use the RandBetween function to do this:

Num = WorksheetFunction.RandBetween(1, 59)

Add a line to write the number in the variable into the cell that the loop is pointing to, then run the subroutine a few times to test it.

One problem is that you might generate the same number multiple times.

Add a Do Loop structure around the line which calculates a random number. Add a condition to this loop so that it continues Until it generates a number that isn't already in the worksheet.

You could use the Find method and check that its result Is Nothing to establish that the number isn't already in the worksheet.

Add a line at the start of the subroutine which clears the contents of the cells you're looping over.

If you'd like to see your numbers sorted, you could add the code shown below:

With Sheet1.Sort

.SortFields.Clear

.SortFields.Add Key:=Range("B3:G3")

.SetRange Range("B3:G3")

.Orientation = xlLeftToRight

.Apply

End With

Save and close the workbook.

You can unzip this file to see the answers to this exercise, although please remember this is for your personal use only.

You can find other training resources for the subject of this exercise here:

This page has 0 threads

Add a new post

Head office

Kingsmoor House

Railway Street

GLOSSOP

SK13 2AA

London

Landmark Offices

99 Bishopsgate

LONDON

EC2M 3XD

Manchester

Holiday Inn

25 Aytoun Street

MANCHESTER

M1 3AE

Visual C# training

Excel training courses

Power Automate training

Power BI / DAX training

Python training courses

SQL training courses

VBA (macros) training

Site map

Terms & Conditions

EXERCISE TOPIC

VBA EXERCISES

EXCEL VBA MACROS EXERCISES

Write VBA code in Excel to loop over a collection of cells to pick a set of six random numbers to use in a lottery.

Head office

London

Manchester