A táblázatkezelőket sokan használják napi munkájuk során, így az irodájuk fontos elemévé válnak. Míg az emberek többsége viszonylag alapszinten használja a táblázatkezelőket, néhány haladó felhasználó nehezen vagy bonyolultan találja meg a számot szavakká alakítani Ebben az útmutatóban foglalkozunk ezzel a kérdéssel, és az alábbiakat adjuk meg négy különböző módszerek számot szavakká alakítani Excelben. Továbbá, vannak három több módszer a számok konvertálása szöveges formátumba .

Munkafüzet letöltése

A cikkben használt munkafüzetet letöltheted az alábbi oldalról, és magad is gyakorolhatsz vele.

4 mód a számok szavakká történő átalakítására Excelben

A cikk ezen része elmagyarázza, hogyan lehet számokat szavakká alakítani az Excelben. Ezen kívül bemutatjuk, hogy négy technikák a művelet végrehajtásához. A munkamenet lebonyolításához a következő technikát fogjuk használni Microsoft 365 verzió .

1. Az Excel kombinált függvényeinek használata a számok szavakká történő átalakításához

Az itt használt Excel-képlet a következőre támaszkodik négy funkciók. LEFT , MID , TEXT , és VÁLASSZON funkciók.

Először is, a szintaxis a LEFT funkció a következő:

Alapvetően ez a funkció arra szolgál, hogy karaktereket vonjon ki a szövegből.

Szöveg: A szöveges karakterlánc, amelyből a karaktereket ki kell vonni.

num_chars [Választható]: A kivonandó karakterek száma. Alapértelmezés szerint balról indul, num_chars=1 .

Másodszor, a szintaxis a MID funkció a következő:

Valójában ez a függvény arra szolgál, hogy a szöveget kivonja egy karakterlánc belsejéből.

Szöveg: A kivonatolandó szöveg.

start_num: Az első kivonandó karakter helye.

num_chars: A kivonandó karakterek száma.

Harmadszor, a szintaxis a TEXT funkció a következő:

Végül ez a függvény egy számot szám formátumú szöveggé alakít.

érték: A konvertálandó szám.

format_text: A használandó számformátum.

Ezután a szintaxis a VÁLASSZON funkció a következő:

Ez a függvény egy értéket kap egy listából a pozíció alapján.

index_num: A kiválasztandó érték. Egy szám a következő értékek között 1 és 254 .

value1: Az első érték, amelyből választhat.

value2 [opcionális]: A második érték, amelyből választhat.

• Itt a számot a Számok szavakban oszlop.

• Most írja le a következő képletet a C5 cellát.

=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,,,, "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")

&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"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Tíz", "Tizenegy", "Tizenkettő", "Tizenhárom", "Tizennégy", "Tizenöt", "Tizenhat", "Tizenhét", "Tizennyolc", "Tizenkilenc")))

&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,,,," Húsz"," Harminc"," Negyven"," Ötven"," Hatvan"," Hetven"," Nyolcvan"," Kilencven")

&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"," Eighteen"," 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,,,, "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")

&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", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")))

Az egész képlet első pillantásra bonyolultnak tűnhet, pedig lényegében egyetlen rész ismétléséről van szó. Tehát, ha megérti a első a képlet egy részét, a többit már meg kell értenie.

• Ezt követően nyomja meg a BELÉPÉS .

Ennek eredményeképpen a következő kimenetet látja.

Formula bontás:

Először a TEXT függvényt itt arra használjuk, hogy a számot egy "000000000.00" szöveges formátum.

TEXT(B7,”000000000.00″)

Ezután a LEFT függvényt arra használjuk, hogy kivegyük a bal szélső karaktert a számból. Ez lehetővé teszi számunkra, hogy azonosítsuk, hogy a visszatérő szám a nulla vagy bármilyen más érték.

LEFT(TEXT(B7,”000000000.00″))

Ezután a VÁLASSZON függvényt használjuk a kivont szám megfelelő szavakkal való ábrázolására.

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

Most azt ellenőrzi, hogy az érték nulla vagy nem. Ha igen nulla akkor nem jelenít meg semmit.

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

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

Megjelenik "Száz" ha a következő két a számok nulla . Ellenkező esetben a kijelzőn megjelenik "Száz és."

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 “))

Ez a képlet nem igényel VBA Ez egy kiváló módszer arra, hogy a számokat szavakká alakítsuk át. Azonban van két hibák. Egy, nem tudja tökéletesen ábrázolni a tizedes számokat a pontok után. Kettő, a maximális számhatár a következő 999, 999, 999 ...tulajdonképpen, Mr. Pete M. kitalálta ezt a képletet.

