Excel VBA Macros | Looping over collections exercise | Write a VBA macro version of Hangman

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.

Software ==> Excel VBA Macros  (52 exercises)
Version ==> Any version of Excel
Topic ==> Looping over collections  (11 exercises)
Level ==> Harder than average
Subject ==> VBA training
Before you can do this exercise, you'll need to download and unzip this file (if you have any problems doing this, click here for help).

You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

In the word game Hangman, a player tries to guess the letters of a hidden word:

Hangman game

The word to be guessed is "hidden" by dint of the fact that it's written in white font on a white background!


Write VBA code to allow you to play the game with a friend (your computer, possibly).  A good start would be to hide all of the shapes which make up the gallows, using code something like this:

Sub HideGallowsInitially()

Dim GallowsShape As Shape

For Each GallowsShape In ActiveSheet.Shapes

'hide the next shape in the gallows

GallowsShape.Visible = msoFalse

Next GallowsShape

End Sub

Note that when you loop over a collection of shapes, you have to prefix the name of the Shapes collection with a reference to the worksheet which contains them.

Here are some ideas for functions (not subroutines) that you could include in your code.  If you're not sure of the difference between a function and a subroutine, see the relevant pages in your courseware manual.

What the function could do Value returned Data type
Loop over the shapes in the gallows to determine if any remain invisible. True if the player still has more guesses left; False otherwise Boolean
Loop over the cells in the word to be guessed, determining if any remain white. True if the word has been fully guessed; False if some letters remain invisible. Boolean

When you've finished, save your file as Hangman with answers.  Before closing it down, you might like to show it off to your trainer!

You can unzip this file to see the answers to this exercise, although please remember this is for your personal use only.
This page has 0 threads Add post