1578307022 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>

回答の条件
  • 1人20回まで
  • 登録:
  • 終了:2020/01/09 07:25:25
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ベストアンサー

id:rsc96074 No.1

回答回数4504ベストアンサー獲得回数437

ポイント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

※参考URL
https://tonari-it.com/excel-vba-debug-print/

他1件のコメントを見る
id:rsc96074

 ちなみに、Mod は、モジュロ演算子です。CやJavaで剰余演算 を「a % b」とするとこを、Basic系では、「a Mod b」となります。
https://excelmath.atelierkobato.com/mod/

2020/01/09 09:29:45
id:moon-fondu

Basic系、VBAはbasic系なんですね…BASIC系の演算子、また復習します💦

2020/01/10 19:01:41
  • id:Yoshiya
    >セルの方には何も反映されず…どうすればサンプルコードを実行できるかご教授いただけますと幸いです。

    セルに計算結果を代入しなければ、セルには反映されません。
    この場合、VBEのイミディエイトウインドウで確認するか、セルに代入するコードを追加します。

    例)Range("A1") = MyCurr '通貨型
    Range("B1") = MyDouble '倍精度浮動小数点数型


    イミディエイトウインドウについては下記のサイトを参照のこと。

    https://tonari-it.com/vba-immediate-command-input/
  • id:moon-fondu
    Yoshiyaさんありがとうございます!

    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

    で実行しますと、セルに結果が反映されました(^^;)
  • id:Yoshiya
    >リンクに「If i Mod 10 = 0 Then Debug.Print」とありますが、"Mod"は何も定義されておらず謎ですね…また調べて判らなかったら質問させていただきますので、よろしくお願いします<m(__)m>

    Modは剰余(割り算の余り)を計算する演算子です。(関数ではありません。)

    「If i Mod 10 = 0」は「iを10で割って余りが0ならば…」(1の位が0)の意味です。

    参考サイト

    https://www.relief.jp/docs/excel-vba-mod-function.html
    VBAで割り算の余りを求めるMOD関数は?・インストラクターのネタ帳
  • id:moon-fondu
    ありがとうございます!演算子だったんですね。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません