Round variable to 4 decimal places

[achidsey]

Excel Experts,

In my code, I create a variable that I later incorporate into a forumula I
enter in a cell.

I only want to enter the variable with four decimal places. How would I
code this?

For example, my code is similar to,

Sub EnterBuyPrincipal( )

Dim TPrice As Variant

TPrice = 2220/850

Range("A2").FormulaR1C1 = "=100*" & TPrice

End Sub

The way it is now, the code enters "=100*2.61176470588235". I'm not trying
to change the number of decimals displayed, but rather the text of the
formula. I want it to read "=100*2.6118".

Thanks in advance,
Alan

 

[Ron Rosenfeld]

Excel Experts,

In my code, I create a variable that I later incorporate into a forumula I
enter in a cell.

I only want to enter the variable with four decimal places. How would I
code this?

For example, my code is similar to,

Sub EnterBuyPrincipal( )

Dim TPrice As Variant

TPrice = 2220/850

Range("A2").FormulaR1C1 = "=100*" & TPrice

End Sub

The way it is now, the code enters "=100*2.61176470588235". I'm not trying
to change the number of decimals displayed, but rather the text of the
formula. I want it to read "=100*2.6118".

Thanks in advance,
Alan

========================
Sub EnterBuyPrincipal()

Dim TPrice As Variant

TPrice = Round(2220 / 850, 4)

Range("A2").FormulaR1C1 = "=100*" & TPrice

End Sub
========================

or

==========================
Sub EnterBuyPrincipal()

Dim TPrice As Variant

TPrice = Application.WorksheetFunction.Round(2220 / 850, 4)

Range("A2").FormulaR1C1 = "=100*" & TPrice

End Sub
=========================

Check the MSKB for VBA Round vs Round worksheet function for the differences.
The worksheet function does arithmetic rounding; the VBA Round does what is
sometimes called "banker's rounding".




--ron

 

[Norman Jones]

Hi Alan,

One way:

Range("A2").FormulaR1C1 = "=100*" & Round(TPrice, 4)

 

[achidsey]

Norman, Thanks for your help. Alan
--
achidsey

Hi Alan,

One way:

Range("A2").FormulaR1C1 = "=100*" & Round(TPrice, 4)

 

[achidsey]

Ron, Thanks for your help. Alan

--
achidsey

========================
Sub EnterBuyPrincipal()

Dim TPrice As Variant

TPrice = Round(2220 / 850, 4)

Range("A2").FormulaR1C1 = "=100*" & TPrice

End Sub
========================

or

==========================
Sub EnterBuyPrincipal()

Dim TPrice As Variant

TPrice = Application.WorksheetFunction.Round(2220 / 850, 4)

Range("A2").FormulaR1C1 = "=100*" & TPrice

End Sub
=========================

Check the MSKB for VBA Round vs Round worksheet function for the differences.
The worksheet function does arithmetic rounding; the VBA Round does what is
sometimes called "banker's rounding".




--ron