המרת מספרים למילים

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

Excel 2013 ו- Excel 2016 אין פונקציה המהווה ברירת מחדל המציגה מספרים כמילים באנגלית בתא גיליון אלקטרוני, אך באפשרותך להוסיף יכולת זו על-ידי הדבקת גיליון מודול קוד הפונקציה SpellNumber. פונקציה זו מאפשרת לך להמיר טווחי דולר סנט מילים.

אם אתה מעוניין להמרת ערכים מספריים לתבנית טקסט מבלי להציג אותן כמילים, השתמש בפונקציה TEXT במקום זאת.

במאמר זה

צור את הפונקציה SpellNumber להמרת מספרים מילים

  1. השתמש בקיצור המקשים Alt + F11 כדי לפתוח את עורך Visual Basic.

    הערה: באפשרותך גם לגשת עורך Visual Basic על-ידי הצגת הכרטיסיה ' מפתחים ' ברצועת הכלים שלך.

  2. לחץ על הכרטיסיה הוספה ולאחר מכן לחץ על מודול.

    בתפריט הוספה, לחץ על מודול.
  3. העתק את שורות הקוד הבאות.

    הערה: קוד זה, המכונה פונקציות המאקרו, לאוטומטית את משימת של המרת מספרים לטקסט לאורך הגיליון האלקטרוני שלך.

    האפשרות מפורשת

    ' הפונקציה הראשי

    הפונקציה SpellNumber (ByVal MyNumber)

    עמעום Temp דולר, סנט,

    Dim מקום עשרוני, Count

    ReDim Place(9) כמחרוזת

    Place(2) = "אלפים"

    Place(3) = "מיליון"

    Place(4) = "Billion"

    Place(5) = "מציין טריליון"

    ' מחרוזת ייצוג של סכום.

    MyNumber = Trim(Str(MyNumber))

    ' מיקום המקומות העשרוניים 0 אם אף אחד.

    מקום עשרוני = InStr (MyNumber, ".")

    ' המר סנט והגדר MyNumber בדולרים.

    אם מקום עשרוני > 0 מכן

    סנט = GetTens (שמאלה (הפונקציה Mid (MyNumber, מקום עשרוני + 1) & _ "00", 2))

    MyNumber = Trim (ימינה (MyNumber, מקום עשרוני - 1))

    סיום אם

    ספירת = 1

    בעוד MyNumber <> ""

    Temp = GetHundreds (שמאלה (MyNumber, 3))

    אם Temp <> "" Dollars מכן = Temp & Place(Count) & בדולרים

    אם Len(MyNumber) > 3 מכן

    MyNumber = Left (MyNumber, Len(MyNumber) - 3)

    ‎ Else

    MyNumber = ""

    סיום אם

    ספירת = Count + 1

    קישור בלולאה

    בחר בדולרים אירוע

    האות ""

    דולר = "No בדולרים"

    האות "לאחד"

    דולר = "דולר אחד"

    מקרה אחר

    דולר = בדולרים & "Dollars"

    בחר סיום

    בחר סנט אירוע

    האות ""

    סנט = "ואגורות ללא"

    האות "לאחד"

    סנט = "and סנט אחד"

    מקרה אחר

    סנט = "ו-" & סנט & "סנט"

    בחר סיום

    SpellNumber = בדולרים & סנט

    הפונקציה קצה

    ' המרת מספר מ- 100-999 לטקסט

    הפונקציה GetHundreds (ByVal MyNumber)

    התוצאה dim כמחרוזת

    אם Val(MyNumber) = 0 יציאה מכן פונקציה

    MyNumber = Right ("000" & MyNumber, 3)

    ' המר למקם מאות.

    אם הפונקציה Mid (MyNumber, 1, 1) <> "0" מכן

    התוצאה = GetDigit (הפונקציה Mid (MyNumber, 1, 1)) & "מאות"

    סיום אם

    ' המר המקום עשרות ואחד.

    אם הפונקציה Mid (MyNumber, 2, 1) <> "0" מכן

    התוצאה = התוצאה & GetTens (הפונקציה Mid (MyNumber, 2))

    ‎ Else

    התוצאה = התוצאה & GetDigit (הפונקציה Mid (MyNumber, 3))

    סיום אם

    GetHundreds = התוצאה

    הפונקציה קצה

    ' המרת מספר בין 10 ל- 99 לטקסט.

    הפונקציה GetTens(TensText)

    התוצאה dim כמחרוזת

    התוצאה = "" ' Null החוצה הערך של פונקציית הזמנית.

    אם Val (ימינה (TensText, 1)) = 1 מכן ' אם ערך בין 10-19...

    בחר Val(TensText) אירוע

    מקרה 10: תוצאה = "עשר"

    מקרה 11: תוצאה = "אחת עשרה"

    מקרה 12: תוצאה = "שתים-עשרה"

    מקרה 13: תוצאה = "שלוש עשרה"

    מקרה 14: תוצאה = "Fourteen"

    מקרה 15: תוצאה = "חמש עשרה"

    מקרה 16: תוצאה = "Sixteen"

    מקרה 17: תוצאה = "שבע עשרה"

    מקרה 18: תוצאה = "שמונה עשרה"

    מקרה 19: תוצאה = "Nineteen"

    מקרה אחר

    בחר סיום

    מידע נוסף ' אם ערך בין 20 ל- 99...

    בחר אירוע Val (ימינה (TensText, 1))

    מקרה 2: תוצאה = "Twenty"

    מקרה 3: תוצאה = "Thirty"

    מקרה 4: תוצאה = "Forty"

    מקרה 5: תוצאה = "Fifty"

    מקרה 6: תוצאה = "Sixty"

    מקרה 7: תוצאה = "Seventy"

    מקרה 8: תוצאה = "Eighty"

    מקרה 9: תוצאה = "Ninety"

    מקרה אחר

    בחר סיום

    התוצאה = _ התוצאה & GetDigit

    (שמאלה (TensText, 1)) ' לאחזר הגבולות מקום.

    סיום אם

    GetTens = התוצאה

    הפונקציה קצה

    ' המרת מספר בין 1 ל- 9 לטקסט.

    הפונקציה GetDigit(Digit)

    בחר Val(Digit) אירוע

    מקרה 1: GetDigit = "אחת"

    מקרה 2: GetDigit = "2"

    מקרה 3: GetDigit = "3"

    מקרה 4: GetDigit = "ארבע"

    מקרה 5: GetDigit = "5"

    מקרה 6: GetDigit = "שש"

    מקרה 7: GetDigit = "סכום"

    מקרה 8: GetDigit = "שמונה"

    מקרה 9: GetDigit = "תשעה"

    מקרה אחר: GetDigit = ""

    בחר סיום

    הפונקציה קצה

  4. הדבק את שורות הקוד לתוך Module1 (Code) תיבת.

    קוד מודבק Module1 התיבה (Code).
  5. לחץ על קובץ ולאחר מכן לחץ על סגור וחזור אל Microsoft Excel. הפונקציה SpellNumber מוכן כעת לשימוש.

    הערה: פונקציה זו פועלת רק עבור הקובץ הנוכחי Excel שפתחת. כדי להשתמש בפונקציה זו בחוברת עבודה אחרת Excel, עליך לחזור את השלבים כדי להעתיק ולהדביק את הקוד בקובץ זה.

