VBA Excel decimal formating problems

[Marek.Klepacz]

Hello,
I have a small problem in my excel VBA application.
In above expresion:

Dim A as Double
A = A + 1

I want to see A in A.0 format
Everything is ok then A is 0.1 or 0.2 .... 0.9
But when I have total value ".0" is missing

I was tring to make a format like:
A = Format (A, ""###0.0")

or
A = Round (A, 1)

but it is not working.

This value 1.0 I want to write in Excel Cell, but there is only 1.
Thanks in advance
Maro

 

[Dave Peterson]

You'll want to change the numberformat of the cell:

With worksheets("sheet1").range("a1")
.numberformat = "###0.0"
.value = A
End with