Τα λογιστικά φύλλα χρησιμοποιούνται από πολλούς ανθρώπους στην καθημερινή τους εργασία, καθιστώντας τα σημαντικό στοιχείο του γραφείου τους. Ενώ η πλειονότητα των ανθρώπων χρησιμοποιεί τα λογιστικά φύλλα με έναν αρκετά βασικό τρόπο, ορισμένοι προχωρημένοι χρήστες τα βρίσκουν δύσκολα ή περίπλοκα για να μετατροπή αριθμού σε λέξεις στο Excel. Σε αυτόν τον οδηγό, αντιμετωπίσαμε αυτό το ζήτημα και παρέχουμε τέσσερα διαφορετικές μεθόδους για να μετατροπή αριθμού σε λέξεις στο Excel. Επιπλέον, υπάρχουν τρία περισσότερες μεθόδους για μετατροπή αριθμών σε μορφή κειμένου .

Λήψη βιβλίου εργασίας

Μπορείτε να κατεβάσετε το τετράδιο εργασίας που χρησιμοποιήσαμε σε αυτό το άρθρο από παρακάτω και να εξασκηθείτε με αυτό μόνοι σας.

4 τρόποι μετατροπής αριθμού σε λέξεις στο Excel

Αυτή η ενότητα του άρθρου εξηγεί πώς να μετατρέψετε αριθμούς σε λέξεις στο Excel. Επιπλέον, θα παρουσιάσουμε τέσσερα τεχνικές για την εκτέλεση της λειτουργίας. Για τη διεξαγωγή της συνεδρίας, θα χρησιμοποιήσουμε Έκδοση Microsoft 365 .

1. Χρήση συνδυασμένων συναρτήσεων στο Excel για τη μετατροπή αριθμού σε λέξεις

Ο τύπος του Excel που χρησιμοποιήσαμε εδώ βασίζεται στην τέσσερα λειτουργίες. ΑΡΙΣΤΕΡΆ , MID , ΚΕΙΜΕΝΟ , και ΕΠΙΛΕΞΤΕ λειτουργίες.

Πρώτον, η σύνταξη του ΑΡΙΣΤΕΡΆ έχει ως εξής:

Βασικά, αυτή η συνάρτηση χρησιμοποιείται για την εξαγωγή χαρακτήρων από κείμενο.

Κείμενο: Η συμβολοσειρά κειμένου από την οποία θα εξαχθούν οι χαρακτήρες.

num_chars [Προαιρετικό]: Ο αριθμός των χαρακτήρων που πρέπει να εξαχθούν. Ξεκινάει από τα αριστερά. Από προεπιλογή, num_chars=1 .

Δεύτερον, η σύνταξη του MID έχει ως εξής:

Στην πραγματικότητα, αυτή η συνάρτηση χρησιμοποιείται για την εξαγωγή κειμένου από το εσωτερικό μιας συμβολοσειράς.

Κείμενο: Το κείμενο από το οποίο θα εξαχθεί.

start_num: Η θέση του πρώτου χαρακτήρα προς εξαγωγή.

num_chars: Ο αριθμός των χαρακτήρων που θα εξαχθούν.

Τρίτον, η σύνταξη του ΚΕΙΜΕΝΟ έχει ως εξής:

Τελικά, αυτή η συνάρτηση μετατρέπει έναν αριθμό σε κείμενο σε μορφή αριθμού.

αξία: Ο αριθμός προς μετατροπή.

format_text: Η μορφή αριθμού που θα χρησιμοποιηθεί.

Στη συνέχεια, η σύνταξη του ΕΠΙΛΕΞΤΕ έχει ως εξής:

Αυτή η συνάρτηση παίρνει μια τιμή από μια λίστα με βάση τη θέση.

index_num: Η τιμή που θα επιλέξετε. Ένας αριθμός μεταξύ 1 και 254 .

value1: Η πρώτη τιμή από την οποία μπορείτε να επιλέξετε.

value2 [προαιρετικό]: Η δεύτερη τιμή από την οποία μπορείτε να επιλέξετε.

