Εμφάνιση αριθμών ως λέξεων στο Excel - ανδρείκελα

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

Excel παραδείγματα

Εδώ είναι μερικά παραδείγματα SPELLDOLLARS.

Ο κώδικας VBA

Για να χρησιμοποιήσετε αυτόν τον κωδικό, πατήστε Alt + F11 για να ενεργοποιήσετε την Επεξεργαστή της Visual Basic. Στη συνέχεια, επιλέξτε Εισαγωγή → Ενότητα για να εισαγάγετε μια νέα μονάδα VBA. Αντιγράψτε τον κώδικα και επικολλήστε τον στη νέα ενότητα.

Λειτουργία SPELLDOLLARS (κυψέλη) Ως παραλλαγή 'Επιστρέφει μια τιμή, γραμμωμένη με λέξεις Δολάρια Δολλάρια ως γραμματοσειρά, σεντ ως γραμματοσειρά Dim TextLen τόσο μακρύς, όσο και μακρύς Temp ως κορδέλα Dim ihundreds τόσο μακριά, iTens όσο Long, Μεγάλα Dim ως Παραλλαγή, Έφηβοι ως Παραλλαγή, Δεκάδες ως Μονάδες Διαμόρφωσης Παραλλαγών (2 έως 5) Όπως Dim String bHit Ως Boolean, NegFlag Ως Boolean 'Είναι ένα μη-αριθμητικό ή άδειο κελί; Αν δεν είναι IsNumeric (κελί) ή κελί = "" Στη συνέχεια SPELLDOLLARS = CVErr (xlErrValue) Έξοδος Λειτουργία Τέλος Αν 'Είναι αρνητικό; Εάν το κελί 15 Στη συνέχεια SPELLDOLLARS = CVErr (xlErrNum) Έξοδος Λήξη Λειτουργίας Εάν 'Κάνετε τα λεπτά σεντ Cents = Δεξιά (Δολάρια, 2) & "/ 100 δολάρια" Αν κελί = Pos - 2 Στη συνέχεια bHit = False Εάν TextLen> = Ακτ (Mid $ (Δολάρια, TextLen - Pos + 1, 1)) - 48 Εάν iHundreds> 0 Τότε Temp = Temp & "& Ones (iHundreds) & Hundreds bHit = True End Αν End iTens = 0 iOnes = 0 Εάν το TextLen> = Pos - 1 Τότε iTens = Asc (Mid $ (Δολάρια, TextLen - Pos + 2, 1)) - 48 Τέλος Αν TextLen> = Pos - - Pos = 3, 1)) - 48 Τέλος Αν Εάν iTens = 1 Στη συνέχεια Temp = Temp & "& Teens (iOnes) bHit = True Else Αν iTens> = 2 Τότε Temp = Temp & = True End Αν Εάν iOnes> 0 Στη συνέχεια Αν iTens> = 2 Στη συνέχεια Temp = Temp & "-" Else Temp = Temp & "" Τέλος Αν Temp = Temp & Ones (iOnes) bHit = > 3 Τότε η Temp = Temp & "" & Μονάδες (Pos 3) End If End Αν Επόμενη Θέση SPELLDOLLARS = Trim (Temp) & "&" & Cents Αν NegFlag Στη συνέχεια SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Λειτουργία λήξης