This article is part of our VBA Crash Course. Please read the rest of the articles in this series by clicking below links.
- What is VBA & Writing your First VBA Macro in Excel
- Understanding Variables, Conditions & Loops in VBA
- Using Cells, Ranges & Other Objects in your Macros
- Putting it all together – Your First VBA Application using Excel
- My Top 10 Tips for Mastering VBA & Excel Macros
Introduction to Excel VBA
Everyone has a language. My mother tongue is Telugu. But I also speak Hindi, English and Cutish (that is the language my 2 year old kids speak). You may be fluent in English, Spanish, French, German or Vietnamese.
Just like you and I, Excel has a language too, the one it can speak and understand. This language is called as VBA (Visual Basic for Applications).
When you tell instructions to Excel in this VBA language, Excel can do what you tell it. Thus enabling you to program Excel so that you can automate a boring report, format a big&ugly chart, clean-up some messy data or just play some random noises.
What is a Macro then?
A macro is nothing but a set of instructions you give Excel in the VBA language.
Writing Your First Macro
Note: If you are new computer programming, watch our Introduction to Programming Video before proceeding.
In order to write your first VBA program (or Macro), you need to know the language first. This is where Excel’s tape recorder will help us.
Tape Recorder?!?
Yes. Excel has a built-in tape recorder, that listens and records everything you do, in Excel’s own language, ie VBA.
Since we dont know any VBA, we will use this recorder to record our actions and then we will see recorded instructions (called as code in computer lingo) to understand how VBA looks like.
Our First VBA Macro – MakeMeRed()
Now that you understand some VBA jargon, lets move on and write our very first VBA Macro. The objective is simple. When we run this macro, it is going to color the currently selected cell with Red. Why red? Oh, red is pretty, bright and awesome – just like you.
This is how our macro is going to work when it is done.
6 steps to writing your first macro
If you do not see Developer ribbon, follow these instructions.
Excel 2007:
1. Click on Office button (top left)
2. Go to Excel Options
3. Go to Popular
4. Check “Show Developer Tab in Ribbon” (3rd Check box)
5. Click ok.
Excel 2010:
1. Click on File Menu (top left)
2. Go to Options
3. Select “Customize Ribbon”
4. Make sure “Developer tab” is checked in right side area
5. Click ok.
Step 1: Select any cell & start macro recorder
This is the easiest part. Just select any cell and go to Developer Ribbon & click on Record Macro button.
Step 2: Give a name to your Macro
Specify a name for your macro. I called mine MakeMeRed. You can choose whatever you want. Just make sure there are no spaces or special characters in the name (except underscore)
Click OK when done.
Step 3: Fill the current cell with red color
This is easy as eating pie. Just go to Home ribbon and fill red color in the current cell.
Step 4: Stop Recording
Now that you have done the only step in our macro, its time to stop Excel’s tape recorder. Go to Developer ribbon and hit “stop recording” button.
Step 5: Assign your Macro to a button
Now go to Insert ribbon and draw a nice rectangle. Then, put some text like “click me to fill red” in it.
Then right click on the rectangle shape and go to Assign Macro. And select the MakeMeRed macro from the list shown. Click ok.
Step 6: Go ahead and play with your first macro
That is all. Now, we have linked the rectangle shape to your macro. Whenever you click it, Excel would drop a bucket of red paint in the selected cell(s).
Go ahead and play with this little macro of ours.
Understanding the MakeMeRed Macro Code
Now that your first macro is working, lets peek behind the scenes and understand what VBA instructions are required to fill a cell with red.
To do this, right click on your current sheet name (bottom left) and click on View code option. (You can also press ALT+F11 to do the same).
This opens Visual Basic Editor – a place where you can view & edit various VBA instructions (macros, code) to get things done in Excel.
Understanding the Visual Basic Editor:
Before understanding the MakeMeRed macro, we need to be familiar with VBE (Visual Basic Editor). See this drawing to understand it.
Viewing the VBA behind MakeMeRed
- Select Module 1 from left side area of VBE (called as Project Explorer).
- Double click on it to open it in Editor Area (top right, big white rectangle)
- You can see the VBA Code behind MakeMeRed
If you have followed the instructions above, your code should look like this:
Sub MakeMeRed()
'
' MakeMeRed Macro
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 192
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
So much for a simple red paint!!!
Well, what can I say, Excel is rather verbose when it is recording.
Understanding the MakeMeRed VBA Code
Lets go thru the entire Macro code one line at a time.
- Sub MakeMeRed(): This line tells Excel that we are writing a new set of instructions. The word SUB indicates that the following lines of VBA are a sub-procedure (or sub-routine). Which in computer lingo means, a group of related instructions meant to be followed together to do something meaningful. The Sub-procedure ends when Excel sees the phrase “End Sub”
- Lines starting with a single quote (‘): These lines are comments. Excel will ignore anything you write after a single quote. These are meant for your understanding.
- With Selection.Interior: While filling a cell with Red color may seem like one step for you and I, it is in fact a lot of steps for your computer. And whenever you need to do a lot of operations on the same thing (in this case, selected cell), it is better to bunch all of them. This is where the WITH statement comes in to picture. When Excel sees With Seletion.Interior, Excel is going to think, “ok, I am going to do all the next operations on Selected Cell’s Interior until I see End With line“
- Lines starting with .: These are the lines that tell Excel to format the cell’s interior. In this case, the most important line is .Color = 192 which is telling Excel to fill Red color in the selected cell.
- End With: This marks the end of With block.
- End Sub: This marks the end of our little macro named MakeMeRed().
Few Tips to understand this macro better:
Once you are examining the macro code, here are a few ways to learn better.
- Change something: You can change almost any line of the macro to see what happens. For example, change .color = 192 to .color = 62 and save. Then come back to Excel and run your macro to see what happens.
- Delete something: You can remove some of the lines in the macro to see what happens. Remove the line .PatternColorIndex = xlAutomatic and run again to see what happens.
Download Example Workbook to learn VBA
Click here to download the example workbook with MakeMeRed Macro.
Excel 2003 Compatible Version here.
Play with the code & understand this better.
What Next – Understanding Variables, Conditions & Loops
In the part 2 of this tutorial, Learn about variables, conditions & loops – basic programming structures of VBA.
Do you write VBA Code? Share your experience?
Thanks to my college education & job experience. I am trained to be a programmer. So I find VBA quite intuitive and easy to use. But that may not be the case for many of you who latch on to VBA without any formal education.
I would like to know how you learn VBA and what experiences you had when you wrote that first macro. Please share using comments.
Join Our VBA Classes
We run an online VBA (Macros) Class to make you awesome. This class offers 20+ hours of video content on all aspects of VBA – right from basics to advanced stuff. You can watch the lessons anytime and learn at your own pace. Each lesson offers a download workbook with sample code. If you are interested to learn VBA and become a master in it, please consider joining this course.
32 Responses to “More than 3 Conditional Formats in Excel”
Dude,
Long time... whts up , I see that urs is the only business which is posting a "Excel" lent growth in this recessionary market....
Still alive ... so you will be able to reach me if make an attempt... 🙂
V E R Y N I C E !!!!
Hi Chandoo.
When I use your macro in my file, I keep getting a Compile Error because the "cell" variable is not defined.
Any suggestions?
@Lincoln: Did you have "option explicit" on?
I am sorry, I didn't define the cell variable.
you can add this line to the code just below the line "dim i"
dim cellLet me know if you still get this error...
Ah. I've simply declared cell as a range.
All good now
Noob at work.
Thanks for the article. Very helpful. 🙂
very, very helpful. I didn't know what "define named ranges" meant. one of my colleagues figured it out. I suggest you add the instruction "go to menu - insert/name/define and then make sure the cells at the bottom of the box change to reflect new values if you redefine the range." thanks.
Quite Intresting. If anyone could help. I am trying to do something like this but i want to define values and colours of the value in a range of cells ( Similiar) but i want the other cells to change colour when the value is same as the range defined. ANy help. I want instantaneous( Like conditional formatting) not like running macro.
@Jahabar: Welcome to PHD and thanks for the comments.
If your source range and target range have same dimensions and source range has 4 different formats (conditional formatting limitation, unless you are using excel 2007) you can do this. If you have more than 4 formats then you may have to use VBA (and create an event like worksheet_change and monitor the range).
Let me know if you come across a simple non-vba solution for this. 🙂
very nice post...
May I suggest a little modification of the code?
Adding "Application.ScreenUpdating = False" at the beggining of the macro and "Application.ScreenUpdating = True" at the end speeds up significantly the whole procedure. As well as omitting "Operation:=xlNone, SkipBlanks:=False, Transpose:=False".
Not a big deal in this example, but when formatting a larger range of cells, the difference is marked. I've tried to format the number 1457 of cells and the formatting was done 11 seconds faster. :-O
[...] you can overcome the conditional formatting limitation using VBA macros (again, if you are new to excel, you may want to wait few weeks before plunging in to [...]
Hi Chandoo
Thanks for this macro. I have done few changes to this macro to suit my needs. I had removed the defined names data2use and conditions2use to ActiveWindow.RangeSelection.Address
This way I can select the cells that require conditional formatting and then run the macro.
Kind Regards,
Vasanth
Chandoo, I am using 2007. I noticed the conditional formatting options are different - and they have some built in funtictions for stop light displays, and other dashboard type elements. My question is this, I need to display more colors in the stop light than the standard 3. The World Health Org (WHO) has a Pandemic Flu alert level between 0-6, so i wanted to drive a sharepoint dashboard using excel based on 7 distinct levels. Suggestions?
@ASM: very good idea. you can use font based symbols instead of excel traffic light icons to achieve this. the character "=" becomes a small circle when you change the font to "webdings". So you just need to insert a bunch of = signs and use conditional formatting to change the font color. If you need to combine numbers with symbols, then you can use 2 columns instead of one and format them accordingly. Let me know if you need some more help with this.
Also, if possible, share with us your dashboard when it is ready.
[...] Once we calculate values for all team members using the above formula, we can apply conditional formatting to make the heat map. In Excel 2007, this is one step. In earlier versions of excel, you need to specify 3 conditions to make the heatmap look hot enough or use a macro to get over the 3 conditional formats limitation. [...]
Chandoo,
Why do you use the "conditions2use" since you can change the VBA and replace "conditions2use" with "data2use" and you won't have to create a zone for conditional formating equal to the data zone.
The Data will be formated according the "formats2use". Just one thing, if you plan to have some "0" on your data zone, they will be formated like the first cell above your "formats2use" (the green cell with "Formats" inside in your exemple".
That's why you should leave a white empty cell above the first cell of the "formats2use" zone.
Regards,
Pitichat
Seeing as no one has posted what they actually might use something like this for here's my 2cents;
I used the same concepts to build a heatmap of a casino gaming floor, with each populated cell representing a gaming machine (Slot Machine), some simple metric bucketing to determine different shades for the cells, user selectable colours, ability to pick a 'machine' (click on a cell) and repaint the 'floor' showing only machines with similar charateristics, select a value range and repaint the 'floor' showing only the 'machines' within the value range. Users could switch between metrics and repaint the the floor.
It took a while to put together, but once in use was rolled out to four casinos and used for 4 years. It provided a portable (i.e. no custom software), easy to understand way to manage product from individual machine to groups / classes of product and made it very easy to see how products were performing in geographic relation to each other (something that tables & graphs can't easily do)
Needless to say it "wowed" many people who only saw Excel as a tool for managing numbers and table based reports
Being excel just about any user could maintain spreadsheet.
@ Justin B - Hey Justin, that counds AWESOME! Can I get a copy of the casino tracker, I work within a similar industry and would love to see how you've constructed it.
Also, from using this heatmap, I think I'm getting confused. To make the map change color, I thought you had to change the DATA2USE cells, but I see it only changes if you change the vales of thew cells within the CONDITIONS2USE cells. Am I thinking this wrong?????
Thanks all, this is REALLY making my life easier!!
Hi Dude,
Thanks for this very useful macro. That was very helpful.
Kepp up the good work.
Cheers.
Explanation like yours is so important to everyone that want to learn more and more in Excel. Thanks a lot. You are the man ! 🙂
[...] http://chandoo.org/wp/2008/10/14/more-than-3-conditional-formats-in-excel/ [...]
Chandoo,
If I wanted to replace the numbers 1-9 with text A-I, what would I need to do to the macro to make it work correctly?
Thanks!
@Lee
If the numbers are alone and not part of larger numbers >10 or with text you can simply use this formula
=CHAR(A1+64)Change A1 to your cell
Copy Down/Across as required
Then select the new cells and copy/paste as Values over themselves.
I'm trying to do a drop down list that will allow me to select a color and when I select that color it will change my cell to that color. i cannot use contion formating because I have 5 colors. Can you help me with this?
thanks
This tool was great. Can you please suggest a way to include conditions like if value in a cell lies in a range color some other cell red.
What do I need to change in the programing if I have a mix of numbers and letters. Example; 5003, 2B01, W005, 1020. I think the problem is the CInt code but I'm not sure.
EXCELlent - was able to use your macro with no problems. Found that modifying it to use the DATA2USE range achived the same result as using the condition2use range. If the two ranges were equal, your way allows the data range to have completely different values and still have the same color format at the end.
My data is a little different
I have an irregular shaped building with students in it.
I have a list of students assigned to the rooms with the courses they are on
and a color code for the courses
would there be a way of using indirect to translate the student names to color code the rooms to what courses they are on?
[...] hi Check below link More than 3 Conditional Formats in Microsoft Excel - How to? | Chandoo.org - Learn Microsoft Excel O... [...]
The ability to conditional format a range of cells based on criteria in a different, but matching for size, range of cells is exactly what I've been looking for. Unfortunately the macro falls over at the line conditions (i) = CInt (cell.value). I have specified the 3 rangenames, working in excel 2003 but cannot get it to work. Any ideas. I've checked rangenames several times (0-16 being used) but no luck. Thanks
Hello you also can use this code to force ur worksheet to run with more then on condition.
in this case the condition = case like in example if u want to format something between of the range 0 to 100 for a color
Set I = Intersect(Target, Range("B2:B8")) <-- thatch the rage u want to work with just set it up for range of cell u want to use to format
the second formula will show u Interior color nr index just time it and when u format the cell with a color it will show nr in the cell
enjoy
Private Sub Worksheet_Change(ByVal Target As Range)Set I = Intersect(Target, Range("B2:B8"))
If Not I Is Nothing Then
Select Case Target
Case 0 To 100: NewColor = 37 ' light blue
Case 101 To 200: NewColor = 46 ' orange
Case 201 To 300: NewColor = 12 ' dark yellow
Case 301 To 400: NewColor = 10 ' green
Case 401 To 600: NewColor = 3 ' red
Case 601 To 1000: NewColor = 20 ' lighter blue
End Select
Target.Interior.ColorIndex = NewColor
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("F1:F1") = Range("F1:F1").Interior.ColorIndex
End Sub
Hi Chandoo,
I tried to add the "More than 3 conditional formats for Excel" VBA macro
to my Excel 2008 for Mac and it didn't work. Would this VBA macro work
with Excel 2011 for Mac? Does it have to be a certain version: Student,
Home & Office, or Standard?
Thanks for your help.
Tom
[…] here is one vba macro that might be better if need lots of cases http://chandoo.org/wp/2008/10/14/more-than-3-conditional-formats-in-excel/ […]