Πώς να Μετατροπή αριθμών σε λέξεις σε MS Excel

Microsoft ανέπτυξε ένα add -on εφαρμογή που θα δημιουργήσει μια λειτουργία αριθμούς με λέξεις στο Excel . Η λειτουργία θα μετατρέψει την αριθμητική τιμή ενός κελιού φύλλου σε κείμενο ? Για παράδειγμα , $ 1.29 θα εμφανίζεται ως ένα δολάριο και είκοσι εννέα λεπτών . Για να μετατρέψετε τους αριθμούς σε λέξεις στο Excel , η λειτουργία πρέπει να δημιουργηθεί χειροκίνητα χρησιμοποιώντας το Visual Basic Editor, το οποίο προσφέρεται στάνταρ σε όλες τις εφαρμογές του Office . Αφού έχει δημιουργηθεί η λειτουργία , μπορεί να προσεγγιστεί μέσω της γραμμής εργαλείων του Excel για να μετατρέψετε τους αριθμούς με λέξεις σε ένα υπολογιστικό φύλλο . Οδηγίες
δημιουργία της λειτουργίας Αριθμοί -to - λέξεις σε Excel

1

Ανοίξτε το πρόγραμμα Microsoft Excel . 2

Κρατήστε πατημένο το πλήκτρο Alt και πατήστε το πλήκτρο F11 για να ανοίξετε η Visual Basic.
εικόνων 3

Επιλέξτε "Εισαγωγή" από την κύρια γραμμή εργαλείων και κάντε κλικ στο "ενότητα ".
Η

4 Αντιγράψτε και επικολλήστε ή πληκτρολογήστε την ακόλουθη Microsoft τύπο στη μονάδα :

Επιλογή Explicit'Main FunctionFunction SpellNumber ( ByVal MyNumber ) Dim δολάρια , Cents , TempDim DecimalPlace , CountReDim Place ( 9 ) Δεδομένου ότι StringPlace ( 2 ) = "Χίλια " Τόπος ( 3 ) = " Million " τόπος ( 4 ) = " Billion " τόπος ( 5 ) = " τρισεκατομμύρια " ' String αναπαράσταση της amount.MyNumber = Trim ( οδός ( MyNumber ) )« Θέση δεκαδικό ψηφίο 0 , αν none.DecimalPlace = InStr ( MyNumber , " . " ) « Μετατροπή σεντς και ρυθμίσετε MyNumber σε δολάριο amount.If DecimalPlace > 0 = ThenCents GetTens ( Αριστερά ( Mid ( MyNumber , DecimalPlace + 1 ) & _ " 00 " , 2 ) ) MyNumber = Περικοπή ( Αριστερά ( MyNumber , DecimalPlace - 1 ) ) End IfCount = 1Μην Ενώ MyNumber <> " " Temp = GetHundreds ( Δεξιά ( MyNumber , 3 ) ) Εάν Θερμοκρασία <> " " τότε Dollars = Θερμοκρασία & Place ( Count ) & DollarsIf Len ( MyNumber ) > 3 ThenMyNumber = Left ( MyNumber , Len ( MyNumber ) - 3 ) ​​ElseMyNumber = " " End IfCount = Count + 1LoopSelect υπόθεση DollarsCase " " Dollars = " Δεν Dollars " υπόθεση " One" Dollars = " Ένα δολάριο " Case ElseDollars = Dollars & " δολάρια " End SelectSelect υπόθεση CentsCase " " Cents = " Δεν υπάρχουν και Cents " υπόθεση " One" Cents = " και ένα σεντ " ElseCents Case = " και " & Cents & " Cents " End SelectSpellNumber = Dollars & CentsEnd Λειτουργία

« Μετατρέπει έναν αριθμό σε 100 - 999 GetHundreds textFunction ( ByVal MyNumber ) Dim αποτέλεσμα Όπως StringIf Val ( MyNumber ) = 0 τότε Έξοδος FunctionMyNumber = Right ( " 000 " & MyNumber , 3 )« Μετατροπή οι εκατοντάδες place.If Mid ( MyNumber , 1 , 1 ) <> " 0 " ThenResult = GetDigit ( Mid ( MyNumber , 1 , 1 ) ) & " Εκατό " End If ' Μετατρέψτε το δεκάδες και μονάδες place.If Mid ( MyNumber , 2 , 1 ) <> " 0 " ThenResult = Αποτέλεσμα & GetTens ( Mid ( MyNumber , 2 ) ) ElseResult = Αποτέλεσμα & GetDigit ( Mid ( MyNumber , 3 ) ) Τέλος IfGetHundreds = ResultEnd
Λειτουργία

