Yesterday while going through my feeds, I have landed on this post about the demographics and use-figures of various social networking (2.0) tools, et al (by businessweek) on think:lab blog. When I looked at the BusinessWeek’s graphical representation of demographics and usage figures of social networks, the first thought that came to me is, “well, this is something challenging to do in Excel“. So I started creating the chart in the most famous cell software :D, just to show you how the graph looked on BW site (click on it to see the bigger version),
(Download download the art of excel charting spreadsheet)
First up I tried creating a graphlet, a 10 by 10 cell grid that can be filled by ‘1’s based on a number between 1 and 100. The ‘1’s should be filled from left to right or right to left based on direction mentioned in a cell.
This task is simple, lets say the grid is from a1 to j10 and a11 has ‘the number of cells to be filled’ and a12 has the direction (either “R” or “L”)
The formula for any cell in the range of a1 to j10 would be,
= IF((ROW($a$10)-ROW())*10+11*(IF($a$12=”R”,0,1)) + (-1)^(IF($a$12=”R”,0,1))*((COLUMN($j$10)-COLUMN())+1)< =$a$11,1,"")
the above formula essentially means,
if direction is Left to Right,
if row of the cell * 10 + column of the cell is less than or equal to a11
return “1”
else return “”
else
if row of the cell * 10 + 10 – column of the cell is less than or equal to a11
return “1”
else return “”
Once I have the grid filled with required number of 1’s, I have applied conditional formatting (read: Creating cool dash-boards using excel conditional formatting) to change cell’s a ‘1’ in them to some color and blank ones to gray like this,
The output was something like this,
Now all I have to do is multiply this over the entire 7 columns and 6 rows like the BW’s graph and change the fill colors in conditional formatting. The final output looked something like this (click on it for a bigger version),
To end with, I have found out that doing this type of charts doesnt take much time although you need to have the creative juices to come-up with formats like this. What do you think?
For those of you who want to see how this is done and do a little bit of playing around, download the art of excel charting spreadsheet.
Also read:
- Say good-bye to default chart formats
- Creating cool dash-boards using excel conditional formatting
- PHD’s Excel posts
PS: the images are from BusinessWeek.
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