Happy Birthday Hui…
Note: Hui’s birthday is yesterday (13th). I planned to write this post and share the dashboard workbook with you all yesterday itself, but my daughter wasn’t keeping well and we were busy taking care of her. (And yes, she is ok now, thanks for asking. 🙂 )
Some of you know our guest author and Excel ninja Hui. Yesterday was his birthday. And I wanted to create nice birthday gift for him. So I took a database dump of our forums data and created a dashboard.
First take a look the dashboard I made for him:
[click here for a large version]
Some Key Findings
- Our forums have a total of 5,227 posts, out of which Hui contributed 24% (roughly 1 in 4)
- On average Hui takes 13 and half hours to get back to the questioner with an answer. The fastest he has been was 31 seconds. (only last year data)
- Hui has been very busy on November 30th – 2010, answering 19 times on that day.
- The person who got benefited most from Hui is indi visual, with 44 replies from Hui.
- People used the words thank and Hui in same post 395 times.
- Hui wakes up early and answers questions on our forums. Then, before sleep, he spends some time helping people.
- If Hui had $2.5 per each letter he typed in our forums, he would be a millionaire.
- All data as of Jan 11, 2011. Between that and now, Hui has already answered 37 more times (and still helping…)
How is this dashboard constructed?
With lots of love of course. But quite a few excel techniques were used too.
- Structurally, this dashboard is similar to my 10,000 comment dashboard.
- Word cloud of Hui’s replies is from wordle.net
- Scrollable chart at the bottom is a grid of 20×42 cells conditionally formatted. Scrolling effect thru OFFSET formula.
- Pivot tables, a whole lot of them were used to find the summaries I want
- The header content is picture links & shapes.
- Rest of them are left to your imagination.
Download Excel Workbook with this Dashboard
Please click here to download the workbook. It is locked.
I have made a 45 minute video explaining how this dashboard is constructed. I will be giving this video & unlocked workbook as a bonus to people joining Excel School dashboard option or purchasing Dashboard training kit.
Interested in Dashboards?
- I recommend joining Excel School. You can learn how to make awesome charts & dashboards.
- Visit our Dashboards Page. It has tons of useful information, examples, tutorials & templates.
Say Happy Birthday & Thanks to Hui
I am sure directly or indirectly, Hui has helped many of you. So take a minute and say thanks to him. Wish him several more years of awesomeness, happiness, wealth & health. 🙂
6 Responses to “Make VBA String Comparisons Case In-sensitive [Quick Tip]”
Another way to test if Target.Value equal a string constant without regard to letter casing is to use the StrCmp function...
If StrComp("yes", Target.Value, vbTextCompare) = 0 Then
' Do something
End If
That's a cool way to compare. i just converted my values to strings and used the above code to compare. worked nicely
Thanks!
In case that option just needs to be used for a single comparison, you could use
If InStr(1, "yes", Target.Value, vbTextCompare) Then
'do something
End If
as well.
Nice tip, thanks! I never even thought to think there might be an easier way.
Regarding Chronology of VB in general, the Option Compare pragma appears at the very beginning of VB, way before classes and objects arrive (with VB6 - around 2000).
Today StrComp() and InStr() function offers a more local way to compare, fully object, thus more consistent with object programming (even if VB is still interpreted).
My only question here is : "what if you want to binary compare locally with re-entering functions or concurrency (with events) ?". This will lead to a real nightmare and probably a big nasty mess to debug.
By the way, congrats for you Millions/month visits 🙂
This is nice article.
I used these examples to help my understanding. Even Instr is similar to Find but it can be case sensitive and also case insensitive.
Hope the examples below help.
Public Sub CaseSensitive2()
If InStr(1, "Look in this string", "look", vbBinaryCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub CaseSensitive()
If InStr("Look in this string", "look") = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub NotCaseSensitive()
'doing alot of case insensitive searching and whatnot, you can put Option Compare Text
If InStr(1, "Look in this string", "look", vbTextCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub