Excel VBA 使用 Afterupdate 和 Change 事件显示货币

Question

我创建了一个用户表单数据库，我可以在其中添加新数据并搜索当前项目的详细信息。

有些文本框我想要以下内容：

添加数据时，金额显示为货币。

  I already used the Afterupdate() event and it works well,

    Private Sub txtPOAmount_Afterupdate()
        txtPOAmount.Value = Format(txtPOAmount.Value, "$#,###.##")
    End Sub

我也希望它在拉取数据时显示货币

 I used the Change() event, which also does the job


   Private Sub txtPOAmount_Change()
       txtPOAmount.Value = Format(txtPOAmount.Value, "$#,##0.00")
   End Sub

使用一个或另一个的当前问题：

-当我使用 Afterupdate() 事件时，如果我要提取数据库中已有的数据，除非我更新它，否则它不会显示货币。

-当我只使用 Change() 事件时，它将数据显示为货币，但是当我想更新数据时，只有输入的第一个数字有效。（例如输入 5337，它显示 $5.00）

但是，我希望这两个选项可以同时工作。如果我想提取数据，那么我希望用户表单显示货币，如果我更新它，我希望它输入完整的金额。

Answer 1

尝试使用 TextBox1_Exit 来更新它而不是 Change() 事件，这意味着您可以在事件被触发之前自由地编辑文本框字符串中的多个字符，并且您不必再这样做了使用箭头键在 "currency" 文本框中左右移动：

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "£#,##0.00")
End Sub

Excel VBA 使用 Afterupdate 和 Change 事件显示货币

Excel VBA displaying currency with Afterupdate and Change events

excel

formatting

vba

currency