Excel VBA货币错误显示

Question

我正在使用MAC，版本：10.11.16“el Capitan”

我希望这一切都有道理。

我正在学习VBA，使用一本名为“学习VBA快速，第1卷，Excel功能设计课程”的书

代码中的消息框显示正确的值，但值为 电子表格单元格荒谬（见下文）

为什么会这样？

我已按如下方式设置电子表格：

旧价格作为货币

新价格作为货币

按百分比折扣

我也试过折扣单元

• 作为自定义：0.00

• 编号：-1234.00（小数点后2位）

• 作为货币：-$1234.00（小数点后2位）

结果始终是相同的值 - 无论我将折扣单元设置为什么配置。

电子表格设置如下

old Price  |            New Price        |       Discount
----------------------------------------------------------

$12.50     |     $18,483,160,287,229.10   |     10%

----------------------------------------------------------

$13.25     |      $18,483,160,287,229.10   |     10%

----------------------------------------------------------

函数调用，在“新价格”单元格中如下：

=NewPrice(E43,G43)和=NewPrice(E44,G43)

功能代码如下：

Option Explicit

Function NewPrice(OldPrice As Currency, Discount As Currency) As Currency

        Discount = OldPrice * Discount

        NewPrice = OldPrice - Discount

        MsgBox "Old price = " & OldPrice & vbCrLf & _
 "Discount = " & Discount & vbCrLf & "New price = " & NewPrice     

End Function

问题：为什么显示值如此疯狂？