MS Excel currency converter - Number to words Latest version
MS Excel currency converter 3.0 has been updated with bug fixes.
This is the new version of my amazing currency converter VBA utility for MS Excel. The macro will convert the currency number which is in number to text. For example, Rs. 14,250 is a common standard to represent the money of Indian Rupees Fourteen Thousand, Two Hundred and Fifty. This VBA code takes the input as 14250 and prints as 'Fourteen Thousand, Two Hundred and Fifty'.
Below is the list of bugs fixed
1. For 1000 and 100000 it was resulting in a null string. Now it has been fixed.
You can download the VBA module here. After downloading go to your Excel VBA editor. Then, go to Insert Menu, Insert Module. Paste the VBA code just downloaded. Go back to your excel spreadsheet by pressing ALT+F11. Start using the new function.
Download
Download here the Complete Excel.
Download
Please let me know if you have any specific questions to currency converter or any generic VBA code questions. If you are looking for any new features in MS Excel or MS Word, I will try to implement them in using the VBA code.
This is the new version of my amazing currency converter VBA utility for MS Excel. The macro will convert the currency number which is in number to text. For example, Rs. 14,250 is a common standard to represent the money of Indian Rupees Fourteen Thousand, Two Hundred and Fifty. This VBA code takes the input as 14250 and prints as 'Fourteen Thousand, Two Hundred and Fifty'.
It can be used in writing cheques, generating financial reports, MIS reports, and other accounting purposes. If you are familiar with accounting software such as Tally, you will know that the current number is converted into text. But this feature is not available in MS Excel.
The earlier version had few bugs which were reported by the users. I have fixed them in this version.
The earlier version had few bugs which were reported by the users. I have fixed them in this version.
Below is the list of bugs fixed
1. For 1000 and 100000 it was resulting in a null string. Now it has been fixed.
You can download the VBA module here. After downloading go to your Excel VBA editor. Then, go to Insert Menu, Insert Module. Paste the VBA code just downloaded. Go back to your excel spreadsheet by pressing ALT+F11. Start using the new function.
Download
Download here the Complete Excel.
Download
Please let me know if you have any specific questions to currency converter or any generic VBA code questions. If you are looking for any new features in MS Excel or MS Word, I will try to implement them in using the VBA code.
Excel VBA macro to swap 2 values in cells
It is very useful sometimes to have a shortcut to swap 2 cell values. I have created a macro in VBA to do this. Just copy paste the code below in your VBA module.
This video will help you with the procedure
VBA Code
-------------
Sub Swap2Values()
Dim Value1 As Range, Value2 As Range
Dim TempValue1 As String, TempValue2 As String
If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
MsgBox "Please select only 2 cells. For other options check back soon!"
End
End If
If Selection.Areas.Count > 1 Then
Set Value1 = Selection.Areas(1).Cells(1, 1)
Set Value2 = Selection.Areas(2).Cells(1, 1)
ElseIf Selection.Rows.Count > Selection.Columns.Count Then
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("A2")
Else
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("B1")
End If
TempValue1 = Value1
TempValue2 = Value2
Value1 = TempValue2
Value2 = TempValue1
End Sub
This video will help you with the procedure
VBA Code
-------------
Sub Swap2Values()
Dim Value1 As Range, Value2 As Range
Dim TempValue1 As String, TempValue2 As String
If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
MsgBox "Please select only 2 cells. For other options check back soon!"
End
End If
If Selection.Areas.Count > 1 Then
Set Value1 = Selection.Areas(1).Cells(1, 1)
Set Value2 = Selection.Areas(2).Cells(1, 1)
ElseIf Selection.Rows.Count > Selection.Columns.Count Then
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("A2")
Else
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("B1")
End If
TempValue1 = Value1
TempValue2 = Value2
Value1 = TempValue2
Value2 = TempValue1
End Sub
Subscribe to:
Posts (Atom)
-
There are plenty of online resources to convert Numeric currencies to Text- from $200 to Dollar Two Hundred. But this is ...
-
On my Youtube channel, I have posted a video that shows how to mirror your mobile screen onto LED or LCD TV which is equipped with Wi-Fi and...
-
A normal phone Bluetooth headset can be easily connected to a laptop and it can be used as earphones or headphones while us...