Textbox - Easy One (Hopefully)

RWinfield · Feb 26th, 2002, 01:38 PM

I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually.

TextBox3.Value = Range("d4")

Thanks for any help,

Rick

Russell Hauf · Feb 26th, 2002, 01:45 PM

Quote:

On 2002-02-26 12:38, RWinfield wrote:
I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually.

TextBox3.Value = Range("d4")

Thanks for any help,

Rick

Try this:

TextBox3.Value = Range("d4").Text

HTH,

Russell

gplhl · Feb 26th, 2002, 01:49 PM

Quote:

On 2002-02-26 12:38, RWinfield wrote:
I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually.

TextBox3.Value = Range("d4")

Thanks for any help,

Rick

TextBox3.Value = Int(Range("D4").value)

gplhl · Feb 26th, 2002, 02:00 PM

My last post didn't take into account the fact that if you have set the cell format to not show any numbers after the decimal point, the number in the sheet may be rounded up.

Try this:

MyInteger = Range("D4").Text ' Converts to text
MyInteger = Int(MyInteger) ' converts back to an integer.
TextBox1.Value = MyInteger

RWinfield · Feb 26th, 2002, 02:03 PM

Works perfect Gary, thanks!

Feb 26th, 2002, 02:00 PM	#4
gplhl Board Regular Join Date: Feb 2002 Location: Chippenham, UK Posts: 136	My last post didn't take into account the fact that if you have set the cell format to not show any numbers after the decimal point, the number in the sheet may be rounded up. Try this: MyInteger = Range("D4").Text ' Converts to text MyInteger = Int(MyInteger) ' converts back to an integer. TextBox1.Value = MyInteger __________________ Regards, Gary Hewitt-Long

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 26th, 2002, 01:38 PM	#1
RWinfield New Member Join Date: Feb 2002 Location: Washington State Posts: 33	I have a userform in which one of the text boxes displays information from a particular cell on the worksheet. I have formatted the cell in question to only display integer, ie no decimal places, but when the value is imported into the textbox, the textbox displays 8 decimal places. How do I display only the characters to the left of the decimal point in the textbox? The code is below, but is pretty simple actually. TextBox3.Value = Range("d4") Thanks for any help, Rick

Feb 26th, 2002, 02:03 PM	#5
RWinfield New Member Join Date: Feb 2002 Location: Washington State Posts: 33	Works perfect Gary, thanks!