View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
vezerid vezerid is offline
external usenet poster
 
Posts: 751
Default Formatting a number

I can see only a VBA solution to this problem. I suggest the following
approach:

You use an event procedure for the Change event. In this procedure you
specify the range for which such behavior is desired. If you want you
can set (from Excel) the number format to % beforehand, to facilitate
editing.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim AutoFormatArea
Set AutoFormatArea = Range("A:A") '<<< Change Range specification here
If Intersect(Target, AutoFormatArea) Is Nothing Then Exit Sub
If Target.Value * 1000 Mod 10 = 0 Then
Target.NumberFormat = "0%"
Else
Target.NumberFormat = "0.0%"
End If
End Sub

To install:
1. Right click the sheet tab where you want this behavior. Choose View
Code...
2. The VBA IDE will appear. Paste the above code in the sheet module
window.

HTH
Kostis Vezerides

On Jul 9, 6:29 pm, "Michel Khennafi" wrote:
Good morning...

I have a situation where I would like the formatting of a % number to follow
the rules:
- if the number has no decimal then print the number as is for instance 98%
- if the number has more than one decimals, print the number with only one
decimal, for instance 98.17% becomes 98.2%

One of the goals is to avoid such displays as 98.00%

I tried to play with the format but never had a chance to figure it out...
has anyone handled this situation before? should I create a custom format?

Thanks so much for your assistance

Michel