Currency型（通貨型）に変換する【CCur関数】【ExcelVBA】

構文
CCur関数のサンプルコード
注意点
関連記事

構文

CCur(Expression) As Currency

Expression・・・文字列式または数式を指定※省略不可
戻り値・・・・・ Currency型 -922,337,203,685,477.5808 ～ 922,337,203,685,477.5807

Expressionに指定した文字をCurrency型（通貨型）に変換します。

CCur関数のサンプルコード


Public Sub sample_CCur()

    '■通常の変換
    Debug.Print CCur(1000.12345)     '→1000.1235
    Debug.Print CCur("1000.54321")   '→1000.5432
    Debug.Print CCur("\1000.12")     '→1000.123
    

    
    '■構文エラー
    'debug.print CCur()
    '■実行時エラー 13 型が一致しません
    Debug.Print CCur("千円")
    Debug.Print CCur("1000円")
    Debug.Print CCur("aaa")

End Sub