Excel（2025 エディション）でインド・ルピーおよびその他の通貨の単語に変換するを変換

著者Xiaoyang変更日2025-06-13

Excel で数字をインド・ルピー（またはその他の通貨）の単語表記に変換する方法をご紹介します。

請求書、見積書、税務申告書、小切手、支払証憑などの財務書類を作成する際には、金額を数値と文字列の両方で記載することが一般的です。これにより、専門性が向上し、不正行為や誤解を効果的に防止できます。

例

12,350.50 → ルピー12,350 ルピーおよび50 パイサのみ

Microsoft Excel には数値を単語に変換するための組み込み機能はありませんが、VBA、LAMBDA 関数、またはオールインワンの Kutools for Excel アドインを使えば、簡単に実現できます。

VBA を使用してインド・ルピーで単語に変換するを変換（すべての Microsoft バージョン対応）

他の通貨（USD、EUR など）で単語に変換するを変換
ブックをマクロ有効ファイルとして保存

ブックをマクロ有効ファイルとして保存

LAMBDA 関数を使用してインド・ルピーで単語に変換するを変換（Microsoft 365 のみ対応）

数字を USD、EUR、および30+その他の通貨に変換（すべての Microsoft バージョン対応）

各方法の使用タイミング

VBA を使用してインド・ルピーで単語に変換するを変換（すべての Microsoft バージョン対応）

どのExcel バージョンでも、VBA（Visual Basic for Applications）を使えば、インド式数体系（例：千、ラク、クロール）に基づいて数値を単語に変換するカスタマイズ可能な方法が利用できます。どのExcel バージョンでも、VBA（Visual Basic for Applications）を使えば、インド式数体系（例：千、ラク、クロール）に基づいて数値を単語に変換するカスタマイズ可能な方法が利用できます。どのExcel バージョンでも、VBA（Visual Basic for Applications）を使えば、インド式数体系（例：千、ラク、クロール）に基づいて数値を単語に変換するカスタマイズ可能な方法が利用できます。どのExcel バージョンでも、VBA（Visual Basic for Applications）を使えば、インド式数体系（例：千、ラク、クロール）に基づいて数値を単語に変換するカスタマイズ可能な方法が利用できます。どのExcel バージョンでも、VBA（Visual Basic for Applications）を使えば、インド式数体系（例：千、ラク、クロール）に基づいて数値を単語に変換するカスタマイズ可能な方法が利用できます。

手順 1：Alt+F11を押して、VBA エディター（Microsoft Visual Basic for Applications ウィンドウ）を開きます。

手順 2：［挿入］＞［標準モジュール］を選択します。

手順 3：VBA コードを標準モジュールに貼り付けましょう。

Function ConvertToRupees(ByVal MyNumber)
'UpdatebyExtendoffice
    Dim Units As String, SubUnits As String, TempStr As String
    Dim DecimalPlace As Integer, Count As Integer
    Dim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lakh "
    Place(4) = " Crore "
    
    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    
    If DecimalPlace > 0 Then
        SubUnits = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    
    Count = 1
    Do While MyNumber <> ""
        TempStr = GetHundreds(Right(MyNumber, 3))
        If TempStr <> "" Then Units = TempStr & Place(Count) & Units
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    
    ConvertToRupees = "Rupees " & Application.WorksheetFunction.Trim(Units)
    If SubUnits <> "" Then
        ConvertToRupees = ConvertToRupees & " and " & SubUnits & " Paise"
    End If
    ConvertToRupees = ConvertToRupees & " Only"
End Function

Private Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