« Μετατρέπει έναν αριθμό 10 - 99 σε text.Function GetTens ( TensText ) Dim αποτέλεσμα Όπως StringResult = " " " Null από την προσωρινή λειτουργία value.If Val ( Αριστερά ( TensText , 1 ) ) = 1 Then ' Εάν η τιμή μεταξύ 10-19 ... Select Case Val ( TensText ) Υπόθεση 10 : Αποτέλεσμα = " Δέκα " Case 11 : Αποτέλεσμα = " Έντεκα " Case 12 : Αποτέλεσμα = " Δώδεκα " Case 13 : Αποτέλεσμα = " Thirteen " Case 14 : Αποτέλεσμα = " Δεκατέσσερα " Case 15 : Αποτέλεσμα = " Δεκαπέντε " Case 16 : Αποτέλεσμα = " Sixteen " Case 17 : Αποτέλεσμα = " Seventeen " Case 18 : Αποτέλεσμα = " Δεκαοκτώ " Case 19 : Αποτέλεσμα = " Δεκαεννιά " υπόθεση ElseEnd SelectElse «Αν αξία μεταξύ 20-99 ... Select Case Val ( Αριστερά ( TensText , 1 ) ) Περίπτωση 2 : Αποτέλεσμα = " Είκοσι " Περίπτωση 3 : Αποτέλεσμα = " Τριάντα " υπόθεση 4 : Αποτέλεσμα = " Σαράντα " υπόθεση 5 : Αποτέλεσμα = " Πενήντα " Case 6 : Αποτέλεσμα = " Sixty " υπόθεση 7 : Αποτέλεσμα = " Εβδομήντα " υπόθεση 8 : Αποτέλεσμα = " Ογδόντα " υπόθεση 9 : Αποτέλεσμα = " Ενενήντα " υπόθεση ElseEnd SelectResult = Αποτέλεσμα & GetDigit _ ( Δεξιά ( TensText , 1 ) ) « Ανάκτηση αυτά place.End IfGetTens = ResultEnd Λειτουργία

« Μετατρέπει έναν αριθμό 1-9 στο text.Function GetDigit ( Digit ) Select Case Val ( Digit ) Περίπτωση 1 : GetDigit = " One " Περίπτωση 2 : GetDigit = " δύο " Περίπτωση 3 : GetDigit = " Three " υπόθεση 4 : GetDigit = " Τέσσερις " υπόθεση 5 : GetDigit = " Πέντε " υπόθεση 6 : GetDigit = " Έξι " υπόθεση 7 : GetDigit = " Seven " υπόθεση 8 : GetDigit = " Οκτώ " υπόθεση 9 : GetDigit = " Nine " Case Else : GetDigit = " " End Function SelectEnd
5

Επιλέξτε SpellNumber από pull-down μενού της ενότητας
εικόνων Αλλαγή αριθμών σε . Οι λέξεις σε ένα υπολογιστικό φύλλο
Η 6

Ανοίξτε ένα υπολογιστικό φύλλο Excel .
Η 7

Επιλέξτε το κελί στο οποίο θέλετε να μετατρέψετε τους αριθμούς σε κείμενο κάνοντας κλικ στο κελί .
Τετάρτη 8

Κάντε κλικ στην καρτέλα Λειτουργία Επικόλληση /Εισαγωγή ( fx ) .
Η

9 Κάντε κλικ στο " User Defined " στο αριστερό μενού και κάντε κλικ στο " SpellNumber " στο δεξί μενού .
Η 10

Πληκτρολογήστε τον αριθμό που θέλετε να μετατρέψετε τα λόγια .
Η 11

Κάντε κλικ στο " OK". Ο αριθμός θα εμφανιστεί στο κελί ως κείμενο .
Η
εικόνων