• Most megírhatja a képletet a többi sorra is, vagy egyszerűen használhatja a Excel AutoFill funkció .

Végül, megkapja az összes a számokat szavakká alakította át .

Bővebben: Hogyan konvertáljon számot szöveggé 2 tizedesjegyekkel az Excelben (5 mód)

2. A VLOOKUP funkció alkalmazása a számok szavakká történő átalakításához

Alkalmazhatja a VLOOKUP funkciót a számok szavakká alakítása az Excelben. Csináljunk valami mást. Itt először be kell illesztenie az összes számot szavakba, majd ezt a függvényt használhatja, hogy bármely számot szavakká alakítson át belőlük.

Lépések:

• Először is, írja le az összes számot szavakkal kézzel a C oszlop .

• Most használja a következő képletet a C12 cellát.

• Ezután nyomja meg a BELÉPÉS .

Képlet bontás

Ebben a képletben a VLOOKUP függvény egy értéket ad vissza egy adott tömbből.

• Először is, B12 a keresési érték, amelyet az adott táblázatban keres.
• Másodszor, B4:C9 a asztali tömb amelyben keresi a célérték .
• Harmadszor, 2 a táblázat azon oszlopainak száma, amelyekből az értéket vissza kell adni.
• Negyedszer, Hamis egy olyan pontos mérkőzés.

Bővebben: Hogyan alakítsuk át a számot szöveggé a VLOOKUP számára az Excelben (2 módja)

Hasonló olvasmányok

• Hogyan alakítsuk át a számot szöveggé az Excelben az Apostrofával
• Szám átalakítása szöveggé zöld háromszöggel az Excelben
• Hogyan alakítsuk át a számot szöveggé vesszőkkel az Excelben (3 egyszerű módszer)
• Szám átalakítása szöveggé tudományos jelölés nélkül az Excelben
• Hogyan alakítsuk át a Peso számot szavakra az Excelben (egyszerű lépésekkel)

3. A VBA használata a szám szavakká történő átalakításához az Excelben

A legérdekesebb része az, hogy felépítheted a saját saját funkció a címre. a számokat szavakká alakítja át Excelben. Ezen kívül, alkalmazhatja a a VBA kód hogy kidolgozzon egy meghatározott A lépéseket az alábbiakban ismertetjük.

Lépések :

• Először is, ki kell választania a Fejlesztő tab>> majd válassza ki Visual Basic.

• Most, a Beillesztés tab>> ki kell választania a Modul .

• Ekkor a következőket kell leírnia Kód: a Modul .

 Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String 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 =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 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 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)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " " y_bb = False End If End If If If Mid(x_string_Num, 2, 2)"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 Function get_ten_digit(x_TDDgt, 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 = "" x_T = True 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_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 = "és " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If If x_string = "" Then If y_b Then x_string = "és " End If End If End If If Right(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ","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 

• Most el kell mentenie a kód .
• Ezután el kell mennie a Excel munkalap .

Ebben az időben használhatja a meghatározott Ehhez kövesse a megadott lépéseket.

Lépések:

• Most válassza ki azt a cellát, amelyben a konvertált kimenetet szeretné megjeleníteni. (Esetünkben a cella C5 ).
• Ezután adja meg a Egyenlőségjel (=) Ez lehetővé teszi a képletek beírását.
• Ezután írja be a " =number_converting_into_words " vagy válassza a number_converting_into_words funkciót a legördülő menüből.
• Ezt követően jelölje ki azt a cellát, amelyben a számértéket szavakká akarja alakítani (esetünkben a cellát B5 ).
• Végül nyomja meg a BELÉPÉS gomb.

Ennek eredményeképpen a kiválasztott cellaszámot a megfelelő szavakká alakítja át. Végül ezt a képletet egyszerűen átmásolhatja a többi cellába is.

Bővebben: Numerikus értékek átalakítása angol szavakra az Excelben

4. A VBA alkalmazása a pénznemek megfogalmazásához az Excelben

Ez a módszer hasonló az előzőhöz. Ez is úgy működik, hogy egy modult illesztünk be a VBA (Visual Basic for Application) és függvényként használja. Amiben különbözik az előző módszertől, az az, hogy a a számokat megfelelő pénznem szavakra konvertálja. Továbbá az alábbiakban egy példát mutatunk be.

Most kövesse az alábbi lépéseket a módszer alkalmazásához:

