メインコンテンツへスキップ

Excelで通貨数字を素早く単語に変換するにはどうすればよいですか?

Author: Sun Last Modified: 2025-05-23

Excelで財務データを扱う際、小切手の金額を記載する場合など、通貨数字を単語に変換する必要がある場合があります。残念ながら、Excelにはこの目的のための組み込み関数は提供されていませんが、これを実現するための2つの効果的な方法があります。この記事では、両方の方法について説明し、ニーズに基づいて最適なアプローチを選択できるようにします。

Example of currency numbers in Excel converted to words

VBAコードを使用して通貨数字を単語に変換する

Kutools for Excelを使用して通貨数字を単語に変換する good idea3


VBAコードを使用して通貨数字を単語に変換する

Excelでは、VBA以外に数字を英単語に迅速に変換することはできません。

1. 「Alt + F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、以下のVBAコードを新しいモジュールウィンドウに貼り付けます。

VBA: 通貨数字を英単語に変換

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. その後、このコードを保存し、ウィンドウを閉じてワークシートに戻ります。空白のセルを選択し、この数式を入力します:=SpellNumberToEnglish(A2)(A2は通貨数字です)、Enterキーを押します。そして、フィルハンドルをドラッグして、必要なセルにこの数式を適用します。スクリーンショットをご覧ください:

Example of using SpellNumberToEnglish formula to convert currency number to words in Excel
Arrow down
Example of currency numbers in Excel converted to words

便利な「数字を単語に変換」機能を使用して通貨数字を単語に変換する

VBAを使用したくない方には、Kutools for Excelがシンプルでワンクリックの方法を提供します。Kutools for Excelの「Numbers to Words」機能は、40以上の異なる通貨形式に対応しており、財務報告や国際取引に理想的なソリューションです。数回のクリックで、ユーザーは数値をUSD、EUR、GBP、JPY、CNYなどの複数の言語で完全にフォーマットされた通貨テキストに変換でき、手動での変換の必要がなくなり、エラーも減少します。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

1. 通貨数字を選択し、「Kutools」>「コンテンツ」>「Numbers to Words」をクリックします。スクリーンショットをご覧ください:

Screenshot showing Numbers to Words option in Kutools Content menu in Excel

2. 「Numbers to Currency Words」ダイアログで、使用したい言語を選択します。ここでは「言語」リストボックスから「英語」オプションを選択します。スクリーンショットをご覧ください:

Screenshot showing Numbers to Currency Words dialog with English and Chinese options

3. 「OK」または「適用」をクリックします。選択した通貨数字が特定の通貨単語に変換されます。

Screenshot of currency numbers converted to English words using Kutools

📌 注: この「Numbers to Words」機能を適用する前に、通貨数字を別のワークシートにコピーして貼り付けることができます。

Excelで通貨数字を単語に変換するには、VBAまたはKutools for Excelを使用することで効率的に行うことができます。これらのいずれかの方法を実装することで、財務報告を自動化し、手動入力によるエラーを排除できます。さらに多くのExcelのヒントやコツに興味がある場合、当社のウェブサイトでは数千ものチュートリアルを提供しており、Excelの習得に役立ちます


デモ: Kutools for Excelを使用して通貨数字を単語に変換する

 
Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結!永久無料のAI機能をお楽しみください!今すぐダウンロード!

最高のオフィス生産性ツール

🤖 Kutools AI アシスタント: データ分析を革命化する: インテリジェント実行   |  コード生成  |  カスタム数式の作成  |  データを分析しグラフを生成  |  拡張機能を呼び出す
人気の機能: 重複を見つけてハイライトまたはマーキング   |  空白行を削除   |  データを失わずに列またはセルを統合   |   丸める ...
スーパーLOOKUP: 複数条件のVLookup    複数値のVLookup  |   複数シートの検索   |   ファジーマッチ ....
高度なドロップダウンリスト: ドロップダウンリストを迅速に作成   |  依存ドロップダウンリスト   |  マルチセレクトドロップダウンリスト ....
列管理: 特定の数の列を追加  |  列を移動  |  非表示列の可視ステータスを切り替え  |  範囲と列を比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   強化された数式バー    ワークブック & ワークシート管理   |  オートテキスト ライブラリ (Auto Text)   |  日付ピッカー   |  データの統合   |  セルの暗号化/復号化    リストで電子メールを送信   |  スーパーフィルター   |   特殊フィルタ (太字/斜体/取り消し線をフィルタリング...) ...
トップ15のツールセット12 のテキストツール (テキストの追加, 特定の文字を削除, ...)  |  50以上 のグラフ の種類 (ガントチャート, ...)  |  40以上の実用的な 数式 (誕生日に基づいて年齢を計算する, ...)  |  19 の挿入ツール (QRコードの挿入, パスから画像を挿入, ...)  |  12 の変換ツール (単語に変換する, 通貨変換, ...)  |  7 の統合 & セルの分割ツール (高度な行のマージ, セルの分割, ...)  |  ...さらに多く

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、300以上の高度な機能を提供し、生産性を向上させ、保存時間を節約します。  最も必要な機能を入手するにはここをクリック...


Office TabはOfficeにタブインターフェイスをもたらし、作業を非常に簡単にします

  • Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付きの編集と読み取りを有効にします。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを減らします!