If this Excel problem is a Bollywood (Indian movie) plot, it would go like this:
Situation: Your boss gave you a worksheet. It has a lot of number chunks. And you need to calculate the sum of each chunk. Quickly!
Twist #1: The villain (your boss, who else) has abducted your spouse. For every extra hour you spend on the problem, your boss will make your spouse go thru one of the boring 97 slide strategy presentations. And his laptop is full of those strategy presentations.
Twist #2: The F1 key on your keyboard is missing.
Twist #3: The coffee machine in your floor is broken again.
Twist #4: And just when you are pressing CTRL+S, the movie steers in to an item song.
—-
Fortunately, no one abducted your spouse. And hopefully the coffee machine is working. But the Excel problem remains unsolved.
Sporadic totals
This problem is based on a call I received last week from one of our readers in UK. He had a worksheet full of numbers with blank rows between every few numbers. And he wants to calculate the totals of individual chunks of numbers quickly. He cannot write one formula and paste it everywhere as the chunks are not uniformly sized. He cannot write individual formulas as the data is very large.
So what to do?
If we are still in a Bollywood film, you can write all the 10,000 formulas and simultaneously sipping screwdrivers & shimmying to a snazzy song with sexy starlets.
Alas, this is not a movie.
But we still manage to look awesome. Thanks to superb sidekicks – Goto Special & Autosum.
Calculating Sporadic Totals in a second
See this short video to understand how to calculate sporadic totals in a few seconds. With the time saved, you could fix yourself a cocktail (or coffee) and hum a beautiful song.
Watch the video on our YouTube Channel or Facebook Page.
Sporadic Totals – Alternative treatment
It is an awesome co-incidence that both MrExcel (Bill Jelen) and Kevin Lehrbass also published videos about this concept around the same time. MrExcel shows how to use VBA to do this, where as Kevin talks about using formulas. Check out both videos too.
Not enough sporadic data? Try this practice file
If you want to practice this technique, use this Excel file.
Leave the drama to movies, Learn Excel
We all love film drama like blowing up cars, high-speed chases, super-human stunts and spicy songs. But you sure don’t want that in your life. So learn Excel. Save time, use that to enjoy the drama elsewhere.
Click here to join our newsletter. Get awesome one step at a time.
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