Read our blogs, tips and tutorials
Try our exercises or test your skills
Watch our tutorial videos or shorts
Take a self-paced course
Read our recent newsletters
License our courseware
Book expert consultancy
Buy our publications
Get help in using our site
545 attributed reviews in the last 3 years
Refreshingly small course sizes
Outstandingly good courseware
Whizzy online classrooms
Wise Owl trainers only (no freelancers)
Almost no cancellations
We have genuine integrity
We invoice after training
Review 30+ years of Wise Owl
View our top 100 clients
Search our website
We also send out useful tips in a monthly email newsletter ...
Software ==> | Advanced VBA (28 exercises) |
Topic ==> | Revision of VBA (4 exercises) |
Level ==> | Relatively easy |
Subject ==> | VBA training |
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.
Open the workbook in the above folder. It gives the ten best films of all time, as listed on RottenTomatoes:
Who's this Dr. Caligari, anyway?
Your task is to write a macro to loop over the titles shown selected above, colouring in the films which have garnered more than 100 reviews. One way to get a reference to the films to loop over is this:
'set a variable to refer to the column of films
Dim FilmRange As Range
'get a reference to block of films
Set FilmRange = Range( _
Range("B4"), _
Range("B4").End(xlDown))
Your algorithm for the rest of the macro could be:
'FOR EACH film IN the range of films
'IF the value of the cell 2 to the right is more than 100 THEN
'show film in immediate window
'colour in film's cell
'END IF
'NEXT
One way to colour in a cell is like this:
FilmCell.Interior.Color = RGB(200, 200, 255)
The final output should look like this:
It might have been easier to colour them manually ...
Save this workbook as Coloured films, then close it down.
You can find other training resources for the subject of this exercise here:
Kingsmoor House
Railway Street
GLOSSOP
SK13 2AA
Landmark Offices
99 Bishopsgate
LONDON
EC2M 3XD
Holiday Inn
25 Aytoun Street
MANCHESTER
M1 3AE
© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.