CDbl関数を実行して結果を確認したいのですが…
うまくいかないです。
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>
ログインして回答する
ベストアンサー
-
rsc
満足800pt
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 -
rscその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2020-01-06 19:37:02
- 終了日時
- 2020-01-09 07:25:25
- 回答条件
- 1人20回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
最近「サパー」という概念を知ったのですが、欧米などでサパーのみディナーなしということは通常にあるので…
そさん
3
1
100pt
-
ダイエットを成功させるコツは何だと思いますか？
匿名質問者2
-
実は今、心療内科を受診しようか悩んでいます。 最近気分の波が酷く、とてもしんどいです。 多分いつの間に…
gomikasuusagi42
-
乃木坂46 2期生 卒業で写真のようにかわいい人は誰ですか？匿名質問者2
-
ロッテ佐々木朗希投手が完全試合を達成しましたが、「丹前」を全員が着用した状態で、試合…
JIYUJOHO4100pt
セルに計算結果を代入しなければ、セルには反映されません。
この場合、VBEのイミディエイトウインドウで確認するか、セルに代入するコードを追加します。
例）Range("A1") = MyCurr '通貨型
Range("B1") = MyDouble '倍精度浮動小数点数型
イミディエイトウインドウについては下記のサイトを参照のこと。
https://tonari-it.com/vba-immediate-command-input/
Sub sample()
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784) ' MyCurr は、通貨型です。
MyDouble = CDbl(MyCurr * 8.2 * 0.01) ' 倍精度浮動小数点数型に変換します。
Range("A1") = MyCurr '通貨型
Range("B1") = MyDouble '倍精度浮動小数点数型
End Sub
で実行しますと、セルに結果が反映されました(^^;)
Modは剰余(割り算の余り）を計算する演算子です。（関数ではありません。）
「If i Mod 10 = 0」は「iを10で割って余りが0ならば…」（1の位が0）の意味です。
参考サイト
https://www.relief.jp/docs/excel-vba-mod-function.html
VBAで割り算の余りを求めるMOD関数は？・インストラクターのネタ帳