【VBA】数値をドル通貨へ変換する

VBAで
　・数値をドル通貨へ変換
できます！

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

VBAから
　・ワークシート関数「DOLLAR関数」
を使用することで実現できます！

PR

VBAコード

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

Option Explicit

Sub sample()
    
    Dim targetNum As Long
    Dim result As String
    
    'ドル通貨へ変換したい数値を指定
    targetNum = 1500
    
    '数値をドル通貨へ変換
    result = WorksheetFunction.Dollar(targetNum, 0)
    
    MsgBox (targetNum & "　は　" & result & "　です！")
    
End Sub

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

「WorksheetFunctionオブジェクト」の「Dollar」メソッドにより、数値をドル通貨へ変換します(12行目)。
※ワークシート関数「Dollar関数」です。
※2つ目の引数に「0」を指定することで、小数点以下を非表示にしています。

PR

実行結果

数値をドル通貨へ変換できました。
※「1500」を「＄1,500」へ変換できました。

実行結果
実行結果
PR

参考①

「数値」を「通貨形式(円通貨)」へ変換することもできます。
※例えば「1500」を「\1,500」へ変換できます。

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

【VBA】数値を通貨形式へ変換する
【VBA】数値を通貨形式へ変換するVBAコードです！
excel-vba.work
2022.02.11
PR

参考②

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

●ワークシート関数「DOLLAR関数」

DOLLAR 関数 - Microsoft サポート
TEXT 関数の 1 つである DOLLAR 関数は、通貨形式を使用して数値をテキストに変換します。小数点は指定した桁数に丸められます。 DOLLAR は $#、##0.00_)を使用します。($#,##0.00) 数値形式ですが、適用され...
support.microsoft.com
PR