• Εδώ, θα μετατρέψουμε τον αριθμό στο Αριθμοί σε λέξεις στήλη.

• Τώρα, γράψτε τον ακόλουθο τύπο στο 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,,,, "Είκοσι ", "Τριάντα ", "Σαράντα ", "Πενήντα ", "Εξήντα ", "Εβδομήντα ", "Ογδόντα ", "Ενενήντα ")

&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, "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,,,," Είκοσι"," Τριάντα"," Σαράντα"," Πενήντα"," Εξήντα"," Εβδομήντα"," Ογδόντα"," Ενενήντα")

&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,,,, "Είκοσι ", "Τριάντα ", "Σαράντα ", "Πενήντα ", "Εξήντα ", "Εβδομήντα ", "Ογδόντα ", "Ενενήντα ")

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

Ολόκληρος ο τύπος μπορεί να φαίνεται περίπλοκος με την πρώτη ματιά, ωστόσο πρόκειται ουσιαστικά για την επανάληψη ενός μόνο τμήματος. Έτσι, αν μπορείτε να κατανοήσετε την πρώτη μέρος του τύπου, θα πρέπει να είστε σε θέση να κατανοήσετε τα υπόλοιπα.

• Στη συνέχεια, πατήστε ENTER .

Ως αποτέλεσμα, θα δείτε την ακόλουθη έξοδο.

Κατανομή τύπου:

Αρχικά, η ΚΕΙΜΕΝΟ χρησιμοποιείται εδώ για να μετατρέψει τον αριθμό σε ένα "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 “))

Ο τύπος αυτός δεν απαιτεί VBA ή πίνακες. Είναι μια εξαιρετική μέθοδος για τη μετατροπή αριθμών σε λέξεις. Ωστόσο, έχει δύο ατέλειες. Πρώτον, δεν μπορεί να αναπαραστήσει τέλεια δεκαδικούς αριθμούς μετά από σημεία. Δεύτερον, το μέγιστο όριο αριθμών είναι 999, 999, 999 . Βασικά, Ο κ. Pete M. βρήκε αυτή τη φόρμουλα.

• Τώρα, μπορείτε να γράψετε τον τύπο για τις υπόλοιπες γραμμές ή απλά να χρησιμοποιήσετε Λειτουργία αυτόματης συμπλήρωσης του Excel .

Τέλος, θα λάβετε όλα τα μετατροπή αριθμών σε λέξεις .

Διαβάστε περισσότερα: Πώς να μετατρέψετε αριθμό σε κείμενο με 2 δεκαδικά ψηφία στο Excel (5 τρόποι)

2. Εφαρμογή της λειτουργίας VLOOKUP για τη μετατροπή αριθμών σε λέξεις

Μπορείτε να υποβάλετε αίτηση το VLOOKUP συνάρτηση για να μετατροπή αριθμών σε λέξεις στο Excel. Ας κάνουμε κάτι διαφορετικό. Εδώ, πρέπει πρώτα να εισαγάγετε όλους τους αριθμούς σε λέξεις και στη συνέχεια μπορείτε να χρησιμοποιήσετε αυτή τη συνάρτηση για να μετατρέψετε οποιονδήποτε αριθμό σε λέξεις από αυτούς.

Βήματα:

• Πρώτον, γράψτε όλους τους αριθμούς σε λέξεις με το χέρι στο Στήλη C .

• Τώρα, χρησιμοποιήστε τον ακόλουθο τύπο στο C12 κύτταρο.

• Στη συνέχεια, πατήστε ENTER .

Κατανομή τύπου

Σε αυτόν τον τύπο, το VLOOKUP θα επιστρέψει μια τιμή από έναν δεδομένο πίνακα.

• Πρώτον, B12 είναι η τιμή αναζήτησης που αναζητά στον συγκεκριμένο πίνακα.
• Δεύτερον, B4:C9 είναι η πίνακας πίνακα στην οποία αναζητά το τιμή-στόχος .
• Τρίτον, 2 είναι ο αριθμός των στηλών του πίνακα από τις οποίες πρέπει να επιστραφεί μια τιμή.
• Τέταρτον, Ψευδές υποδηλώνει ένα ακριβές αγώνα.

