Excel VBA用户表单文本框十进制格式 Download

我希望我的价格文本框具有十进制格式，因此当用户键入1000000时，它显示1.000.000。我尝试使用下面的代码，但价格文本框中没有显示十进制格式，有人可以帮助我吗？谢谢

select distinct id from t where t.statuscode = 'C' or t.statuscode = 'D' group by t.id

答案 0 :(得分：1)

您正在更新ForUserForm_Initializem()上的值，该值仅在首次加载用户表单后才会更新。因此，为了更新用户在文本框中输入的值，您必须使用AfterUpdate()

Private Sub tbPrice_AfterUpdate()
    tbPrice.Text = Format(tbPrice.Text, "0.000")
End Sub

每次用户更新文本框中的值-tbPrice

时都会调用此函数。