怎么用vb实现在textbox中的数值自动保留4位小数
我要从excel中把数据导入到textbox中，比如数据是0.11111111111，我想导入textbox中时，把数字表现为0.1111，同时能够自动四舍五入，希望大神帮忙，这个可能比较麻烦，谢谢大家了
！！！
最新回答
浮生远离
2024-05-30 09:01:40
用vb实现在textbox中的数值自动保留4位小数的方法如下：
准备材料：电脑、excel
1、首先先打开电脑界面，然后找到桌面上面的一个表格文件，然后双击这个表格文件。
2、然后这个时候就可以打开了这个表格文件。
3、在打开的表格界面中，然后点击一个单元格。
4、在这个单元格上面右键单击，然后在出现的菜单中，选择“设置单元格格式”选项。
5、在弹出的设置单元格格式的操作界面中，然后点击“数值”选项卡。
6、在单元格格式的操作界面中，然后在“小数位数”的地方输入数值，然后点击“确定”按钮。
7、返回到之前的表格界面中，就可以看到数值变成了带有四位小数位的数值了。
↗雾里↖看花☆
2024-05-30 07:46:48
或者：
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")
热门标签
