VBA: result with only one decimal

[Nelson78]

Hello everybody.

I need to display the result in cell (17, lc + 1) with only one decimal, but the following instructions don't work (the value remains with 9 decimals).

        Sheet1.Cells(17, lc + 1) = cell.Offset(0, 12).Value / cell.Offset(0, 8).Value
        Sheet1.Cells(17, lc + 1).NumberFormat = "0.0"

What is the correct instruction?

Thank's in advance.

 

[Special-K99]

Does this work?

Sheet1.Cells(17, lc + 1)= Int(Sheet1.Cells(17, lc + 1)*10)/10

retaining your first line of code and replacing the second one

 

[Nelson78]

Does this work?

Sheet1.Cells(17, lc + 1)= Int(Sheet1.Cells(17, lc + 1)*10)/10

retaining your first line of code and replacing the second one

Does it store the real result?

 

[Special-K99]

It's one line of code.
Have you tried it?

 

[steve the fish]

That would round the result down. If you need to just round to conventional rounding rules then just use round:

Sheet1.Cells(17, lc + 1) = Round(cell.Offset(0, 12).Value / cell.Offset(0, 8).Value, 1)

 

[Nelson78]

That would round the result down. If you need to just round to conventional rounding rules then just use round:

Sheet1.Cells(17, lc + 1) = Round(cell.Offset(0, 12).Value / cell.Offset(0, 8).Value, 1)

Maybe I'm confused, but I'm not sure the two methods you have suggested store the real result.
I mean: if the result is 1.3854523 I'd like to display 1.4, but I need to use 1.3854523 for following operations.

 

[steve the fish]

Oh ok then use what you had in the first place.