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 ==>	Event handling (4 exercises)
Level ==>	Average difficulty
Subject ==>	VBA training

Use worksheet events to create a basic game of Battleships.

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 Battleship game.xlsx and create a subroutine which handles the SelectionChange event for Sheet1.

Use the drop down lists at the top of the code window.

The Target parameter returns a reference to the range that you select. Add a message box which tells the user the Address of the cell they have clicked on:

Test your code works by clicking on a cell.

Write an If statement which changes the fill colour of the cell to grey and shows a message if you click an empty cell:

Your message could resemble this one.

Add an Else clause which changes the fill colour to red and shows a message if the cell isn't empty.

Here we have included the type of ship you hit. A = aircraft carrier, B = battleship, C = cruiser, D = destroyer and S = submarine.

The game won't work if a user attempts to select multiple cells. Add an If statement at the start of the subroutine which checks if the Count or CountLarge property of the target is greater than 1. If so, display a message and exit the subroutine.