Διαβάστε περισσότερα: Πώς να μετατρέψετε αριθμό σε κείμενο για το VLOOKUP στο Excel (2 τρόποι)

Παρόμοιες αναγνώσεις

• Πώς να μετατρέψετε αριθμό σε κείμενο στο Excel με απόστροφο
• Μετατροπή αριθμού σε κείμενο με πράσινο τρίγωνο στο Excel
• Πώς να μετατρέψετε αριθμό σε κείμενο με κόμματα στο Excel (3 εύκολες μέθοδοι)
• Μετατροπή αριθμού σε κείμενο χωρίς επιστημονική σημειογραφία στο Excel
• Πώς να μετατρέψετε τον αριθμό Peso σε λέξεις στο Excel (με εύκολα βήματα)

3. Χρήση ενός VBA για τη μετατροπή αριθμού σε λέξεις στο Excel

Το πιο ενδιαφέρον μέρος είναι ότι μπορείτε να φτιάξετε το δικό σας δική σας λειτουργία στο μετατρέψτε τους αριθμούς σε λέξεις στο Excel. Επιπλέον, μπορείτε να χρησιμοποιήσετε ο κώδικας VBA να αναπτύξει ένα ορίζεται Τα βήματα δίνονται παρακάτω.

Βήματα :

• Πρώτον, πρέπει να επιλέξετε το Προγραμματιστής tab>> στη συνέχεια επιλέξτε Visual Basic.

• Τώρα, από το Εισαγωγή καρτέλα>> πρέπει να επιλέξετε Ενότητα .

• Αυτή τη στιγμή, πρέπει να καταγράψετε τα εξής Κωδικός στο Ενότητα .

 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_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 = "" 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 = "και " 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 = "και " 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 

• Τώρα, πρέπει να αποθηκεύσετε το κωδικός .
• Στη συνέχεια, πρέπει να μεταβείτε στο Φύλλο εργασίας Excel .

Αυτή τη στιγμή, μπορείτε να χρησιμοποιήσετε το ορίζεται Για το σκοπό αυτό, θα πρέπει να ακολουθήσετε τα παρακάτω βήματα.

Βήματα:

• Τώρα, επιλέξτε το κελί που θέλετε να εμφανιστεί η μετατρεπόμενη έξοδος. (Στην περίπτωσή μας, το κελί C5 ).
• Στη συνέχεια, πληκτρολογήστε το Ίδιο σύμβολο (=) στο κελί. Θα πρέπει να σας επιτρέψει να πληκτρολογήσετε τύπους.
• Μετά από αυτό, πληκτρολογήστε " =number_converting_into_words " ή επιλέξτε το number_converting_into_words από το αναπτυσσόμενο μενού.
• Στη συνέχεια, επιλέξτε το κελί με την τιμή του αριθμού που θέλετε να μετατρέψετε σε λέξεις (Στην περίπτωσή μας, το κελί B5 ).
• Τέλος, πατήστε το ENTER κουμπί.

Ως αποτέλεσμα, θα μετατρέψει τον αριθμό του επιλεγμένου κελιού σας στις αντίστοιχες λέξεις. Τέλος, μπορείτε απλά να αντιγράψετε αυτόν τον τύπο και στα υπόλοιπα κελιά.

Διαβάστε περισσότερα: Πώς να μετατρέψετε μια αριθμητική τιμή σε αγγλικές λέξεις στο Excel

4. Χρήση της VBA για τη διατύπωση νομισμάτων στο Excel

Αυτή η μέθοδος είναι παρόμοια με την προηγούμενη. Λειτουργεί επίσης με την εισαγωγή μιας ενότητας χρησιμοποιώντας VBA (Visual Basic for Application) και τη χρησιμοποιεί ως συνάρτηση. Εκεί που διαφέρει από την τελευταία μέθοδο είναι ότι μετατρέπει τους αριθμούς σε κατάλληλες λέξεις νομίσματος. Επιπλέον, παρατίθεται ένα παράδειγμα παρακάτω.

