[已解决]【求教】VBA窗体Textbox的两个问题

lisachen

GC9ZEum1.rar (9.46 KB, 下载次数: 3)

2010-8-15 12:33 上传

点击文件名下载附件
【求教】VBA窗体Textbox的两个问题
问题1在TEXTBOX1里输入数字，是文本格式的，如何输入数字格式的

问题2在TEXTBOX2里如何显示百分比格式或者保留小数点后两位数

[此贴子已经被作者于2010-8-15 12:35:46编辑过]

最佳答案

月排行榜 / 总排行榜

zxc1152468

2010-8-15 12:48

第二个问题

Private Sub CommandButton1_Click()
[a1] = TextBox1.Value
TextBox2 = TextBox1.Value
TextBox2.Text = Format(TextBox2.Text, "0.00")
End Sub

跳转到最佳答案楼层

zxc1152468

Private Sub CommandButton1_Click()
[a1] = TextBox1.Value
TextBox2 = TextBox1.Value
End Sub

[此贴子已经被作者于2010-8-15 12:40:12编辑过]

zxc1152468

第二个问题

Private Sub CommandButton1_Click()
[a1] = TextBox1.Value
TextBox2 = TextBox1.Value
TextBox2.Text = Format(TextBox2.Text, "0.00")
End Sub

linyaya

Private Sub CommandButton1_Click()
[a1] = TextBox1.Value
TextBox2 = round(TextBox1.Value,2)
End Sub

这个是加百分号的

Private Sub CommandButton1_Click()
[a1] = TextBox1.Value
TextBox2 = TextBox1.Value*100 &"%"
End Sub

fjmxwrs

是在Textbox1中输入自动输入TextBox2吗？

pRuWtjDf.rar (9.92 KB, 下载次数: 9)

2010-8-15 12:58 上传

点击文件名下载附件
【求教】VBA窗体Textbox的两个问题

这是以两位小数为例的，要%就把代码中的0.00换成0.00%或0%

[此贴子已经被作者于2010-8-15 13:00:11编辑过]

zxc1152468

4楼的学得挺快的

lisachen

感谢各位的指点

特别感谢fjmxwrs

特别感谢linyaya

[此贴子已经被作者于2010-8-15 13:14:01编辑过]