用了Format定义Label和TextBox格式后，其值为什么也改变了？怎样才能取其真实值呢？

xyf0115

用了Format定义Label和TextBox格式后，其值为什么也改变了？怎样才能取其真实值呢？

Private Sub TextBox1_Change()
   TextBox1.Text = Format(TextBox1.Text, "#,##0")
End Sub

Private Sub UserForm_Initialize()
   Label1.Caption = Format(Sheet1.Range("A1"), "#,##0")
End Sub

结果是这样的，是我想要的格式



Private Sub CommandButton1_Click()
  MsgBox Val(Label1.Caption)
  MsgBox Val(TextBox1.Text)
  Sheet1.Range("A2") = Val(TextBox1.Text)
End Sub


当CommandButton1点击时，label和textbox都变成千分位前的数值了


请教老师，怎样才能取定义格式了的label和textbox的真实值呢？

这个是昵称吗

我也初学，之前遇到过类似的问题

如果输出到单元格就设置单元格格式，
如果是Label和TextBox作为展示或者显示我当时就用了隐藏的Label和TextBox控件辅助参与计算，主Label和TextBox显示！

xyf0115

这个是昵称吗 发表于 2018-6-7 15:11
我也初学，之前遇到过类似的问题

如果输出到单元格就设置单元格格式，

没有比较直接的办法吗？

一指禅62

MsgBox Label1.Caption*1
  MsgBox TextBox1.Text*1