Friday, October 2, 2009

Using Indian Currency Format

Its not easy to create a format for indian currency, but its easy to use a macro which could be able to convert your number into the desired indian currency format.
For using it follow the below steps:

1. Open the sheet on which you want to apply the formatting
2. right click on the sheet tab and select view code
3. paste the below code in the white area

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
If Target.Cells.Count = 1 Then
Select Case Target.Value
Case Is >= 1000000000
Target.Cells.NumberFormat = "##"",""00"",""00"",""00"",""000.00"
Case Is >= 10000000
Target.Cells.NumberFormat = "##"",""00"",""00"",""000.00"
Case Is >= 100000
Target.Cells.NumberFormat = "##"",""00"",""000.00"
Case Else
Target.Cells.NumberFormat = "##,###.00"
End Select
Else
For Each c In Target
Select Case c.Value
Case Is >= 1000000000
c.NumberFormat = "##"",""00"",""00"",""00"",""000.00"
Case Is >= 10000000
c.NumberFormat = "##"",""00"",""00"",""000.00"
Case Is >= 100000
c.NumberFormat = "##"",""00"",""000.00"
Case Else
c.NumberFormat = "##,###.00"
End Select
Next c
End If
End Sub

Author: Parry

0 comments:

Post a Comment