Τώρα, ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε αυτή τη μέθοδο:

• Πρώτον, ακολουθήστε μέθοδος-3 για να τοποθετήσετε τη μονάδα.
• Δεύτερον, γράψτε τον ακόλουθο κώδικα στο Ενότητα 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)) & " 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(whole_number)> 3 Then whole_number = Left(whole_number, Len(whole_number) - 3) Else whole_number = "" End IfxIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" 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"converted_into_cent = " και ένα σεντ" Case Else converted_into_cent = " και " & converted_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_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= "Δέκα" Περίπτωση 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 κύτταρο.

• Στη συνέχεια, πατήστε ENTER .

• Τέλος, χρησιμοποιήστε το Excel Χαρακτηριστικό AutoFill για τα υπόλοιπα κύτταρα C6:C9 .

Τέλος, θα λάβετε όλο το ποσό που έχει μετατραπεί.

Διαβάστε περισσότερα: Πώς να μετατρέψετε έναν αριθμό σε κείμενο και να διατηρήσετε τα μηδενικά στο Excel (4 τρόποι)

Πώς να μετατρέψετε αριθμό σε μορφή κειμένου στο Excel

Μέχρι στιγμής, έχουμε μιλήσει για πώς να μετατρέψετε αριθμούς σε λέξεις στο Excel. Αυτή η ενότητα του άρθρου εξηγεί πώς να αλλαγή αριθμών σε μορφή κειμένου Είναι η απλούστερη και ταχύτερη μέθοδος μετατροπής αριθμών σε κείμενο.

Ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε αυτή τη μέθοδο:

• Αρχικά, επιλέξτε το κελί ή τα κελιά με τις αριθμητικές τιμές που θέλετε να μετατρέψετε σε κείμενο (στην περίπτωσή μας, το κελί C5:C9 )
• Δεύτερον, πηγαίνετε στο Αρχική σελίδα και επιλέξτε την καρτέλα Κείμενο από το αναπτυσσόμενο μενού κατηγορίας κελιών κάτω από το Αριθμός τμήμα.

Ως αποτέλεσμα, θα μετατρέψει την αριθμητική τιμή των επιλεγμένων κελιών σας σε κείμενο. Μπορείτε να το καταλάβετε παρατηρώντας τις ευθυγραμμίσεις. Από προεπιλογή, τα κείμενα είναι αριστερά ευθυγραμμισμένα και οι αριθμοί είναι δεξιά ευθυγραμμισμένοι στο Excel.

Ή μπορείτε να πατήσετε CTRL+1 για να ανοίξετε το παράθυρο με το όνομα Κελιά μορφοποίησης και επιλέξτε το Αριθμός και στη συνέχεια επιλέξτε την επιλογή Κείμενο κατηγορία από εκεί.

Διαβάστε περισσότερα: Excel VBA για τη μετατροπή αριθμού σε κείμενο (4 παραδείγματα)

Τμήμα πρακτικής

Για την εξάσκηση, έχουμε προσθέσει ένα τμήμα εξάσκησης σε κάθε φύλλο στο δεξί τμήμα.

Συμπέρασμα

Εδώ, προσπαθήσαμε να κάνουμε αυτό το άρθρο έναν απόλυτο οδηγό για το πώς να μετατρέψετε τον αριθμό σε κατάλληλες λέξεις ή κείμενο στο MS Excel . Επιπλέον, έχουμε περιορίσει επτά διαφορετικές τεχνικές σε αυτό το άρθρο, έτσι ώστε να μπορείτε να επιλέξετε την ιδανική επιλογή που είναι καταλληλότερη για τη συγκεκριμένη περίπτωσή σας. Έτσι, ελπίζουμε να βρείτε τη λύση που αναζητούσατε. Παρακαλούμε αφήστε ένα σχόλιο αν έχετε οποιεσδήποτε προτάσεις ή ερωτήσεις. Σας ευχαριστούμε.