excel - 显示货币的 VBA 文本框

Question

我有一个表单，其中包含许多用于用户输入的文本框(这是在用户表单中，而不是在电子表格中)。我有几个与货币相关的框，当用户在框中输入他们的条件时，我需要它们显示逗号和小数点。到目前为止，我已经在网上找到了一堆相同的公式，但是当我将我的数字输入框中时，它会显示 4.00(如果我先打 4)，之后我只能更改第二个 0。这是我看到的类似内容在线:

textbox1 = format(textbox1, "$#,##0.00")

还看到了一些带有cDbl的

无论我尝试什么，它都不会让我输入比我输入的第一个数字更多的内容。我需要帮助。谢谢!

Answer 1

当用户输入数据时格式化变得非常棘手。录入完成后格式化可能会更好。
如果条目被视为无效，也可以验证条目并恢复旧值

Dim TextBox1oldValue As String

Private Sub TextBox1_AfterUpdate()
    If IsNumeric(TextBox1) Then
        TextBox1 = Format(TextBox1, "$#,##0.00")
    Else
        TextBox1 = TextBox1oldValue
    End If
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox1) Then
        TextBox1oldValue = Format(TextBox1, "$#,##0.00")
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1oldValue = "$0.00"
    TextBox1 = "$0.00"
End Sub