• Először is, kövesse módszer-3 a modul behelyezéséhez.
• Másodszor, írja le a következő kódot a 2. modul .

 Function Convert_Number_into_word_with_currency(ByVal egész_szám) Dim convert_into_dollar, convert_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") egész_szám = Trim(Str(egész_szám)) x_decimal = InStr(egész_szám, ".") If x_decimal> 0 Then convert_into_cent = get_ten(Left(Mid(egész_szám, x_decimal + 1) & "00", 2))) egész_szám =Trim(Left(egész_szám, x_decimal - 1)) End If xIndex = 1 Do While egész_szám "" xHundred = "" xValue = Right(egész_szám, 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)) & " Hundred " End If If Mid(xValue, 2, 1) "0" Then xHundred =xHundred & get_ten(Mid(xValue, 2)) Else xHundred = xHundred & get_digit(Mid(xValue, 3)) End If End If If xHundred "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End If If Len(egész_szám)> 3 Then whole_number = Left(egész_szám, Len(egész_szám) - 3) Else whole_number = "" End IfxIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Nulla dollár" Case "One" converted_into_dollar = " Egy dollár" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Select Case converted_into_cent Case "" converted_into_cent = " and Zero Cent" Case "One"convert_into_cent = " és egy cent" Case Else convert_into_cent = " és " & convert_into_cent & "Cent" End Select Convert_Number_into_word_with_currency = convert_into_dollar & convert_into_cent End Function 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= "Tíz" Case 11: my_output = "Tizenegy" Case 12: my_output = "Tizenkettő" Case 13: my_output = "Tizenhárom" Case 14: my_output = "Tizennégy" Case 15: my_output = "Tizenöt" Case 16: my_output = "Tizenhat" Case 17: my_output = "Tizenhét" Case 18: my_output = "Tizennyolc" Case 19: my_output = "Tizenkilenc" Case 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 EndFunkció 

Ennek eredményeképpen használhatja a meghatározott nevű funkció Convert_Number_into_word_with_currency (Szám_szavakká_átalakítása_valutával) Ehhez kövesse a megadott lépéseket.

Lépések:

• Most ki kell választani egy cellát, ahol az eredményt meg akarjuk tartani. Mi a C5 cellát.
• Ezután a megfelelő képletet kell használnia a C5 cellát.

• Ezt követően nyomja meg a BELÉPÉS .

• Végül használja az Excel AutoFill funkció a többi sejt esetében C6:C9 .

Végül megkapja az összes átváltott összeget.

Bővebben: Hogyan konvertáljon számot szöveggé és tartsa meg a hátul lévő nullákat az Excelben (4 mód)

Hogyan alakítsuk át a számot szöveges formátumra az Excelben?

Eddig a következőkről beszéltünk hogyan lehet számokat szavakká alakítani A cikk ezen része elmagyarázza, hogyan lehet a számok szöveges formátumra váltása Ez a legegyszerűbb és leggyorsabb módszer a számok szöveggé alakítására.

Itt kövesse az alábbi lépéseket a módszer alkalmazásához:

• Először is, válassza ki azt a numerikus értékeket tartalmazó cellát vagy cellákat, amelyeket szöveggé szeretne átalakítani (esetünkben a cella C5:C9 )
• Másodszor, menjen a Home lapot, és válassza ki a Szöveg opciót a cellakategória legördülő menüből a Szám szakasz.

Ennek eredményeképpen a kijelölt cellák számértékét szöveggé alakítja át. Ezt az igazítások megfigyelésével értheti meg. Alapértelmezés szerint a szövegek balra, a számok pedig jobbra vannak igazítva az Excelben.

Vagy megnyomhatja a CTRL+1 a Cellák formázása és válassza ki a Szám opciót, majd válassza ki a Szöveg kategória onnan.

Bővebben: Excel VBA a szám szöveggé alakításához (4 példa)

Gyakorlati szekció

A gyakorláshoz minden egyes lapon a jobb oldali részen egy gyakorló részt adtunk hozzá.

Következtetés

Itt megpróbáltuk ezt a cikket egy végső útmutatóvá tenni arról, hogyan lehet a számot megfelelő szavakká vagy szöveggé alakítani a következő programban MS Excel . Továbbá, leszűkítettük hét különböző technikákat ebben a cikkben, hogy kiválaszthassa az ideális lehetőséget, amely a legjobban megfelel az Ön konkrét helyzetének. Reméljük tehát, hogy megtalálta a keresett megoldást. Kérjük, hagyjon megjegyzést, ha bármilyen javaslata vagy kérdése van. Köszönjük.