Imagine you have a worksheet with lots of charts. And you want to make it look awesome & clean.
Solution?
Simple, create an interactive chart so that your users can pick one of many charts and see them.
Today let us understand how to create an interactive chart using Excel.
PS: This is a revised version of almost 5 year old article – Select & show one chart from many.
A demo of our interactive Excel chart
First, take a look at the chart that you will be creating.
Feeling excited? read on to learn how to create this.
Solution – Creating Interactive chart in Excel
- First create all the charts you want and place them in separate locations in your worksheet. Lets say your charts look like this.
- Now, select all the cells corresponding to first chart, press ALT MMD (Formula ribbon > Define name). Give a name like
Chart1.
- Repeat this process for all charts you have, naming them like
Chart2,Chart3… - In a separate range of cells, list down all chart names. Give this range a name like
lstChartTypes. - Add a new sheet to your workbook. Call it “Output”.
- In the output sheet, insert a combo-box form control (from Developer Ribbon > Insert > Form Controls)
- Select the combo box control and press Ctrl+1 (format control).
- Specify input range as
lstChartTypesand cell link as a blank cell in your output sheet (or data sheet).
[Related: Detailed tutorial on Excel Combo box & other form controls]
- Now, when you make a selection in the combo box, you will know which option is selected in the linked cell.
- Now, we need a mechanism to pull corresponding chart based on user selection. Enter a named range –
selChart. - Press ALT MMD or go to Formula ribbon > Define name. Give the name as
selChartand define it as
=CHOOSE(linked_cell, Chart1, Chart2, Chart3, Chart4)
PS: CHOOSE formula will select one of the Chart ranges based on user’s selection (help). - Now, go back to data & charts sheet. Select Chart1 range. Press CTRL+C to copy it.
- Go to Output sheet and paste it as linked picture (Right click > Paste Special > Linked Picture)
- This will insert a linked picture of Chart 1.
[Related: What is a picture link and how to use it?] - Now, click on the picture, go to formula bar, type =selChart and press enter
- Move the image around, position it nicely next to the combo box.
- Congratulations! Your interactive chart is ready 🙂
Video tutorial explaining this chart
Watch below tutorial to understand how to make this chart.
(or watch it on our Youtube channel)
Download Interactive Chart Excel file
Click here to download interactive chart Excel file and play with it. Observe the named ranges (selChart) and set up charts to learn more.
More Examples of Dynamic & Interactive Charts
If you want to learn more about these techniques, go thru below examples.
- Interactive sales analysis chart using Excel
- Use analytical charts to make your boss fall in love with you
- Making a dynamic chart with checkboxes
- How to make your charts & dashboards interactive – Detailed how to guide
- Lots of examples, tips & downloads on interactive & dynamic charts in Excel
Do you use interactive charts?
Dynamic & interactive charts are one of my favorite Excel tricks. I use them in almost all of my dashboards, Excel models and my clients are always wowed by them.
What about you? Do you use interactive charts often? What are your favorite techniques for creating them? Please share your tips & ideas using comments.
Want to learn more? Consider joining my upcoming Dashboards & Advanced Excel Masterclass
I’m very excited to announce my upcoming Advanced Dashboards in Excel Masterclass in USA.
Chandoo.org & PowerPivotPro.com will be hosting this two day, intensive hands-on Masterclass. Enhance your Excel skills to create interactive, dynamic and polished looking dashboards your boss will love. Don’t miss out, this is a one-time opportunity to attend my live workshop in Chicago, New York, Washington DC & Columbus OH in May and June 2013. Places are strictly limited.
Click here to know more & book your spot in my Masterclass
Above article is a preview of the tips and tricks you will be learning in the Masterclass.
14 Responses to “How many ‘Friday the 13th’s are in this year? [Formula fun + challenge]”
in C3=2016
in C4=3
in C5=1 (the first next year with three Friday the 13ths)
=SMALL(IF(MMULT(--(MOD(DATE(C3+ROW(1:1000),COLUMN(A:L),13),7)=6),ROW(1:12)^0)=C4,C3+ROW(1:1000)),C5)
formula check in the next 1000 years
This will generate a table of counts of Friday the 13th's by year. If I didn't screw it up the next year with three is 2026.
I created a simple parameter table with a start date and end date that I wanted to evaluate. That calculates the number of days and generates a list of those days. Then filter and group. The generation of the list in power query (i.e. without populating a date table in excel) is pretty cool, otherwise this isn't really doing anything than creating a big date and filtering/counting.
let
Source = List.Dates(StartDateAsDate, Days2, #duration(1,0,0,0)),
ConvertDateListToTable = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
AddDayOfMonthColumn = Table.AddColumn(ConvertDateListToTable, "DayOfMonth", each Date.Day([Column1])),
AddYearColumn = Table.AddColumn(AddDayOfMonthColumn, "Year", each Date.Year([Column1])),
AddDayOfWeekColumn = Table.AddColumn(AddYearColumn, "Day of Week", each Date.DayOfWeek([Column1])),
FilterFriday13 = Table.SelectRows(AddDayOfWeekColumn, each ([DayOfMonth] = 13) and ([Day of Week] = 5)),
Friday13thsByYear = Table.Group(FilterFriday13, {"Year"}, {{"Number of Friday the 13ths!", each Table.RowCount(_), type number}})
in
Friday13thsByYear
With the parameters replaced by values should you want to play along at home. This runs for 20 years starting on 1/1/2016.
let
Source = List.Dates(#date(2016,1,1), 7300, #duration(1,0,0,0)),
ConvertDateListToTable = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
AddDayOfMonthColumn = Table.AddColumn(ConvertDateListToTable, "DayOfMonth", each Date.Day([Column1])),
AddYearColumn = Table.AddColumn(AddDayOfMonthColumn, "Year", each Date.Year([Column1])),
AddDayOfWeekColumn = Table.AddColumn(AddYearColumn, "Day of Week", each Date.DayOfWeek([Column1])),
FilterFriday13 = Table.SelectRows(AddDayOfWeekColumn, each ([DayOfMonth] = 13) and ([Day of Week] = 5)),
Friday13thsByYear = Table.Group(FilterFriday13, {"Year"}, {{"Number of Friday the 13ths!", each Table.RowCount(_), type number}})
in
Friday13thsByYear
=MATCH(3,MMULT(N(WEEKDAY(DATE(C3+ROW(1:100)-1,COLUMN(A:L),13))=6),1^ROW(1:12)),)+C3-1
It should be pointed out that Alex's solution, unlike some others, has the additional advantage of being non-array. My solution was nearly identical but with -- and SIGN instead of N and 1^.
=C3-1+MATCH(3,MMULT(--(WEEKDAY(DATE(C3-1+ROW(1:25),COLUMN(A:L),13))=6),SIGN(ROW(1:12))),0)
Sub Friday13()
Dim StartDate As Date
Dim EndDate As Date
Dim x As Long
Dim r As Long
Range("C7:C12").ClearContents
StartDate = CDate("01/01/" & Range("C3"))
EndDate = CDate("31/12/" & Range("C3"))
r = 7
For x = StartDate To EndDate
If Day(x) = 13 And Weekday(x, vbMonday) = 5 Then
Cells(r, 3) = Month(x)
r = r + 1
End If
Next
End Sub
Calculate next year with 3 Friday 13th. Good for 100 years different from year entered in cell C3
Sub ThreeFriday13()
Dim StartDate As Date
Dim EndDate As Date
Dim x As Long
Dim WhatYear As Integer
Dim Counter As Integer
Range("E7").ClearContents
StartDate = CDate("01/01/" & Range("C3") + 1)
EndDate = CDate("31/12/" & Range("C3") + 100)
Counter = 0
For x = StartDate To EndDate
If WhatYear Year(x) Then
WhatYear = Year(x)
'Different year so reset counter
Counter = 0
End If
If Day(x) = 13 And Weekday(x, vbMonday) = 5 Then
Counter = Counter + 1
If Counter = 3 Then
WhatYear = Year(x)
Exit For
End If
End If
Next
Range("E7") = WhatYear
End Sub
*RE-POST as not equal did not show earliuer
Calculate next year with 3 Friday 13th. Good for 100 years different from year entered in cell C3
Sub ThreeFriday13()
Dim StartDate As Date
Dim EndDate As Date
Dim x As Long
Dim WhatYear As Integer
Dim Counter As Integer
Range("E7").ClearContents
StartDate = CDate("01/01/" & Range("C3") + 1)
EndDate = CDate("31/12/" & Range("C3") + 100)
Counter = 0
For x = StartDate To EndDate
If WhatYear NE Year(x) Then
WhatYear = Year(x)
'Different year so reset counter
Counter = 0
End If
If Day(x) = 13 And Weekday(x, vbMonday) = 5 Then
Counter = Counter + 1
If Counter = 3 Then
WhatYear = Year(x)
Exit For
End If
End If
Next
Range("E7") = WhatYear
End Sub
earlier*
I've a doubt with using array formula here.
In sample workbook, I tried to replicate the formula again.
=IFERROR(SMALL(IF(WEEKDAY(DATE($C$3,ROW($A$1:$A$12),13))=6,ROW($A$1:$A$12)),$B7),"")
For this I selected C7 to C12, and typed the same formula and pressed ctrl+alt+Enter. But in all cells it is taking $B7 (and not $B7, $B8, $B9.... etc)
and since it is array formula I can't edit individual cell.
Please guide.
Thanks
Hi Chandoo,
Cool stuff. You need to clarify that the answer of 5 represents the 1st month in the year that has a Friday the 13th, and not the number of Fridays the 13th in the year. Subtle, but important difference.
Thanks,
Pablo
I like the MMULT() function far more, but here's how I would have tackled it. It uses an EDATE() base and MODE() over 100 years. I'm assuming that 100 years is enough time to catch the next year with 3 friday 13th's. Array entered, of course.
{=MODE(IFERROR(YEAR(IF((WEEKDAY(EDATE(DATE(C3, 1, 13), ROW(INDIRECT("1:1200"))))=6), EDATE(DATE(C3, 1, 13), ROW(INDIRECT("1:1200"))), "")), ""))}
Finding all the Friday the 13ths in a Year:
=SUMPRODUCT((DAY(ROW(INDIRECT(DATE(C3,1,1)&":"&DATE(C3,12,31))))=13)*(TEXT(ROW(INDIRECT(DATE(C3,1,1)&":"&DATE(C3,12,31))),"ddd")="Fri"))
{=sum(if(day.of.week(DATe($YEAR;{1;2;3;4;5;6;7;8;9;10;11;12};13);1)=6;1;0))}
just list the years