Private Function GetTens(TensText)
    Dim Result As String
    If Val(Left(TensText, 1)) = 1 Then
        Select Case Val(TensText)
            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"
        End Select
    Else
        Select Case Val(Left(TensText, 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 "
        End Select
        Result = Result & GetDigit(Right(TensText, 1))
    End If
    GetTens = Result
End Function

Private Function GetDigit(Digit)
    Select Case Val(Digit)
        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

インド・ルピーで数字を単語に変換

手順 4：保存して、Excel に戻ります。

=ConvertToRupees(A2)

手順 5：セルを選択し、次のように数式を使用します：手順 5：セルを選択し、次のように数式を使用します： 手順 5：セルを選択し、次のように数式を使用します：

Enterキーを押します。

💡 ヒント：この方法は小数点（パイサ）に対応しており、オフラインでも動作します。

ブックをマクロ有効ファイル（。xlsm）形式で保存する必要があります。
一部の環境では、セキュリティ設定によってマクロがブロックされることがあります。

VBA を使用する際の制限事項

他の通貨（USD、EUR など）で単語に変換するを変換

他の通貨（例：「ドル」や「ユーロ」）に対応した出力にカスタマイズするには、VBA 関数内の文字列値を調整してください。以下は、よりシンプルで柔軟性の高い関数の例です。

'UpdatebyExtendoffice
Public Function NumberToWordsCustom(ByVal num As Double, Optional ByVal currency2 As String, Optional ByVal subCurrency As String) As String
    Dim result As String
    Dim dollars As Long
    Dim cents As Long

    dollars = Int(num)
    cents = Round((num - dollars) * 100)
  
    If Len(currency2) = 0 Then currency2 = "Dollars"
    If Len(subCurrency) = 0 Then subCurrency = "Cents"
    result = currency2 & " " & SpellNumber_English(dollars)

    If cents > 0 Then
        result = result & " and " & SpellNumber_English(cents) & " " & subCurrency
    End If

    NumberToWordsCustom = result & " Only"
End Function

Private Function SpellNumber_English(ByVal MyNumber As Long) As String
    Dim Units As Variant, Tens As Variant, Teens As Variant
    Dim Place() As String
    Dim TempStr As String
    Dim Count As Integer
    Dim t As String
    Dim StrNumber As String
    Dim n As Integer

    Place = Split(" Thousand Million Billion", " ")
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Teens = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

    StrNumber = Trim(Str(MyNumber))
    Count = 0

    Do While StrNumber <> ""
        n = Val(Right(StrNumber, 3))
        If n <> 0 Then
            t = ConvertHundreds(n, Units, Tens, Teens)
            If Count > 0 Then t = t & " " & Place(Count - 1)
            TempStr = t & " " & TempStr
        End If
        If Len(StrNumber) > 3 Then
            StrNumber = Left(StrNumber, Len(StrNumber) - 3)
        Else
            StrNumber = ""
        End If
        Count = Count + 1
    Loop

    SpellNumber_English = Trim(TempStr)
End Function

Private Function ConvertHundreds(ByVal n As Integer, Units As Variant, Tens As Variant, Teens As Variant) As String
    Dim result As String
    If n >= 100 Then
        result = Units(Int(n / 100)) & " Hundred "
        n = n Mod 100
    End If
    If n >= 20 Then
        result = result & Tens(Int(n / 10)) & " "
        n = n Mod 10
    ElseIf n >= 10 Then
        result = result & Teens(n - 10) & " "
        n = 0
    End If
    If n > 0 Then
        result = result & Units(n)
    End If
    ConvertHundreds = Trim(result)
End Function

柔軟な VBA コードテンプレート（カスタム通貨対応）

=NumberToWordsCustom(A2, 「Dollars」, 「Cents」)

VBA 数式の例：

=NumberToWordsCustom(A2, 「Euros」, 「Cents」)

=NumberToWordsCustom(A2, 「Pounds」, 「Pence」)

他の通貨用 VBA 数式の例：

ブックをマクロ有効ファイルとして保存

このコードは柔軟性に優れており、目的の通貨と補助単位を渡すだけで簡単に対応できます。

VBA を使用する際は、必ずマクロを有効にしてブックを保存してください。そうしないと、ファイルを閉じたときにコードが失われてしまいます。VBA を使用する際は、必ずマクロを有効にしてブックを保存してください。そうしないと、ファイルを閉じたときにコードが失われてしまいます。VBA を使用する際は、必ずマクロを有効にしてブックを保存してください。そうしないと、ファイルを閉じたときにコードが失われてしまいます。VBA を使用する際は、必ずマクロを有効にしてブックを保存してください。そうしないと、ファイルを閉じたときにコードが失われてしまいます。

手順 1：ファイル>

手順 2：保存場所を選択し、ファイルの種類として次のように指定してください：Excel マクロ有効ブック(*。xlsm)。

手順 3：保存をクリックします。

✅ =ConvertToRupees(A2) のようなカスタム関数を保存すれば、いつでも再利用できます。

LAMBDA 関数を使用してインド・ルピーで単語に変換するを変換（Microsoft 365 のみ対応）

Excel 365 ユーザーの皆様には、VBA 不要でカスタム数式を定義できる新しいExcel 機能「LAMBDA」をご利用いただけます。

🪄 LAMBDA とは？

LAMBDA はExcel の画期的な機能で、SUMやIFといった組み込み関数と同じように、数式だけで独自のカスタム関数を作成できます。コードもマクロも一切不要！繰り返し使うロジックをスッキリとまとめて、スプレッドシートをよりクリーンでメンテナンスしやすくするのに最適です。LAMBDA はExcel の画期的な機能で、SUM や IF といった組み込み関数と同じように、数式だけで独自のカスタム関数を作成できます。コードもマクロも一切不要！繰り返し使うロジックをスッキリとまとめて、スプレッドシートをよりクリーンでメンテナンスしやすくするのに最適です。LAMBDA はExcel の画期的な機能で、SUM や IF といった組み込み関数と同様に、数式だけで独自のカスタム関数を簡単に作成できます。コードもマクロも一切不要！繰り返し使うロジックをスッキリまとめて、スプレッドシートをよりクリーンでメンテナンスしやすくするのに最適です。LAMBDA はExcel の画期的な機能で、SUM や IF といった組み込み関数と同じように、数式だけで独自のカスタム関数を作成できます。コードもマクロも一切不要！繰り返し使うロジックをスッキリとまとめて、スプレッドシートをよりクリーンでメンテナンスしやすくするのに最適です。LAMBDA はExcel の画期的な機能で、SUM や IF といった組み込み関数と同じように、数式だけで独自のカスタム関数を作成できます。コードもマクロも一切不要！繰り返し使うロジックをスッキリとまとめて、スプレッドシートをよりクリーンでメンテナンスしやすくするのに最適です。

手順 1：名前の管理に移動し、数式 > 名前の管理をクリックします。

新規ボタンをクリックします。
名前を入力してください。Name。
例：RupeeToWords
手順 3：この LAMBDA 数式を参照先フィールドに貼り付けます：
=LAMBDA(n, LET( units, {「」,「One」,「Two」,「Three」,「Four」,「Five」,「Six」,「Seven」,「Eight」,「Nine」}, teens, {「Ten」,「Eleven」,「Twelve」,「Thirteen」,「Fourteen」,「Fifteen」,「Sixteen」,「Seventeen」,「Eighteen」,「Nineteen」}, tens, {「」,「」,「Twenty」,「Thirty」,「Forty」,「Fifty」,「Sixty」,「Seventy」,「Eighty」,「Ninety」}, num, INT(n), paise, ROUND((n - INT(n)) * 100, 0), ConvertTwo, LAMBDA([[PH_2]], IF([[PH_2]]0, 「」 & INDEX(units, MOD([[PH_2]],10)+1), 「」) ) ) ), ConvertThree, LAMBDA(x, IF(x=0, 「」, IF([[PH_2]]0, 「」 & ConvertTwo(MOD([[PH_2]],100)), 「」) ) ) ), words, IF(num=0, 「Zero」, TEXTJOIN(「」, TRUE, IF(INT(num/10000000)>0, ConvertTwo(INT(num/10000000)) & 「 Crore」, 「」), IF(MOD(INT(num/100000),100)>0, ConvertTwo(INT(MOD(num,10000000)/100000)) & 「 Lakh」, 「」), IF(MOD(INT(num/1000),100)>0, ConvertTwo(INT(MOD(num,100000)/1000)) & 「 Thousand」, 「」), IF(MOD(INT(num/100),10)>0, INDEX(units, INT(MOD(num,1000)/100)+1) & 「 Hundred」, 「」), IF(MOD(num,100)>0, ConvertTwo(MOD(num,100)), 「」) ) ), result, 「Rupees 」 & words & IF(paise>0, 「 and 」 & ConvertTwo(paise) & 「 Paise」, 「」) & 「 Only」, result ))

