Have TextBox display a dollar value

[Patrick C. Simonds]

When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

 

[Jacob Skaria]

DataInput.TextBox611.Text = "$ " & rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = "$ " & rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = "$ " & rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = "$ " & rng(1, 119) 'Total Pay

If this post helps click Yes

 

[Jacob Skaria]

You may use the conver to currency function

"$ " & Ccur(rng(1, 99))

If this post helps click Yes

 

[Patrick C. Simonds]

While this puts a $ in front of the number it does not round the number down
to 2 digits after the . What I get is $158.14523

 

[Jacob Skaria]

You can use the Round function or Format function.

Round (Ccur(158.1482),2) = 158.15
Format(158.1482,"0.00") = 158.15

DataInput.TextBox611.Text = "$ " & Round(rng(1, 99),2)
DataInput.TextBox612.Text = "$ " & Round(rng(1, 98) ,2)
DataInput.TextBox613.Text = "$ " & rng(1, 100) + rng(1, 101),2)
DataInput.TextBox615.Text = "$ " & rng(1, 119) ,2)


If this post helps click Yes

 

[Tim Zych]

Another way using Format:

Dim x As Double
x = 158.14523
MsgBox Format(x, "$0.00")

 

[Peter T]

See subject: "Userform Text box Format to Currency" in this ng a couple of
days ago.

Regards,
Peter T