ALL SOFTWARE EXERCISES
- EXERCISES HOME PAGE (837)
- Access 2010 (66)
- Access VBA Macros (17)
- Advanced VBA (29)
- ASP.NET MVC (0)
- ASP.NET webforms - C# (25)
- ASP.NET webforms - VB (27)
- Excel 2010 (83)
- Excel 2013 (10)
- Excel VBA Macros (37)
- Power BI - Excel 2013 (25)
- Power BI - Excel 2016 (23)
- Power BI Desktop (26)
- PowerPivot 2010 (26)
- Report Builder 3.0 (42)
- SQL (153)
- SSAS - multidimensional (21)
- SSAS - tabular (29)
- SSIS Integration Services (18)
- SSRS Reporting Services (53)
- Visual Basic 2010 (42)
- Visual C Sharp 2010 (65)
- WPF - Visual C# (20)
ADVANCED VBA EXERCISES
Exercise: Colour all of the films which got more than 100 reviews
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.
The answer to the exercise will be included and explained if you attend the Wise Owl course listed below!
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.
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( _
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
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.