Gee, I missed another review session. PAASCU sure got my attention. It's my second miss for this Philnits review. I also skipped classes on my MIM last Saturday. I hope all of this would be worth the time missed. Now I have a lot to cope with. Hmmm... that's all I can say. Hmmm...
I was asked today by one of my classmates about converting numeric values to literal values in excel. I thought there was a function for this but I found none. Well I was curious so I looked it up on the web . I've done a little modification here to make it more or less generic (specially when writing in checks). Here's how it's done: Click Tools->Macro->Visual Basic Editor Insert a module Paste the following code: Option Explicit '**************** ' Main Function * '**************** Function SpellNumber(ByVal MyNumber) Dim Temp, WholeNumberText, DecimalText Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal pl...
Comments