Podcast: Play in new window | Download
Subscribe: Apple Podcasts | Spotify | RSS
Three week ago I visited the Newton Excel Bach web site where I spotted the Dynamically Defined Dancing Pendulums NewtonExcelBach.
Having noticed that Doug had done a nice animation in Strand7 (a Finite Element Analysis program) Strand7, I thought “I can do that in Excel” and so I did.
This post will not go through the logic of constructing and animating the pendulums in Excel as I have described that over at Excelhero.com and readers who are interested are encouraged to visit there and explore the techniques used.
During the Pendulum project I came across two sub-projects which I felt are worthy of a post here at Chandoo.org as they are a great demonstration of some basic VBA techniques as well as demonstrating the ability of VBA to quickly simplify repetitive tasks.
Sample files are attached for Excel 97-2003 and Excel 2007/10 users to follow through the examples.
PENDULUM SIDE PROJECTS
The Pendulum project consists of 16 Pendulums. Each Pendulum requires 4 Named Formulas, meaning that the projects needs 64 Named Formulas for the 16 Pendulum, as well as adding 16 Series to the chart.
(The above animated GIF is a very poor representation of the smooth scrolling achieved in the Excel animation)
I thought it would be a great idea to see if these jobs could be automated and hopefully save some time during the process.
The result was 2 simple VBA routines which will be described below:
NAMED FORMULAS
Each Pendulum in the project was based around 4 Named Formulas
Named Formula for each Pendulum
p1Len =’1′!$B$9 The Length is stored on the worksheet.
p1o =OMax*SIN(SQRT(g/p1Len)*t) Current angular position of Pendulum 1 at time t
p1x =p1Len*SIN(p1o)*{0;1} Current orthogonal X position of Pendulum 1 at time t
p1y =-p1Len*COS(p1o)*{0;1} Current orthogonal Y position of Pendulum 1 at time t
The only difference between the formulas for Pendulum 1 and Pendulum 2 etc is the replacement of the names of p1 with p2 in the various Named Formulas and of the associated formulas.
On a worksheet Named Formulas a number of formulas were written which display the Named Formulas as required above. Then a small VBA routine was written which loads the Named Formulas.
How
On the Named Formulas worksheet, I have added two columns of formulas for the various Named Formulas required.
For the Pendulum Length Named Formulas
For the Pendulum Angular Position Named Formulas
For the Pendulum X Position Named Formulas
For the Pendulum Y Position Named Formulas
When the formula above are copied down they adjust for the various pendulums numbered 1 to 16 based on the row numbers.
I then setup a VBA routine, Load_Named_Ranges, shown below which loads the Named Formulas.
To Use
Select some or all of the required Named Formulas from the Name Column. That is the code will only load the Selected Named Formulas, allowing the user to load 1 or 2 Named Formulas, for testing purposes, or all the Named Formulas if you choose.
Then Execute the Load_Named_Ranges subroutine either using the Big Red Button or directly within the VBA Editor.
The following will load Named Formulas p3Len to p7Len.
The Load_Named_Ranges subroutine is shown below:
Sub Load_Named_Ranges() Dim c As Range For Each c In Selection ActiveWorkbook.Names.Add Name:=c.Text, RefersTo:=c.Offset(, 1).Text Next End SubWhat does the code do?
The code:
1. Defines the start and name of the subroutine,
Sub Load_Named_Ranges()
2. Defines a variable c as a Range object,
Dim c As Range
3. It then loops through each cell in the selection and assigns it to the variable ‘c’;
For Each c In Selection
4. It then adds a new Named Formula,extracting the Name from the Text Value of ‘c’ and extracts the formula from the cell directly to the right of cell ‘c’;
ActiveWorkbook.Names.Add Name:=c.Text, RefersTo:=c.Offset(, 1).Text
The Name and Formula (RefersTo) both use the Text of the cell, which is what is displayed.
5. It then loops through each cell in the selection until it has done them all;
Next
6. Defines the end of the subroutine;
End Sub
Lets Test It
To test the subroutine we will first delete all the Named Formulas beginning with “p”
Goto the Formula Ribbon Bar and select Name Manager
Select all the Named Formulas that begin with “P” and press the delete button
Accept any warnings
Try and Run the Pendulum’s
Nothing happens as there are no formulas
Ensure the Pendulum are turned off, as the code is still running behind the scenes.
Now Goto the Named Formulas Page
Select all the Named Formula Names in Name Column; B3:B66
Click the Load Named Formulas, button
Go back to Page 1 and try and run the Pendulums now.
ADD CHART SERIES
The second sub-project was the addition of 16 Chart series to the Chart, 1 for each Pendulum.
Using the logic of the Named Formulas VBA code above, the 16 Chart Series Names, X Values and Y values were developed using formulas on the Add Cht Series worksheet and then loading into a chart using a simple VBA routine.
The Add_Cht_Series subroutine is in the Add Cht Series sheet object in the VBA editor.
How
On the Add Cht Series worksheet, I have added three columns of formulas for the various Named Formulas required.
For the Pendulum Name, X Range and Y Range.
When these formulas are copied down they adjust for the various pendulums numbered 1 to 16.
I have then setup a VBA routine, Add_Chart_Series, shown below which loads the Named Formulas.
To use Select some or all of the required Chart Series from the Pendulum Name column.
Then Execute the Add_Chart_Series subroutine using the big red button.
The Add_Chart_Series subroutine is shown below:
Sub Add_Cht_Series() Dim sNumb As Integer Dim c As Range Worksheets(“1”).ChartObjects(“Chart 5”).Activate For Each c In Worksheets(“Add Cht Series”).Range(“B19:b20”) sNumb = ActiveChart.SeriesCollection.Count + 1 ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(sNumb).Name = c.Text ActiveChart.SeriesCollection(sNumb).XValues = c.Offset(, 1).Text ActiveChart.SeriesCollection(sNumb).Values = c.Offset(, 2).Text Next End Sub
What does the code do?
The code:
1. Defines the start and name of the subroutine,
Sub Add_Cht_Series()
2. Defines a variable sNumb as an integer, and a variable c as a Range object
Dim sNumb As Integer Dim c As Range3. It then activates the Chart containing the pendulum
Worksheets(“1”).ChartObjects(“Chart 5”).Activate
4. It then loops through each cell in the Range defined by the Range, in this case B19:B20 and assigns it to the variable ‘c’; You can adjust the Range to suit.
For Each c In Worksheets(“Add Cht Series”).Range(“B19:B20”)
5. It then counts how many existing series are in the chart and sets the next Series Number sNumb to that value + 1.
sNumb = ActiveChart.SeriesCollection.Count + 1
6. The next 4 lines add a new series to the chart and setup the new series Name, X Value and Y Values. The Name, X Value and Y Values are retrieved from the Text of the cell c and the adjacent two cells using a Range Offset modifier
ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(sNumb).Name = c.Text ActiveChart.SeriesCollection(sNumb).XValues = c.Offset(, 1).Text ActiveChart.SeriesCollection(sNumb).Values = c.Offset(, 2).Text7. It then loops through each cell in the selection until it has done them all;
Next
8. Define the end of the subroutine;
End Sub
Lets Test It
To test the subroutine we will first delete a few of the Chart Series
Select the Chart
Select two Pendulums noting the series Number of the Bobs eg: 9 & 10
Goto the Add Chart Series Worksheet
Note the Range Corresponding to the 2 missing Pendulum B11:B12
Goto the VBA Editor
Adjust the Line
For Each c In Worksheets(“Add Cht Series”).Range(“B11:B12”)
With your cursor in the Subroutine press F5 once only
Go back to Page 1 and you should now have 2 New Pendulum
Run the Pendulums now.
You will have to manually set the shape of the Bobs to a Circle and size 15 and re-arrange the order of the series to ensure they are in order, but you can practice that manually.
SUMMARY
The post has shown how using some very simple VBA and a bit of lateral thinking to put together some simple tools to simplify 2 common and repetitive tasks.
In the Named Formulas case, the code took less than 2 minutes for me to write and then another 5 minutes to do the formulas for the Named Formulas. I didn’t try but I am sure it would have taken a good 20+ minutes to enter 64 Named Formulas.
Writing this post took much longer than doing the whole Pendulum Project.
Two examples during my working career, where VBA code has been used to save massive amounts of time and money:
In the first case I wrote some code to combine data from several hundred workbooks with varying numbers of sheets up to 30 and differing quantities of data on each sheet, a task that could have taken weeks manually with the included opportunity for errors to be introduced, into a subroutine which took 30 minutes to run and gave a printout of the results including what files, sheets and rows of data were included in the import.
In a second case a Number of Workbooks, a Word template and some VBA code was used to replace a person whose sole job was to manage that data. This job saved the company $50k+ per annum and the task was given to a clerical person who could now do the task in their spare time.
LINKS
Huis Excel Hero Pendulum: http://www.excelhero.com/blog/
Pendulum Physics: http://hyperphysics.phy-astr.gsu.edu/hbase/pend.html
Newton Excel Bach: http://newtonexcelbach.wordpress.com/2011/05/25/dancing-pendulums-2/
What could your simplify by using automation within Excel ?
What could you simplify or speedup using Excel automation?
Let us know in the comments below:
15 Responses to “Compare 2 Lists Visually and Highlight Matches”
Hi,
I solved this in a little different way.
We have 2 lists, one starts at A1 and other at B1, both are vertical arrays.
First thing is define 2 named ranges, list1 and list2:
list1 refers to "=OFFSET(Sheet1!$A$1;0;0;SUMPRODUCT(--(Sheet1!$A$1:$A$1000""));1)"
list2 refers to "=OFFSET(Sheet1!$A$1;0;0;SUMPRODUCT(--(Sheet1!$B$1:$B$1000""));1)"
this way lists will be dynamically sized when you had or remove elements (you can't have blanks and you can't have more than 1000 elements).
Then I use conditional formatting in column A when this formula is true:
"=NOT(ISERROR(MATCH(A1;list2;0)))"
and "=NOT(ISERROR(MATCH(B1;list1;0)))" to list2.
This way we eliminate the need for auxiliary columns or lists.
Hope you like my way! 😀
Nunes
Simple conditional formatting formula.
Assuming lists vertical lists starting in A1 & B1
To highlight just one column (assume B for example)
Conditional formatting>New Rule>by formula
=MATCH(B1,$A$1:$A$99,0)
Set the cell fill to what ever color you prefer & press OK
To highlight both columns repeat with this formula for cell in column A
=MATCH(A1,$B$1:$B$99,0)
This approach doesn't require named fields or addtl columns
glw
Say I had 1 list in A2:A20 and another in B2:B20.
To format all the items in column A that are repeated in column B I would use the following Conditional Formatting rule.
=IF(ISNA(VLOOKUP(A2,$B$2:$B$20,1,false)),true,false)
All the duplicates are highlighted. It us a very simple example of comparison.
I may be missing something here, but I usually highlight both my lists by holding ctrl eg A1:A20 E10:E40 then choose conditional formatting from the ribbon and then highlight duplicates, and this does it?
Lee, I was perplexed as well. I do the same thing you do with the conditional formating. A drag and click to highlight range and choose highlight duplicates does the trick for me.
I believe these methods are to check if an item from one list also appears in the other list. So if an item mentioned many times in one list if also mentioned in the other list or not.
The Conditional Formatting highlight duplicates feature will do this, but it will also highlight an item if it appears multiple times in the one column or list.
Hi, I would just like to know (if you are willing to share) which image editing program you use to make your image like above, like they are torn apart from bottom? I've been looking for long.
@i48998
Chandoo is on Holidays, but Chandoo uses Paint.Net
Paint.net is a free download available at http://www.paint.net/
.
I use CorelDraw/PhotoPaint
.
We both use the Snipping Tool (a freebe with Win Vista/10)
.
We both use Camtasia for doing screen captures to make animated GIFs where you see animation.
Here is how I would accomplish
(1) Define Names: List_1, List_2
(2) =ISNA(MATCH(D4,List_2,0))-1 (Conditional Format formula List_1)
(3) =ISNA(MATCH(D4,List_1,0))-1 (Conditional Format formula List_2)
ISNA will return 1 if NO Match and O if Match by adding a -1 will make: NO Match 0 and Match a -1 which is True
Hi all
this my first Post here
i think we can take Unique List for tow list to know what is not Duplicate By this Array formula
=IFERROR(INDEX($D$6:$D$33,SMALL(IF(ISERROR(MATCH($D$6:$D$33,$B$6:$B$33,0)),ROW($D$6:$D$33)-ROW($D$6)+1),ROWS($J$5:J5))),"")
and this one for Duplicate Value
=IFERROR(INDEX($D$6:$D$33,SMALL(IF(ISNUMBER(MATCH($D$6:$D$33,$B$6:$B$33,0)),ROW($D$6:$D$33)-ROW($D$6)+1),ROWS($J$5:J5))),"")
Don't forget to Enter This Formula by Pressing Ctrl+Shift+Enter
without wanting to ruthlessly self promote here, I do have an addin that does neatly compare two ranges, not just in columns, so you might want to check that out.
Having said that this is a pretty neat solution if you dont want to be going down the VBA or purchase route. I like it
however, could you not do something with the remove duplicates feature in Excel 2010 and then compare the resulting data set?
Hi, Chandoo! I've found yesterday your Excel website... What can I say? It's just awesome, Excellent. Being a developer for 30 years, more than 15 with Office products, and wow!, how many things I discovered in a couple of hours, and what pretty resolved.
I decided to take the long path of the newbies and read all your examples and write down by myself all of them, and when I arrived to this (the comparison of two lists) I think I've found a problem:
a) in "Step 4: Apply conditional formatting to Second List - Use the same logic, but this time the rule becomes =COUNTIF(count1s,$H6)" it should say "Step 4: Apply conditional formatting to Second List - Use the same logic, but this time the rule becomes =COUNTIF(count1s,$H6)>0", but this is a typing error that I believe all of us here might have discovered and corrected
b) the very problem: I wrote down two different lists, in different ranges, and with different number of elements, I specified the equivalent conditional formats, et non voilá!, I didn't get what expected. So I downloaded your example book, I checked range names, formulaes, conditional formats and all OK. So I copied -just values- from my book to yours, and I still couldn't achieve the goal.
I'm using Excel 2010 in spanish, I'm from Buenos Aires (Argentina), and my book is at your disposition whenever you considerate it appropiate.
Thanks in advance for your time, and again my congratulations for your work here.
Best regards.
SirJB7
Comparison of 2 lists visually with highlights
Author: SirJB7 / Date: 11-Dic-2011
Pros: no duplicated tables, no matrix formulaes, no named ranges, no VBA code, just conditional formatting
Cons: not found yet, comments and observations welcome
Features:
a) standard problem: highlights in orange/yellow elements existing in the other list
b) optimized problem: idem a) plus highlights in red/violet first occurrence of elements existing in the other list
Sheet contents:
a) conditional format, 1 rule per list (2 methods used)
A1:A20, first list
B1:B20, second list
a1) range A1:A20, condition =NO(ESERROR(BUSCARV(A1;B$1:B$20;1;FALSO))), format Orange ---> in english: =NOT(ISERROR(VLOOKUP(A1,B$1:B$20,1,FALSE)))
a2) range B1:B20, condition =CONTAR.SI(A$1:A$20;B1)>0, format Yellow ---> in english: =COUNTIF(A$1:A$20,B1)>0
b) conditional format, 2 rules per list (2 methods used)
D1:D20, first list
E1:E20, second list
b1) range E1:E20, condition 1 =Y(NO(ESERROR(BUSCARV(D1;E$1:E$20;1;FALSO)));COINCIDIR(D1;D$1:D$20;0)=FILA(D1)), format Red ---> in english: =AND(NOT(ISERROR(VLOOKUP(D1,E$1:E$20,1,FALSE))),MATCH(D1,D$1:D$20,0)=ROW(D1))
same range, condition 2 and format 2, same as a1)
b2) range E1:E20, condition =Y(CONTAR.SI(D$1:D$20;E1)>0;COINCIDIR(E1;E$1:E$20;0)=FILA(E1)), format Violet ---> in english: =AND(COUNTIF(D$1:D$20,E1)>0,MATCH(E1,E$1:E$20,0)=ROW(E1))
same range, condition 2 and format 2, same as a2)
Personally I like the a2) and b2) solutions, I think the formulaes are prettier.
I still don't know the rules of this website and forum, but it any precept is infringed I'm willing to share the workbook with the solution. If it breaks a rule, I apologize and promise that won't happen again.
Best regards for all!
Dear All i have a complicated situation...
1. I have two sheets of data Sheet1 and Sheet2 (from various sources) - Both of these contain data matching and Not matching as well..
2. Now for me i need to build an excel where in i need to get sheet 3 with values that are present in a column of Sheet 1.
What ever Sheet 1 doesn't have i dont want those rows from sheet 2 to be populated into Sheet3.
Can any one help me out.
Hi Team
The above example is to compare partial name from 2 different columns.
If I want to cross check it in a single column. I have both correct and partial correct/match entries in a column. Is there any way I can find both the entries in the column.
Regards