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