Αυτήν τη στιγμή είστε εκτός σύνδεσης, σε αναμονή για επανασύνδεση στο Internet

Τρόπος μετατροπής αριθμητικής τιμής σε αγγλικές λέξεις στο Excel

Η υποστήριξη για το Office 2003 έχει διακοπεί

Η Microsoft διέκοψε την υποστήριξη για το Office 2003 στις 8 Απριλίου 2014. Αυτή η αλλαγή επηρέασε τις ενημερώσεις λογισμικού και τις επιλογές ασφαλείας σας. Μάθετε τι σημαίνει αυτό για εσάς και το πώς θα προστατευτείτε.

ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο έχει μεταφραστεί χρησιμοποιώντας λογισμικό μηχανικής μετάφρασης της Microsoft και μπορείτε να το διορθώσετε χρησιμοποιώντας την τεχνολογία Community Translation Framework (CTF) (Πλαίσιο μετάφρασης κοινότητας). Η Microsoft παρέχει μηχανική μετάφραση, επεξεργασία μετά τη μηχανική μετάφραση από την κοινότητα και άρθρα μεταφρασμένα από επαγγελματίες προκειμένου να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής βάσης σε πολλές γλώσσες. Τα άρθρα μηχανικής μετάφρασης και αυτά που επεξεργάζονται ύστερα από μηχανική μετάφραση ενδέχεται να περιέχουν σφάλματα στο λεξιλόγιο, στη σύνταξη ή/και στη γραμματική. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες μας. Για περισσότερες πληροφορίες σχετικά με το CTF, μεταβείτε στην τοποθεσία http://support.microsoft.com/gp/machine-translation-corrections/el.

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: 213360
Περίληψη
Αυτό το άρθρο περιέχει δείγμα της Microsoft Visual Basic για Applicationsfunctions που μπορείτε να χρησιμοποιήσετε για να μετατρέψετε μια αριθμητική αξία σε ένα κελί φύλλου εργασίας Microsoft Excel στο ισοδύναμό της σε αγγλικές λέξεις.
Περισσότερες πληροφορίες
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, αλλά δεν είναι ενδεικτικά, των σιωπηρών εγγυήσεων εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.

Τρόπος δημιουργίας του δείγματος συνάρτησης Called SpellNumber

  1. Εκκίνηση του Microsoft Excel.
  2. Πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε την Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στην εντολή " λειτουργική μονάδα".
  4. Πληκτρολογήστε τον ακόλουθο κώδικα στο φύλλο λειτουργικής μονάδας.
    Option Explicit'Main FunctionFunction SpellNumber(ByVal MyNumber)    Dim Dollars, Cents, Temp    Dim DecimalPlace, Count    ReDim Place(9) As String    Place(2) = " Thousand "    Place(3) = " Million "    Place(4) = " Billion "    Place(5) = " Trillion "    ' String representation of amount.    MyNumber = Trim(Str(MyNumber))    ' Position of decimal place 0 if none.    DecimalPlace = InStr(MyNumber, ".")    ' Convert cents and set MyNumber to dollar amount.    If DecimalPlace > 0 Then        Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _                  "00", 2))        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))    End If    Count = 1    Do While MyNumber <> ""        Temp = GetHundreds(Right(MyNumber, 3))        If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars        If Len(MyNumber) > 3 Then            MyNumber = Left(MyNumber, Len(MyNumber) - 3)        Else            MyNumber = ""        End If        Count = Count + 1    Loop    Select Case Dollars        Case ""            Dollars = "No Dollars"        Case "One"            Dollars = "One Dollar"         Case Else            Dollars = Dollars & " Dollars"    End Select    Select Case Cents        Case ""            Cents = " and No Cents"        Case "One"            Cents = " and One Cent"              Case Else            Cents = " and " & Cents & " Cents"    End Select    SpellNumber = Dollars & CentsEnd Function      ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber)    Dim Result As String    If Val(MyNumber) = 0 Then Exit Function    MyNumber = Right("000" & MyNumber, 3)    ' Convert the hundreds place.    If Mid(MyNumber, 1, 1) <> "0" Then        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "    End If    ' Convert the tens and ones place.    If Mid(MyNumber, 2, 1) <> "0" Then        Result = Result & GetTens(Mid(MyNumber, 2))    Else        Result = Result & GetDigit(Mid(MyNumber, 3))    End If    GetHundreds = ResultEnd Function      ' Converts a number from 10 to 99 into text. Function GetTens(TensText)    Dim Result As String    Result = ""           ' Null out the temporary function value.    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...        Select Case Val(TensText)            Case 10: Result = "Ten"            Case 11: Result = "Eleven"            Case 12: Result = "Twelve"            Case 13: Result = "Thirteen"            Case 14: Result = "Fourteen"            Case 15: Result = "Fifteen"            Case 16: Result = "Sixteen"            Case 17: Result = "Seventeen"            Case 18: Result = "Eighteen"            Case 19: Result = "Nineteen"            Case Else        End Select    Else                                 ' If value between 20-99...        Select Case Val(Left(TensText, 1))            Case 2: Result = "Twenty "            Case 3: Result = "Thirty "            Case 4: Result = "Forty "            Case 5: Result = "Fifty "            Case 6: Result = "Sixty "            Case 7: Result = "Seventy "            Case 8: Result = "Eighty "            Case 9: Result = "Ninety "            Case Else        End Select        Result = Result & GetDigit _            (Right(TensText, 1))  ' Retrieve ones place.    End If    GetTens = ResultEnd Function     ' Converts a number from 1 to 9 into text. Function GetDigit(Digit)    Select Case Val(Digit)        Case 1: GetDigit = "One"        Case 2: GetDigit = "Two"        Case 3: GetDigit = "Three"        Case 4: GetDigit = "Four"        Case 5: GetDigit = "Five"        Case 6: GetDigit = "Six"        Case 7: GetDigit = "Seven"        Case 8: GetDigit = "Eight"        Case 9: GetDigit = "Nine"        Case Else: GetDigit = ""    End SelectEnd Function					

