kelly mort
Well-known Member
- Joined
- Apr 10, 2017
- Messages
- 2,169
- Office Version
- 2016
- Platform
- Windows
I came across this code while searching the from the net . I need some explanation to what is happening so I can modify it to suit my needs. Why the number 809? Should that number be used for all other symbols ? Please help
Code:
[COLOR=#000000][FONT=Courier]With Me.MBStake[/FONT][/COLOR][COLOR=#000000][FONT=Courier].Text = Application.Text(Range("MBStake").Value, "[$£-809]#,##0.00;-[$£-809]#,##0.00")[/FONT][/COLOR][COLOR=#000000][FONT=Courier]
If Range("MBStake").Value < 0 Then[/FONT][/COLOR][COLOR=#000000][FONT=Courier]
.ForeColor = vbRed[/FONT][/COLOR][COLOR=#000000][FONT=Courier]
Else[/FONT][/COLOR][COLOR=#000000][FONT=Courier]
.ForeColor = vbBlack[/FONT][/COLOR][COLOR=#000000][FONT=Courier]
End If[/FONT][/COLOR][COLOR=#000000][FONT=Courier]End With
[/FONT][/COLOR]