显示货币的 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

Answer 2

您需要使用 TextBox Change 事件，例如：

Private Sub TextBox1_Change()    
  If TextBox1 = vbNullString Then Exit Sub    
  If IsNumeric(TextBox1) Then CurrencyTransform(TextBox1)
End Sub

然后您创建CurrencyTransform 函数来修改它在 TextBox 中显示的内容。

Answer 3

简单地尝试一下这个...

Private sub textbox1_AfterUpdate()
    textbox1 = format(textbox1, "$#,##0.00")
end sub

Answer 4

我写这篇文章的灵感来自克里斯的解决方案。它在用户打字时起作用！

Private waiting As Boolean

Private Sub TextBox1_Change()
    If waiting Then Exit Sub
    
    waiting = True
    TextBox1 = formatAsCurrency(TextBox1)
    waiting = False
End Sub

Private Function formatAsCurrency(v As String)
    If v = "" Then
        formatAsCurrency = Format(0, "0.00")
    Else
        Dim vv As Variant
        vv = Replace(v, ",", "")
        vv = Replace(vv, ".", "")
        formatAsCurrency = Format(vv / 100, "#,##0.00")
    End If
End Function

Answer 5

试试这个：

Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "$#,##0.00")
End Sub

这对我来说效果很好，所以它也应该对你有帮助。

如果要进行涉及多个文本框的计算，请勿在文本框名称后使用 .value。相反，在文本框的名称之前使用 val( ，同时在其后面加上结束括号。我使用 .value 并得到了奇怪的结果。而不是，例如 $100对于 TextBox1.Value + TextBox2.Value，其中 TextBox1.Value 等于 $25，TextBox2.Value 等于 $75，我会得到“ 25 美元 75 美元”。