לראש הדף

השתמש בפונקציה SpellNumber בתאים בודדים

  1. הקלד את הנוסחה = SpellNumber (ערך) התא שבו ברצונך להציג מספר כתובות, ומחליף ערך מספר שלך לפי בחירתך.

  2. בלוח המקשים, הקש Enter.

    לדוגמה, אם תקליד =SpellNumber(22.50), התא לקרוא דו-עשרים דולרים וחמישים סנט.

    עצה: כדי להמיר מספרים לטקסט בתא נפרד, החלף את הערך המספרי להפניות לתאים בנוסחה SpellNumber. לדוגמה, הקלד =SpellNumber(A1) להצגת בכתב שהערך בתא A1.

לראש הדף

שמור את חוברת העבודה של הפונקציה SpellNumber

Excel אין אפשרות לשמור חוברת עבודה עם פונקציות מאקרו בתבנית חוברת עבודה רגיל ללא פקודות מאקרו. אם תלחץ על קובץ > שמור. נפתחת תיבת דו-שיח פרוייקט VB. לחץ על לא.

בתיבת הדו-שיח פרוייקט VB, לחץ על לא.

באפשרותך לשמור את הקובץ כמסמך של תבנית excel macro-enabled כדי לשמור את הקובץ בתבנית הנוכחית שלו.

  1. לחץ על קובץ‏ > שמור בשם.

  2. לחץ על התפריט הנפתח שמור כסוג ובחר Excel Macro-Enabled Template.

    בחר תבנית מותאמת מאקרו של Excel.
  3. לחץ על שמירה.

לראש הדף

הערה: כתב ויתור בנוגע לתרגום מכונה: מאמר זה תורגם על-ידי מערכת מחשב, ללא התערבות אדם. Microsoft מציעה את תרגומי המכונה כדי לסייע למשתמשים שאינם דוברי אנגלית ליהנות מתוכן בנושא מוצרים, שירותים וטכנולוגיות של Microsoft. מכיוון שהמאמר תורגם על-ידי מכונה, הוא עלול להכיל שגיאות באוצר המילים, בתחביר או בדקדוק.

למידע נוסף

הפונקציה TEXT

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×