根据已知的美元总值更改两个字段的货币

Question

我面临着一个相当大的宏挑战，我认为我的问题最好用宏而不是公式来解决。

我有一张Excel工作表，里面有行项目记录。每条记录都有以下字段：

订单号、产品号、价格、数量、扩展价格、订单总额。

每个订单号可能有一到十条记录（使此问题更加困难）。此外，具有相同订单号的每条记录也将具有相同的order total。目前，price和extended price不是美元，但order total是美元。我的目标是使用order total将price和extended price转换为美元（是美元）。

对于每个订单号的集合或记录，我想取order total（我可以从任何集合中获得），除以extended price的和，然后将集合的每个extended price和price乘以。将其转换为美元。

Answer 1

使用公式是可能的。假设Order Number是列a中的一个标签，其他数据从那里开始，在H2中，并向下复制以适合：

 =SUMIF(A:A,A2,E:E)  

应按订单号以非美元货币返回扩展价格。

在I2中并向下复制以适应：

=F2/H2  

应返回适当的转换因子。

由于这是经过计算的，请使用"特殊粘贴…"将第I列复制到第J列。。。，价值观

复制J列，选择C列和E列（price和extended price），然后选择性粘贴。。。乘法运算。

Answer 2

这段代码可能会有所帮助：如果要使用宏执行精确的货币转换操作，试试这样的例子：

    Sub conversion()
Dim a, b As Long
b = 50.55
a = ThisWorkbook.Sheets("Sheet1").Range("D1").Value
b = a / 50.55
ThisWorkbook.Sheets("Sheet1").Range("F1").Value = "$" & b
End Sub

这里a是价格和扩展价格的总和，b是转换后的美元价值。否则，如果你想单独更改格式，你可以使用excel 中的"格式化单元格"选项