mac Excel VBAでオーバーフローのエラー

Question

前提・実現したいこと

Mac の Excel vba で簡単な計算をしていますが、「オーバーフローしました。」とエラーになってしまいます。

どのように対処すればよろしいでしょうか。

実行時エラー '6':

オーバーフローしました。

該当のソースコード

Sub my_test()
    Dim w_test

    w_test = 0.66 - 0.5

End Sub

試したこと

こちらのページを参照し・・・
[1] Office TANAKA - VBAの実行時エラー[オーバーフローしました。(エラー番号：6)]
http://officetanaka.net/excel/vba/error/execution_error/error_6.htm
＝＝＝＝ 引用開始 ＝＝＝＝
「=」演算子で、右辺を左辺に代入するとき、VBAはまず右辺の計算結果を確定させます。エラーになったSample2で、右辺の「330」と「100」は、どちらも整数型(Integer)の許容範囲内の数値です。つまり「整数型 × 整数型」という式ですね。こんなときVBAは「整数型 × 整数型」の計算結果を、まず同じ整数型に入れようとします。整数型の許容範囲は32767までです。330 × 100 ＝ 33000 は、整数型の許容範囲を超えているので、右辺の計算過程において「オーバーフローしました」ということです。
＝＝＝＝ 引用終了 ＝＝＝＝

    w_test = CSng(0.66) - CSng(0.5)

問題の箇所を上記にしてみましたが、同じエラーが発生します。

補足情報（FW/ツールのバージョンなど）

Microsoft Excel for Mac バージョン 16.45
Microsoft Visual Basic for Applications 7.1

Answer 1

Macの全く同じ環境で確認しましたが、
エラーは発生しませんでした。
新規ファイルにコードを書いて試してみてはいかがでしょう

また、可能性は低いですが
同ファイルで他にコードを書かれた部分があるのなら
それが影響している部分もあるかもしれません。

Comments

[akihico]

ご指摘のとおり、このプロシージャで記述していた「Debug.Print」を消したら、動作しました。
出力回数は多くないので、腑に落ちていませんが、ひとまず動きました。ありがとうございます！

Answer 2

リンク先は整数型(Integer, Long)についての話なので、今回の件とは直接は関係ないですね。浮動小数点数の演算になりますので。

当方はWindowsですのが、そのコードでエラーはでません。
Macは持ってないので確認はできませんが、下記のコードだとどうなりますか。

Sub my_test()
    Dim w_test As Double

    w_test = 0.66 - 0.5

End Sub

あるいは、

Sub my_test()
    Dim w_test As Currency

    w_test = CCur(0.66) - CCur(0.5)
    Debug.Print w_test

End Sub

Comments

[akihico]

記載が漏れていて申し訳ありませんが、エラーが起きたプログラムの一部を切り出して実行していたので、他の部分が影響していました。話は逸れますが、カレンシー型は小数点以下も行けたんですね。勉強になりましたm(_ _)m

[hatena19]

Currencyは小数点4桁までですが、誤差のない演算が可能です。浮動小数点数は演算誤差がありますので、その点は留意しておく必要があります。

[akihico]

了解しました。ご親切に補足していただき、ありがとうございました。