Question

怎么用vb实现在textbox中的数值自动保留4位小数

先谢谢大家！
我要从excel中把数据导入到textbox中，比如数据是0.11111111111，我想导入textbox中时，把数字表现为0.1111，同时能够自动四舍五入，希望大神帮忙，这个可能比较麻烦，谢谢大家了
！！！

Answer 1

用vb实现在textbox中的数值自动保留4位小数的方法如下：

准备材料：电脑、excel

1、首先先打开电脑界面，然后找到桌面上面的一个表格文件，然后双击这个表格文件。

2、然后这个时候就可以打开了这个表格文件。

3、在打开的表格界面中，然后点击一个单元格。

4、在这个单元格上面右键单击，然后在出现的菜单中，选择“设置单元格格式”选项。

5、在弹出的设置单元格格式的操作界面中，然后点击“数值”选项卡。

6、在单元格格式的操作界面中，然后在“小数位数”的地方输入数值，然后点击“确定”按钮。

7、返回到之前的表格界面中，就可以看到数值变成了带有四位小数位的数值了。

Answer 2

text1.text=round(表达式,4)
或者：
text1.text=format(表达式,".0000")

追问

谢谢大神！不过我是菜鸟，有点不明白。
这是我原来的代码，能帮我改一下么？谢啦！
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlBook = xlApp.Workbooks.Open("C:\1.xlsx")
TextBox1.Text = xlBook.Worksheets(1).cells(47, 3).value2

追答

TextBox1.Text = round(xlBook.Worksheets(1).cells(47, 3).value2, 4)
TextBox1.Text = format(xlBook.Worksheets(1).cells(47, 3).value2, ".0000")