表計算ソフトは、多くの人が日々の業務で利用し、オフィスの重要な要素となっています。 大多数の人はそれなりに基本的な使い方をしていますが、上級者の中には、以下のような難しさや複雑さを感じている人もいます。 かずをこえる このガイドでは、この問題に対処し、Excelで提供されています。 よ には、さまざまな方法があります。 かずをこえる さらに、エクセルで 3 をより多くの方法で 数値のテキスト化 .

ワークブックダウンロード

今回使用したワークブックは下記からダウンロードできますので、ご自身で練習してみてください。

Excelで数値を単語に変換する4つの方法

ここでは、Excelで数字を単語に変換する方法について説明します。 さらに、デモを行います。 よ のテクニックを使って操作を行います。 セッションを行うために、今回は Microsoft 365版 .

1.数字を言葉に変換するExcelの複合関数の使い方

ここで使用したExcelの計算式は、以下のものに依存しています。 よ の機能です。 左 , ミッド , テキスト , と 選択 の機能を持つ。

まず、シンタックスの 左 関数は以下の通りです。

基本的には、テキストから文字を抽出するために使用される機能です。

テキスト 文字を抽出するためのテキスト文字列。

num_chars [オプション）。 抽出する文字数。 左から順に表示されます。 デフォルトでは、右から順に表示されます。 num_chars=1 .

第二に、構文が ミッド 関数は以下の通りです。

実は、この関数は文字列の中からテキストを取り出すのに使われる。

テキスト 抽出するテキスト。

start_num: 最初に抽出する文字の位置。

num_chars。 抽出する文字数。

第三に、構文が テキスト 関数は以下の通りです。

最終的に、この関数は、数値を数値形式のテキストに変換する。

の値を設定します。 変換する数値。

format_textを指定します。 使用する数値の形式。

次に、構文として 選択 関数は以下の通りです。

説明： リストから位置を基準に値を取得する。

index_num。 選択する値。 1 と 254 .

値1です。 最初に選択する値です。

value2 [オプション]。 2つ目の値から選択する。

• ここでは、数値の変換を 言葉の中の数字 の欄があります。

• では、次の数式を書き込んでください。 C5 のセルがあります。

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),2,1)+1,,,,,20 ", "30 ", "40 ", "50 ", "60 ", "70 ", "80 ", "90 "))

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")).TEXT(B5, "000000000.00″), "B1", "B1", "1"、"1"、"1"。

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"))

&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT(B5,”000000000.00″)))>0),” Million and “,” Million “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),4,1)+1,,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"")

&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID(TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))

&CHOOSE(MID(TEXT(B5, "000000000.00″),5,1)+1,,,," 20"," 30"," 40"," 50"," 60"," 70"," 80"," 90").

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1,," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eight18"," Nineteen"))

&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),7,1)+1,,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine".")

&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID(TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&

CHOOSE(MID(TEXT(B5, "000000000.00″),8,1)+1,,,,20 ", "30 ", "40 ", "50 ", "60 ", "70 ", "80 ", "90 "))

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Ten", "11", "12", "Thirteen", "14", "15", "16", "Seventeen", "Eighteen", "Nineteen""))

一見すると、全体の計算式が複雑に見えるかもしれませんが、基本的には1つの部分の繰り返しです。 ですから、理解できれば 第一 の部分を理解すれば、あとは計算式が理解できるはずです。

• 続いて、 を押します。 エンタメ .

その結果、次のような出力が表示されます。

フォーミュラの内訳。

当初は テキスト 関数は、ここで数値を "000000000.00" テキスト形式です。

TEXT(B7,”000000000.00″)

その後 左 関数は，数値から左端の文字を抽出するために使用されます。 これにより，戻り数値が ゼロ またはその他の値。

LEFT(TEXT(B7,”000000000.00″))

次に 選択 関数は、抽出された数字を適切な単語で表現するために使用される。

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

