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

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

Author: Sun Last Modified: 2025-08-06

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 Aide:データ分析を革新:インテリジェント実行   |  コード生成  |  カスタム数式の作成  |  データを分析してグラフを生成  |  Kutools Functions を呼び出す
人気機能重複の検索・ハイライト・マーキング   |  空白行を削除   |  データを失わず列やセルを統合   |   丸める ...
スーパーLOOKUP複数条件VLOOKUP   複数値VLOOKUP  |  複数シートの検索  |  ファジーマッチ ....
高度なドロップダウンリストすばやくドロップダウンリストを作成   |  依存型ドロップダウンリスト   |  複数選択ドロップダウンリスト ....
列の管理:特定数の列を追加  | 列を移動  | 非表示列の表示状態を切り替え |  範囲と列の比較 ...
注目機能グリッドフォーカス   |  デザインビュー  |  強化された数式バー   ワークブック&ワークシートの管理   |  オートテキスト ライブラリ (Auto Text)   |  日付ピッカー   |  データの統合   |  セルの暗号化/復号化    リスト送信で電子メールを送信   |  スーパーフィルター   |   特殊フィルタ(太字/斜体/取り消し線でフィルタ...)
トップ15ツールセット12 種類のテキストツールテキストの追加特定の文字を削除など)  |  50 種以上のグラフ タイプガントチャートなど)  |  40を超える実用的な 数式誕生日に基づいて年齢を計算する、など)  |  19種の 挿入ツールQRコードの挿入パスから画像の挿入など)  |  12種類の 変換ツール単語に変換する通貨変換など)  |  7つの 結合&分割ツール高度な行のマージセルの分割など)  |  ...さらに多数
お好きな言語でKutoolsを使用できます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上に対応!

Kutools for ExcelでExcelスキルを強化し、かつてない効率を体験しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と時間短縮を実現します。最も必要な機能を今すぐ取得...


Office TabはOfficeにタブ表示を追加し、作業効率を大幅に向上させます

  • Word、Excel、PowerPointでタブ編集とタブ閲覧を有効にします
  • 同じウィンドウ内の新しいタブで複数のドキュメントを開いたり作成したりできます。新しいウィンドウを開く必要はありません。
  • 生産性が50%向上し、1日に何百回ものマウスクリックも削減できます!