Single型（単精度浮動小数点数型）に変換する【CSng関数】【ExcelVBA】

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

構文

CSng(Expression) As Single

Expression・・・文字列式または数式を指定※省略不可
戻り値・・・・・ Single型

Expressionに指定した文字をSingle型（単精度浮動小数点数型）に変換します。

CSng関数のサンプルコード

Public Sub sample_csng()

    '■通常の変換
    Debug.Print CSng(1000.12345)     '→1000.123
    Debug.Print CSng("1000.54321")   '→1000.543
    Debug.Print CSng("\1000.12")     '→1000.12
    
    '■構文エラー
    'debug.print cSng()
    '■実行時エラー 13 型が一致しません
    Debug.Print CSng("千円")
    Debug.Print CSng("1000円")
    Debug.Print CSng("aaa")

End Sub