conditional formatting

[Guest]

I want to select a column of numbers (B1:B1200) and format them with 4
decimals if they're between zero and one and with 2 decimals otherwise. I'd
like to do this without an add-in (vba is ok). Thanks.

 

[Guest]

Just run:

Public Sub reform()
Set r = Range("B1:B1200")
For Each rr In r
v = rr.Value
If v > 0 And v <= 1 Then
rr.NumberFormat = "0.0000"
Else
rr.NumberFormat = "0.00"
End If
Next
End Sub

and each item in the column will be correctly formatted.

 

[JE McGimpsey]

One way:

Format/Cells/Number/Custom

[<0]-0.00;[<=1]0.0000;0.00

 

[Guest]

For positive numbers:
=IF(B1>1,ROUND(B1,2),ROUND(B1,4))