では、その値が ゼロ であるかどうか。 ゼロ と表示されると、何も表示されません。

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

表示されます。 "百" もし、次の に は、数字が ゼロ そうでない場合は、次のように表示されます。 "百と"

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

この式は、必要ありません。 ブイビーエー 数字を言葉にするのに優れた方法ですが、その反面、「曖昧さ」があります。 に 1つは、小数点以下の数字を完璧に表現できないこと。 2つは、最大数の制限があること。 999, 999, 999 ... 実は ピート・Mさん は、この数式を思いついたのです。

• さて、残りの行の数式を書くか、単に エクセルオートフィル機能 .

最後に、すべての かずいちご .

続きを読む Excelで小数点以下2桁の数字をテキストに変換する方法（5つの方法）

2.VLOOKUP関数を応用した数値の単語への変換

応募することができます VLOOKUP 関数に かずをこえる ここでは、まずすべての数字を単語にしてから、この関数で任意の数字を単語に変換することにします。

ステップス

• まず、すべての数字を手書きでワードに書き出し C列 .

• ここで、以下の数式を C12 のセルがあります。

• 次に、 を押します。 エンタメ .

フォーミュラ・ブレークダウン

この式では ブイルック 関数は、与えられた配列から値を返します。

• まず最初に。 B12 は、与えられたテーブルの中から探すルックアップ値である。
• 2つ目は B4:C9 は テーブルアレイ を探すというものです。 数値目標 .
• 3つ目。 2 は、値を返すべきテーブルの列数である。
• 第四に 偽 を表します。 せいせい に匹敵する。

続きを読む ExcelのVLOOKUPで数値をテキストに変換する方法（2通り）

類似の読み物

• Excelで数字を文字に変換する方法（アポストロフィ付き
• Excelで緑色の三角形で数値をテキストに変換する
• エクセルでカンマを使って数字を文字に変換する方法（簡単な3つの方法）
• Excelで科学的記数法を使わずに数値をテキストに変換する
• エクセルでペソの数字を単語に変換する方法（簡単なステップ付き）

3.VBAを使ってExcelで数値を単語に変換する

一番面白いのは、自分の好きなものを作ることができることです。 自己完結型機能 まで 数を言葉に変換する を使用することができます。 VBAコード を開発する。 一定 その手順は以下のとおりです。

ステップス :

• まず、選択するのは デベロッパー を選択します。 ビジュアル・ベーシック

• では、その中から インサート を選択する必要があります。 モジュール .

