【VBA】数値を通貨形式へ変換する

VBAコード

ここでは例として
　・「1500」を「\1,500」へ変換
します。

Option Explicit

Sub sample()
    
    Dim targetNum As Long
    Dim result As String
    
    '通貨形式へ変換したい数値を指定
    targetNum = 1500
    
    '数値を通貨形式へ変換
    result = FormatCurrency(Expression:=targetNum)
    
    MsgBox (targetNum & "　は　" & result & "　です！")
    
End Sub

実行結果

数値を通貨形式へ変換できました。
※「1500」を「\1,500」へ変換できました。

参考①

「数値」を「ドル通貨」へ変換することもできます。
※例えば「1500」を「＄1,500」へ変換できます。

詳細は以下の記事をご確認ください。

参考②

「数値」を「3桁カンマ区切り」へ変換することもできます。
※例えば「1000000」を「1,000,000」にできます。

詳細は以下の記事をご確認ください。

参考③

「数値」を「パーセント形式」へ変換することもできます。

詳細は以下の記事をご確認ください。

参考④

「数値(数字)」を「漢数字」へ変換することもできます。

詳細は以下の記事をご確認ください。

参考⑤

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●FormatCurrency関数