excel - VBA excel中的千位和小数分隔符

Question

我有一个库存来管理实验室中的库存，其中包含两个部分：一个与订单相关，一个与使用过的零件相关，但我有几个问题：

在我设计用于跟踪订单和使用过的部件的用户表单中，最后一个单元格上的操作通过乘以数量来管理 TOTAL，并且单个部件的价格没有显示小数点分隔符。

这里是一个文本框的代码，用于管理数量并在最后一个文本框中显示总数：

Private Sub cmdReceiving_Click()    
    Dim X As Integer
    Dim nextrow As Range
    Dim DateCus As Range

    On Error GoTo cmdReceiving_Click_Error

    Me.Arec6.Value = Format(Me.Arec6.Value, "€##,###.00")
    Me.Brec6.Value = Format(Me.Brec6.Value, "€##,###.00")
    Me.Crec6.Value = Format(Me.Crec6.Value, "€##,###.00")
    Me.Drec6.Value = Format(Me.Drec6.Value, "€##,###.00")
    Me.Erec6.Value = Format(Me.Erec6.Value, "€##,###.00")
    Me.Frec6.Value = Format(Me.Frec6.Value, "€##,###.00")
    Me.Grec6.Value = Format(Me.Grec6.Value, "€##,###.00")
    Me.Hrec6.Value = Format(Me.Hrec6.Value, "€##,###.00")
    Me.Irec6.Value = Format(Me.Irec6.Value, "€##,###.00")
    Me.Jrec6.Value = Format(Me.Jrec6.Value, "€##,###.00")
    Me.Krec6.Value = Format(Me.Krec6.Value, "€##,###.00")

以下部分代码被引用为Arec3UserForm中的数量单元格（Qty）。这将在库存表中读取并从中获取数据进行数学运算

Private Sub Arec3_Change()
    On Error Resume Next
    Me.Arec2.RowSource = ""
    Me.Arec4 = Application.WorksheetFunction.VLookup(Me.Arec2, Sheet5.Range("Data"), 2, 0)
    Me.Arec5 = Application.WorksheetFunction.VLookup(Me.Arec2, Sheet5.Range("Data"), 3, 0)
    If Me.Arec3.Value > "" Then Me.Arec6 = Me.Arec3.Value * Me.Arec5.Value

    On Error GoTo 0

End Sub

另一个问题是关于股票的 Excel 表中的格式。一旦我用我的信息填写了用户表单，所有这些信息都存储在一个 Excel 表中，但是与单笔费用和总计相关的 € 列总是给我不正确的格式。即使我从文件->选项->高级->“”中选择千位和“。” 对于小数，我仍然在第二张图片中有结果：

有人可以帮我吗？我真的不明白怎么了。

excel - VBA excel中的千位和小数分隔符

0 回答 0

Related

Reference