クリックすると、OKを押して新しい名前が保存されます。

手順 2：新しい名前を作成します。

手順 3：名前の管理を閉じてExcel に戻ります。

=RupeeToWords(A2)

手順 4：任意のセルで次のように数式を使用します：手順 4：任意のセルで次のように数式を使用します： 手順 4：任意のセルで次のように数式を使用します：

押します。 Enter キー。

👀 完全な LAMBDA 関数コードは、クロール、ラク、千、および小数点を処理します。

数字を USD、EUR、および30+その他の通貨に変換（すべての Microsoft バージョン対応）数字を USD、EUR、および30+その他の通貨に変換（すべての Microsoft バージョン対応） 数字を USD、EUR、および30+その他の通貨に変換（すべての Microsoft バージョン対応）

最も効率的でプロフェッショナルなソリューションとして、Kutools for Excel の「単語に変換する」機能をご利用ください。この強力なツールは次をサポートしています：

米ドル（USD）
ユーロ（EUR）
中国元（CNY）
英ポンド（GBP）
など。

ダウンロード

🌍 30 種類以上の通貨に対応（例：

手順 1：変換したいセルを選択します。手順 1：変換したいセルを選択します。 手順 1：変換したいセルを選択します。手順 1：変換したいセルを選択します。 手順 1：変換したいセルを選択します。手順 1：変換したいセルを選択します。

手順 2： Kutools > コンテンツ > 単語に変換する

手順 3：対象の通貨を選択し、OK をクリックします。

数字が指定された通貨に変換されます。数字が指定された通貨に変換されます。数字が指定された通貨に変換されます。

数字を USD、EUR、および30+その他の通貨に変換（すべての Microsoft バージョン対応）

柔軟性が高く、プログラム可能なソリューションをお求めで、マクロに慣れている場合は、ぜひ VBA をご利用ください。
Excel 365 をご利用で、インド・ルピーの変換をたまに行うだけであれば、LAMBDA 関数が最適です。軽量で共有可能なこの方法は、マクロや外部ツールを一切必要とせず、シンプルな作業や個人的な用途にぴったりです。
Kutools for Excel をご利用ください。コーディング不要で、最も簡単・高速かつ多機能なソリューションです。特に次のような場面でKutools が役立ちます：
- 複数の通貨に対応しています。
- 大量または大規模なデータセットの値を一括変換する必要があります。
- マクロ不要でプロフェッショナル向けのツールが欲しい方へ。30+種類の通貨オプションと AI 搭載のパフォーマンスを備えています。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

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

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。