Τρόπος χρήσης του δείγματος συνάρτησης SpellNumber

Για να χρησιμοποιήσετε τις λειτουργίες του δείγματος για την αλλαγή ενός αριθμού σε γραπτό κείμενο, χρησιμοποιήστε μία από τις μεθόδους που περιγράφονται στα παρακάτω παραδείγματα:

Μέθοδος 1: Άμεση εγγραφή

Μπορείτε να αλλάξετε την αριθμητική τιμή 32,50 σε "Τριάντα δύο δολάρια και πενήντα σεντς" εισάγοντας τον παρακάτω τύπο σε ένα κελί:
=SpellNumber(32.50)

Μέθοδος 2: Αναφορά κελιού

Μπορείτε να αναφερθείτε σε άλλα κελιά στο βιβλίο εργασίας. Για παράδειγμα, εισαγάγετε τον αριθμό 32,50 στο κελί A1 και πληκτρολογήστε τον παρακάτω τύπο σε άλλο κελί:
=SpellNumber(a1)

Μέθοδος 3: Εισαγωγή συνάρτησης

Για να χρησιμοποιήσετε Τη λειτουργία Εισαγωγή, ακολουθήστε τα εξής βήματα:


Excel 2003:
  1. Επιλέξτε το κελί που θέλετε.
  2. Στη Βασική γραμμή εργαλείων, κάντε κλικ στο κουμπί " Εισαγωγή συνάρτησης ".
  3. Στην περιοχή ή επιλέξτε μια κατηγορία, κάντε κλικ στο Καθορισμένο από τον χρήστη.
  4. Στη λίστα Επιλέξτε μια συνάρτηση , κάντε κλικ στο κουμπί SpellNumberκαι, στη συνέχεια, κάντε κλικ στο κουμπί OK.
  5. Εισαγάγετε τον αριθμό ή την αναφορά κελιού που θέλετε και, στη συνέχεια, κάντε κλικ στο κουμπί OK.

Excel 2007 και 2010:
  1. Επιλέξτε το κελί που θέλετε.
  2. Κάντε κλικ στο κουμπί "Εισαγωγή συνάρτησης" στην κορδέλατύπους .
  3. Στην περιοχήή επιλέξτε μια κατηγορία, κάντε κλικ στοΚαθορισμένο από τον χρήστη.
  4. Στη λίσταΕπιλέξτε μια συνάρτηση, κάντε κλικ στο κουμπίSpellNumberκαι, στη συνέχεια, κάντε κλικ στο κουμπίOK.
  5. Εισαγάγετε τον αριθμό ή την αναφορά κελιού που θέλετε και, στη συνέχεια, κάντε κλικ στο κουμπίOK.



Ορθογραφικός xl2003 XL2007 XL2010 αριθμός αριθμών νομισματικής μονάδας

Προειδοποίηση: Αυτό το άρθρο έχει μεταφραστεί αυτόματα

Ιδιότητες

Αναγνωριστικό άρθρου: 213360 - Τελευταία αναθεώρηση: 01/02/2016 05:25:00 - Αναθεώρηση: 2.0

Microsoft Office Excel 2003, , , ,

  • kbdtacode kbhowto kbprogramming kbmt KB213360 KbMtel
Σχόλια
>