• このとき、以下のことを書き留める必要があります。 コード において モジュール .

 Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ",",",""") x_numb = Array(", "1000 "," Million ", "10"), " ", ",",""",""","","","",","",",","","",",",",",",",",",",",",",",","-Number" x_pont "type(の整数)Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP> 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If Len(x_numb)> 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function 関数 get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Booleanx_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) if x_string "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1) & "100 " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " y_bb = False End if End If Mid(x_string_Num, 2, 2) if x_str = " " " x_str = false）"00" Then x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ","Eighteen ", "Nineteen ") x_array_2 = Array(", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and" x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1))> 1 Then If y_b Thenx_string = "and " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If x_string = "" Then If y_b Then x_string = "and " End If End If Right(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If get_ten_digit = x_string End Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("0".Z, "X, X") Dim X, X_digit (1", "X)); X_array (1, 2, 3)"One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function 

• ここで、保存する コード .
• 次に エクセルワークシート .

このとき、自分の 一定 そのためには、以下の手順に従ってください。

ステップス

• ここで、変換後の出力を表示したいセルを選択します（ここでは、セル C5 ).
• 次に、入力します。 イコールサイン（=）。 を入力すると、数式を入力できるようになります。
• その後、" "を入力します。 =数字から言葉への変換 " を選択するか number_converting_into_words（ナンバーコンバーティングワード 関数をドロップダウン・メニューから選択します。
• 続いて、単語に変換したい数値の入ったセルを選択します（ここでは、セル B5 ).
• 最後に エンタメ ボタンをクリックします。

最後に、この数式を他のセルにもコピーすればよいのです。

続きを読む Excelで数値を英単語に変換する方法

4.VBAを使ったExcelでの通貨表記の方法

この方法は前回と同様で、モジュールを挿入する際にも VBA (Visual Basic for Application) 前回の方法と異なるのは、この方法が は、数字を適切な通貨単位に変換します。 さらに、以下にその一例を示す。

では、次の手順でこの方法を適用してください。

• まずはフォロー メソッドスリー をクリックしてモジュールを挿入します。
• 次に、以下のコードを モジュール2 .

 Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array(", " thousand ", " million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number =Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " 100 " End If Mid(xValue, 2, 1) "0" Then xHundred = "0" If xValue, 1, 3xHundred & get_ten(Mid(xValue, 2)) Else xHundred = xHundred & get_digit(Mid(xValue, 3)) End If xHundred "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End If Len(whole_number)> 3 Then whole_number = Left(whole_number, Len(whole_number) - 3) Else whole_number = "" End IfxIndex = xIndex + 1 ループ Select Case converted_into_dollar Case "" converted_into_dollar = " ゼロドル" Case "One" converted_into_dollar = " ワンドル" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Case converted_into_cent Case "" converted_into_cent = " とゼロセント" Case "ワンドル"converted_into_cent = " and One Cent" Case Else converted_into_cent = " and " & converted_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent End Function 関数 get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output= "十" ケース 11: my_output = "十一" ケース 12: my_output = "十二" ケース 13: my_output = "十三" ケース 14: my_output = "十四" ケース 15: my_output = "十五" ケース 16: my_output = "十六" ケース 17: my_output = "十七" ケース 18: my_output = "十八" ケース 19: my_output = "十九" ケース Else end Select ElseSelect Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case Else End Select My_output = my_output & get_digit(Right(pTens, 1)) End If get_ten =my_output End Function Function get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = "" End Select End機能 

その結果、自分の 一定 という名前の関数 通貨を含む数値の単語への変換 そのためには、以下の手順に従ってください。

ステップス

• ここで、結果を保存したいセルを選択します。 C5 のセルがあります。
• そして、対応する数式を C5 のセルがあります。

• 続いて、 を押します。 エンタメ .

• 最後に、Excelを使用します。 オートフィル機能 その他のセルについて C6:C9 .

最後に、変換された金額をすべて取得することができます。

続きを読む Excelで数値をテキストに変換し、末尾のゼロを維持する方法（4つの方法）

Excelで数値をテキスト形式に変換する方法

これまでに、次のような話をしました。 数字から言葉への変換方法 をExcelで作成する方法を説明します。 数字をテキストに変換する これは、数値をテキストに変換する最も簡単で高速な方法です。

ここでは、以下の手順でこの方法を適用してください。

• まず、テキストに変換したい数値のあるセルを1つ以上選択します（ここではセル C5:C9 )
• 2つ目は ホーム タブを選択し テキスト の下にあるセルカテゴリー・ドロップダウンメニューから、オプションを選択します。 番号 のセクションをご覧ください。

Excelのデフォルトでは、テキストは左揃え、数値は右揃えになっています。

を押すこともできます。 CTRL+1 という名前のウィンドウを開きます。 セルのフォーマット を選択し 番号 オプションを選択し テキスト のカテゴリーに分類されます。

続きを読む Excel VBAで数値をテキストに変換する（4例）

プラクティス部門

練習用に、各シートの右側に「練習用」の欄を設けました。

結論

ここで、我々は、この記事では、適切な単語やテキストに番号を変換する方法についての究極のガイドを作成しようとしました。 エムエスエクセル さらに 7 この記事で紹介した様々なテクニックは、あなたの特定の状況に最も適した理想的なオプションを選択できるようにします。 では、あなたが探していた解決策を見つけることを願っています。 何か提案や質問があれば、コメントを残してください。 ありがとうございました。