Round variable to 4 decimal places

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


--
achidsey

On Sun, 25 Sep 2005 05:55:01 -0700, "achidsey"
<chidsey2@hotmail.com(notmorespam)> wrote:

>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

Hi Alan,

One way:

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


---
Regards,
Norman



"achidsey" <chidsey2@hotmail.com(notmorespam)> wrote in message
news:B00299A8-91A1-49D3-8E41-DA5A3EA2CA98@microsoft.com...
> 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
>
>
> --
> achidsey

Norman, Thanks for your help. Alan
--
achidsey


"Norman Jones" wrote:

> Hi Alan,
>
> One way:
>
> Range("A2").FormulaR1C1 = "=100*" & Round(TPrice, 4)
>
>
> ---
> Regards,
> Norman
>
>
>
> "achidsey" <chidsey2@hotmail.com(notmorespam)> wrote in message
> news:B00299A8-91A1-49D3-8E41-DA5A3EA2CA98@microsoft.com...
> > 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
> >
> >
> > --
> > achidsey
>
>
>

Ron, Thanks for your help. Alan

--
achidsey


"Ron Rosenfeld" wrote:

> On Sun, 25 Sep 2005 05:55:01 -0700, "achidsey"
> <chidsey2@hotmail.com(notmorespam)> wrote:
>
> >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
>

Thanks for your help