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

VBAで
 ・数値通貨形式へ変換
できます!

例えば
 ・「1500」を「\1,500」へ変換
できます!

VBA関数の1つである
 ・FormatCurrency関数
により実現できます!

PR

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

「通貨形式へ変換したい数値」を指定します(9行目)。

「FormatCurrency関数」により、数値を通貨形式へ変換します(12行目)。

PR

実行結果

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

実行結果
実行結果
PR

参考①

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

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

PR

参考②

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

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

PR

参考③

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

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

PR

参考④

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

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

PR

参考⑤

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

●FormatCurrency関数

タイトルとURLをコピーしました