うまくいかないです。
CDbl関数 | ExcelのVBA関数
https://www.vba-ie.net/function/cdbl.php
に記載のサンプルコード、
-------------------
Sub sample()
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784) ' MyCurr は、通貨型です。
MyDouble = CDbl(MyCurr * 8.2 * 0.01) ' 倍精度浮動小数点数型に変換します。
End Sub
-------------------
を、Excelの標準モジュールに貼り付けて、実行してみたのですが。
セルの方には何も反映されず…どうすればサンプルコードを実行できるかご教授いただけますと幸いです。
よろしくお願い致します<m(__)m>
MsgBox() か Debug.Print を使うのはどうでしょうか。
Debug.Print の場合、コード欄の下のイミディエイトウインドウに結果が表示されます。
Sub sample() Dim MyCurr, MyDouble MyCurr = CCur(234.456784) ' MyCurr は、通貨型です。 MyDouble = CDbl(MyCurr * 8.2 * 0.01) ' 倍精度浮動小数点数型に変換します。 MsgBox MyCurr MsgBox MyDouble Debug.Print MyCurr Debug.Print MyDouble End Sub
ちなみに、Mod は、モジュロ演算子です。CやJavaで剰余演算 を「a % b」とするとこを、Basic系では、「a Mod b」となります。
2020/01/09 09:29:45https://excelmath.atelierkobato.com/mod/
Basic系、VBAはbasic系なんですね…BASIC系の演算子、また復習します💦
2020/01/10 19:01:41