דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. הפיכת אותיות למספרים באקסל

הפיכת אותיות למספרים באקסל

מתוזמן נעוץ נעול הועבר תוכנה
18 פוסטים 9 כותבים 786 צפיות 8 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • N NETZ

    @OdedDvir תודה רבה, ניסיתי , והבעיה היא שוורד מוגדר עד 392 שורות לטבלא, ואני צריך לפחות עד ספרור 679 (תרצז)
    ניסיתי להתחיל סדרה נוספת מ-שצג ולא מצליח...
    אשמח לעזרתך
    תודה

    אבייא מנותק
    אבייא מנותק
    אביי
    כתב ב נערך לאחרונה על ידי
    #7

    @NETZ אמר בהפיכת אותיות למספרים באקסל:

    ניסיתי להתחיל סדרה נוספת מ-שצג ולא מצליח...

    אכן באג ידוע
    https://www.prog.co.il/threads/החלפת-מספרים-לאותיות-בוורד.10607/

    ניתן ליצור עימי קשר 8140hp+t@gmail.com | קטלוג מוצרים
    הלינקיה שלי https://abaye.co/link.html

    תגובה 1 תגובה אחרונה
    0
    • N NETZ

      @OdedDvir תודה רבה, ניסיתי , והבעיה היא שוורד מוגדר עד 392 שורות לטבלא, ואני צריך לפחות עד ספרור 679 (תרצז)
      ניסיתי להתחיל סדרה נוספת מ-שצג ולא מצליח...
      אשמח לעזרתך
      תודה

      OdedDvirO מנותק
      OdedDvirO מנותק
      OdedDvir
      כתב ב נערך לאחרונה על ידי
      #8

      @NETZ אמר בהפיכת אותיות למספרים באקסל:

      הבעיה היא שוורד מוגדר עד 392 שורות לטבלא, ואני צריך לפחות עד ספרור 679 (תרצז)

      אויש, שכחתי את הבעייה של שצ"ג (ידועה לשמצה בשם באג השייגצ).
      כיון שזה צורך חד פעמי, אני הייתי סוגר את הסיפור על ידי יצירת תבנית מספור נוספת מהאות א עד רצז, ומוסיף לה את הקידומת ת, כך אוכל לקבל את הערכים מ-תא - עד תשצב:

      5aa32b5f-f48c-40e8-b6aa-ab75b2ec7f28-תמונה.png

      f54f6fd4-2939-4811-b287-ee1f2bd80acd-תמונה.png

      ואז באקסל משלים ידנית את הערכים החסרים מ-שצג עד ת.
      עם עיקש תתפתל.

      N תגובה 1 תגובה אחרונה
      6
      • OdedDvirO OdedDvir

        @NETZ אמר בהפיכת אותיות למספרים באקסל:

        הבעיה היא שוורד מוגדר עד 392 שורות לטבלא, ואני צריך לפחות עד ספרור 679 (תרצז)

        אויש, שכחתי את הבעייה של שצ"ג (ידועה לשמצה בשם באג השייגצ).
        כיון שזה צורך חד פעמי, אני הייתי סוגר את הסיפור על ידי יצירת תבנית מספור נוספת מהאות א עד רצז, ומוסיף לה את הקידומת ת, כך אוכל לקבל את הערכים מ-תא - עד תשצב:

        5aa32b5f-f48c-40e8-b6aa-ab75b2ec7f28-תמונה.png

        f54f6fd4-2939-4811-b287-ee1f2bd80acd-תמונה.png

        ואז באקסל משלים ידנית את הערכים החסרים מ-שצג עד ת.
        עם עיקש תתפתל.

        N מנותק
        N מנותק
        NETZ
        כתב ב נערך לאחרונה על ידי
        #9

        @OdedDvir תודה רבה!
        תבורך מפי עליון!!

        תגובה 1 תגובה אחרונה
        0
        • פייתוניסטפ פייתוניסט

          @NETZ תלחץ Alt + F11 תוסיף מודול ותדביק בתוכו את הקוד הבא:

          Function GIMATRIA(X)
              G = ""
              TV = Int(X / 400)
              For I = 1 To TV
                  G = G & "ת"
              Next I
              X = X - (TV * 400)
              TV = Int(X / 300)
              For I = 1 To TV
                  G = G & "ש"
              Next I
              X = X - (TV * 300)
              TV = Int(X / 200)
              For I = 1 To TV
                  G = G & "ר"
              Next I
              X = X - (TV * 200)
              TV = Int(X / 100)
              For I = 1 To TV
                  G = G & "ק"
              Next I
              X = X - (TV * 100)
              TV = Int(X / 90)
              For I = 1 To TV
                  G = G & "צ"
              Next I
              X = X - (TV * 90)
              TV = Int(X / 80)
              For I = 1 To TV
                  G = G & "פ"
              Next I
              X = X - (TV * 80)
              TV = Int(X / 70)
              For I = 1 To TV
                  G = G & "ע"
              Next I
              X = X - (TV * 70)
              TV = Int(X / 60)
              For I = 1 To TV
                  G = G & "ס"
              Next I
              X = X - (TV * 60)
              TV = Int(X / 50)
              For I = 1 To TV
                  G = G & "נ"
              Next I
              X = X - (TV * 50)
              TV = Int(X / 40)
              For I = 1 To TV
                  G = G & "מ"
              Next I
              X = X - (TV * 40)
              TV = Int(X / 30)
              For I = 1 To TV
                  G = G & "ל"
              Next I
              X = X - (TV * 30)
              TV = Int(X / 20)
              For I = 1 To TV
                  G = G & "כ"
              Next I
              X = X - (TV * 20)
              TV = Int(X / 10)
              For I = 1 To TV
                  G = G & "י"
              Next I
              X = X - (TV * 10)
              TV = Int(X / 9)
              For I = 1 To TV
                  G = G & "ט"
              Next I
              X = X - (TV * 9)
              TV = Int(X / 8)
              For I = 1 To TV
                  G = G & "ח"
              Next I
              X = X - (TV * 8)
              TV = Int(X / 7)
              For I = 1 To TV
                  G = G & "ז"
              Next I
              X = X - (TV * 7)
              TV = Int(X / 6)
              For I = 1 To TV
                  G = G & "ו"
              Next I
              X = X - (TV * 6)
              TV = Int(X / 5)
              For I = 1 To TV
                  G = G & "ה"
              Next I
              X = X - (TV * 5)
              TV = Int(X / 4)
              For I = 1 To TV
                  G = G & "ד"
              Next I
              X = X - (TV * 4)
              TV = Int(X / 3)
              For I = 1 To TV
                  G = G & "ג"
              Next I
              X = X - (TV * 3)
              TV = Int(X / 2)
              For I = 1 To TV
                  G = G & "ב"
              Next I
              X = X - (TV * 2)
              TV = Int(X / 1)
              For I = 1 To TV
                  G = G & "א"
              Next I
              X = X - (TV * 1)
              GIMATRIA = G
          End Function
          

          שמור ויש לך פונקצית GIMATRIA הפונקציה מקבלת מספר ומחזירה אותיות
          אפשר להוריד גם קובץ מוכן:גימטריה.xlsx

          אורייא מנותק
          אורייא מנותק
          אוריי
          כתב ב נערך לאחרונה על ידי
          #10

          @פייתוניסט
          הפונקציה מחזירה שגיאה
          caaa4f78-6d3a-4a75-a8d6-1c83b020f5b9-image.png

          ניתן לפנות אלי גם ב al0548446188@gmail.com
          ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

          תגובה 1 תגובה אחרונה
          0
          • פייתוניסטפ פייתוניסט

            @NETZ תלחץ Alt + F11 תוסיף מודול ותדביק בתוכו את הקוד הבא:

            Function GIMATRIA(X)
                G = ""
                TV = Int(X / 400)
                For I = 1 To TV
                    G = G & "ת"
                Next I
                X = X - (TV * 400)
                TV = Int(X / 300)
                For I = 1 To TV
                    G = G & "ש"
                Next I
                X = X - (TV * 300)
                TV = Int(X / 200)
                For I = 1 To TV
                    G = G & "ר"
                Next I
                X = X - (TV * 200)
                TV = Int(X / 100)
                For I = 1 To TV
                    G = G & "ק"
                Next I
                X = X - (TV * 100)
                TV = Int(X / 90)
                For I = 1 To TV
                    G = G & "צ"
                Next I
                X = X - (TV * 90)
                TV = Int(X / 80)
                For I = 1 To TV
                    G = G & "פ"
                Next I
                X = X - (TV * 80)
                TV = Int(X / 70)
                For I = 1 To TV
                    G = G & "ע"
                Next I
                X = X - (TV * 70)
                TV = Int(X / 60)
                For I = 1 To TV
                    G = G & "ס"
                Next I
                X = X - (TV * 60)
                TV = Int(X / 50)
                For I = 1 To TV
                    G = G & "נ"
                Next I
                X = X - (TV * 50)
                TV = Int(X / 40)
                For I = 1 To TV
                    G = G & "מ"
                Next I
                X = X - (TV * 40)
                TV = Int(X / 30)
                For I = 1 To TV
                    G = G & "ל"
                Next I
                X = X - (TV * 30)
                TV = Int(X / 20)
                For I = 1 To TV
                    G = G & "כ"
                Next I
                X = X - (TV * 20)
                TV = Int(X / 10)
                For I = 1 To TV
                    G = G & "י"
                Next I
                X = X - (TV * 10)
                TV = Int(X / 9)
                For I = 1 To TV
                    G = G & "ט"
                Next I
                X = X - (TV * 9)
                TV = Int(X / 8)
                For I = 1 To TV
                    G = G & "ח"
                Next I
                X = X - (TV * 8)
                TV = Int(X / 7)
                For I = 1 To TV
                    G = G & "ז"
                Next I
                X = X - (TV * 7)
                TV = Int(X / 6)
                For I = 1 To TV
                    G = G & "ו"
                Next I
                X = X - (TV * 6)
                TV = Int(X / 5)
                For I = 1 To TV
                    G = G & "ה"
                Next I
                X = X - (TV * 5)
                TV = Int(X / 4)
                For I = 1 To TV
                    G = G & "ד"
                Next I
                X = X - (TV * 4)
                TV = Int(X / 3)
                For I = 1 To TV
                    G = G & "ג"
                Next I
                X = X - (TV * 3)
                TV = Int(X / 2)
                For I = 1 To TV
                    G = G & "ב"
                Next I
                X = X - (TV * 2)
                TV = Int(X / 1)
                For I = 1 To TV
                    G = G & "א"
                Next I
                X = X - (TV * 1)
                GIMATRIA = G
            End Function
            

            שמור ויש לך פונקצית GIMATRIA הפונקציה מקבלת מספר ומחזירה אותיות
            אפשר להוריד גם קובץ מוכן:גימטריה.xlsx

            אורייא מנותק
            אורייא מנותק
            אוריי
            כתב ב נערך לאחרונה על ידי אוריי
            #11

            @פייתוניסט ,
            לאחר חיטוט בקוד מצאתי שיש באקסל כבר פונקציה בשם GIMATRIA (אני לא יודע אם זה רק אצלי או אצל כולם) בכל אופן לאחר שינוי של השם עובד מעולה
            אמנם בvba הקוד עובד
            אבל באקסל בתור נוסחה ממש לא..

            ניתן לפנות אלי גם ב al0548446188@gmail.com
            ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

            תגובה 1 תגובה אחרונה
            0
            • yossizY מנותק
              yossizY מנותק
              yossiz
              כתב ב נערך לאחרונה על ידי yossiz
              #12

              @אוריי זה עובד לי
              260ff75f-23f3-4e82-88dc-88e13e17210e-CleanShot 2022-08-24 at 11.54.20.png

              האם עקבת אחרי ההוראות?

              @פייתוניסט כתב בהפיכת אותיות למספרים באקסל:

              תלחץ Alt + F11 תוסיף מודול ותדביק בתוכו את הקוד הבא

              📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

              אורייא תגובה 1 תגובה אחרונה
              3
              • קומפיונטק מנותק
                קומפיונטק מנותק
                קומפיונט
                כתב ב נערך לאחרונה על ידי
                #13
                פוסט זה נמחק!
                תגובה 1 תגובה אחרונה
                1
                • yossizY yossiz

                  @אוריי זה עובד לי
                  260ff75f-23f3-4e82-88dc-88e13e17210e-CleanShot 2022-08-24 at 11.54.20.png

                  האם עקבת אחרי ההוראות?

                  @פייתוניסט כתב בהפיכת אותיות למספרים באקסל:

                  תלחץ Alt + F11 תוסיף מודול ותדביק בתוכו את הקוד הבא

                  אורייא מנותק
                  אורייא מנותק
                  אוריי
                  כתב ב נערך לאחרונה על ידי
                  #14

                  @yossiz אני עקבתי אחר ההוראות..
                  אבל עדיין זה לא עובד לי
                  כוונתי שזה לא עובד בתור פונקציה מקומית באקסל אבל בקוד כשלעצמו עובד לכל דבר
                  אני אישית הסתדרתי כי צירפתי את הפונקציה לקוד vba אחר וזה עבד לי...

                  ניתן לפנות אלי גם ב al0548446188@gmail.com
                  ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                  dovidD תגובה 1 תגובה אחרונה
                  0
                  • אורייא אוריי

                    @yossiz אני עקבתי אחר ההוראות..
                    אבל עדיין זה לא עובד לי
                    כוונתי שזה לא עובד בתור פונקציה מקומית באקסל אבל בקוד כשלעצמו עובד לכל דבר
                    אני אישית הסתדרתי כי צירפתי את הפונקציה לקוד vba אחר וזה עבד לי...

                    dovidD מנותק
                    dovidD מנותק
                    dovid
                    ניהול
                    כתב ב נערך לאחרונה על ידי dovid
                    #15

                    @אוריי אולי יש לך בעיה במחשב.
                    פתח נושא חדש בעניין: איך לעשות שפונקציית VBA באקסל תהיה זמינה כנוסחה בתאים.
                    תסביר מה עשית ומה לא עובד.
                    ובינתיים אל תשכח לתת לייק למי שעבד פה קשה.
                    בהצלחה.

                    • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
                    • בכל נושא אפשר ליצור קשר dovid@tchumim.com
                    תגובה 1 תגובה אחרונה
                    4
                    • פייתוניסטפ פייתוניסט

                      @NETZ תלחץ Alt + F11 תוסיף מודול ותדביק בתוכו את הקוד הבא:

                      Function GIMATRIA(X)
                          G = ""
                          TV = Int(X / 400)
                          For I = 1 To TV
                              G = G & "ת"
                          Next I
                          X = X - (TV * 400)
                          TV = Int(X / 300)
                          For I = 1 To TV
                              G = G & "ש"
                          Next I
                          X = X - (TV * 300)
                          TV = Int(X / 200)
                          For I = 1 To TV
                              G = G & "ר"
                          Next I
                          X = X - (TV * 200)
                          TV = Int(X / 100)
                          For I = 1 To TV
                              G = G & "ק"
                          Next I
                          X = X - (TV * 100)
                          TV = Int(X / 90)
                          For I = 1 To TV
                              G = G & "צ"
                          Next I
                          X = X - (TV * 90)
                          TV = Int(X / 80)
                          For I = 1 To TV
                              G = G & "פ"
                          Next I
                          X = X - (TV * 80)
                          TV = Int(X / 70)
                          For I = 1 To TV
                              G = G & "ע"
                          Next I
                          X = X - (TV * 70)
                          TV = Int(X / 60)
                          For I = 1 To TV
                              G = G & "ס"
                          Next I
                          X = X - (TV * 60)
                          TV = Int(X / 50)
                          For I = 1 To TV
                              G = G & "נ"
                          Next I
                          X = X - (TV * 50)
                          TV = Int(X / 40)
                          For I = 1 To TV
                              G = G & "מ"
                          Next I
                          X = X - (TV * 40)
                          TV = Int(X / 30)
                          For I = 1 To TV
                              G = G & "ל"
                          Next I
                          X = X - (TV * 30)
                          TV = Int(X / 20)
                          For I = 1 To TV
                              G = G & "כ"
                          Next I
                          X = X - (TV * 20)
                          TV = Int(X / 10)
                          For I = 1 To TV
                              G = G & "י"
                          Next I
                          X = X - (TV * 10)
                          TV = Int(X / 9)
                          For I = 1 To TV
                              G = G & "ט"
                          Next I
                          X = X - (TV * 9)
                          TV = Int(X / 8)
                          For I = 1 To TV
                              G = G & "ח"
                          Next I
                          X = X - (TV * 8)
                          TV = Int(X / 7)
                          For I = 1 To TV
                              G = G & "ז"
                          Next I
                          X = X - (TV * 7)
                          TV = Int(X / 6)
                          For I = 1 To TV
                              G = G & "ו"
                          Next I
                          X = X - (TV * 6)
                          TV = Int(X / 5)
                          For I = 1 To TV
                              G = G & "ה"
                          Next I
                          X = X - (TV * 5)
                          TV = Int(X / 4)
                          For I = 1 To TV
                              G = G & "ד"
                          Next I
                          X = X - (TV * 4)
                          TV = Int(X / 3)
                          For I = 1 To TV
                              G = G & "ג"
                          Next I
                          X = X - (TV * 3)
                          TV = Int(X / 2)
                          For I = 1 To TV
                              G = G & "ב"
                          Next I
                          X = X - (TV * 2)
                          TV = Int(X / 1)
                          For I = 1 To TV
                              G = G & "א"
                          Next I
                          X = X - (TV * 1)
                          GIMATRIA = G
                      End Function
                      

                      שמור ויש לך פונקצית GIMATRIA הפונקציה מקבלת מספר ומחזירה אותיות
                      אפשר להוריד גם קובץ מוכן:גימטריה.xlsx

                      אורייא מנותק
                      אורייא מנותק
                      אוריי
                      כתב ב נערך לאחרונה על ידי אוריי
                      #16

                      יש בעיה קטנה בקוד ש @פייתוניסט עשה, שהוא לא מטפל באותיות "טו" וב "טז"
                      אני עשיתי לעצמי תיקון לקוד
                      אז הנה השיתוף של הקוד לטבת המשתתפים

                      Function GIMATRIA(x)
                      
                          G = ""
                          TV = Int(x / 400)
                          For i = 1 To TV
                              G = G & "ת"
                          Next i
                          x = x - (TV * 400)
                          TV = Int(x / 300)
                          For i = 1 To TV
                              G = G & "ש"
                          Next i
                          x = x - (TV * 300)
                          TV = Int(x / 200)
                          For i = 1 To TV
                              G = G & "ר"
                          Next i
                          x = x - (TV * 200)
                          TV = Int(x / 100)
                          For i = 1 To TV
                              G = G & "ק"
                          Next i
                          x = x - (TV * 100)
                          TV = Int(x / 90)
                          For i = 1 To TV
                              G = G & "צ"
                          Next i
                          x = x - (TV * 90)
                          TV = Int(x / 80)
                          For i = 1 To TV
                              G = G & "פ"
                          Next i
                          x = x - (TV * 80)
                          TV = Int(x / 70)
                          For i = 1 To TV
                              G = G & "ע"
                          Next i
                          x = x - (TV * 70)
                          TV = Int(x / 60)
                          For i = 1 To TV
                              G = G & "ס"
                          Next i
                          x = x - (TV * 60)
                          TV = Int(x / 50)
                          For i = 1 To TV
                              G = G & "נ"
                          Next i
                          x = x - (TV * 50)
                          TV = Int(x / 40)
                          For i = 1 To TV
                              G = G & "מ"
                          Next i
                          x = x - (TV * 40)
                          TV = Int(x / 30)
                          For i = 1 To TV
                              G = G & "ל"
                          Next i
                          x = x - (TV * 30)
                          TV = Int(x / 20)
                          For i = 1 To TV
                              G = G & "כ"
                          Next i
                          If x = 15 Then
                              G = G & "טו"
                          Else
                              If x = 16 Then
                                  G = G & "טז"
                              Else
                                  
                                  x = x - (TV * 20)
                                  TV = Int(x / 10)
                                  For i = 1 To TV
                                      G = G & "י"
                                  Next i
                                  x = x - (TV * 10)
                                  TV = Int(x / 9)
                                  For i = 1 To TV
                                      G = G & "ט"
                                  Next i
                                  x = x - (TV * 9)
                                  TV = Int(x / 8)
                                  For i = 1 To TV
                                      G = G & "ח"
                                  Next i
                                  x = x - (TV * 8)
                                  TV = Int(x / 7)
                                  For i = 1 To TV
                                      G = G & "ז"
                                  Next i
                                  x = x - (TV * 7)
                                  TV = Int(x / 6)
                                  For i = 1 To TV
                                      G = G & "ו"
                                  Next i
                                  x = x - (TV * 6)
                                  TV = Int(x / 5)
                                  For i = 1 To TV
                                      G = G & "ה"
                                  Next i
                                  x = x - (TV * 5)
                                  TV = Int(x / 4)
                                  For i = 1 To TV
                                      G = G & "ד"
                                  Next i
                                  x = x - (TV * 4)
                                  TV = Int(x / 3)
                                  For i = 1 To TV
                                      G = G & "ג"
                                  Next i
                                  x = x - (TV * 3)
                                  TV = Int(x / 2)
                                  For i = 1 To TV
                                      G = G & "ב"
                                  Next i
                                  x = x - (TV * 2)
                                  TV = Int(x / 1)
                                  For i = 1 To TV
                                      G = G & "א"
                                  Next i
                                  x = x - (TV * 1)
                              End If
                          End If
                          GIMATRIA = G
                          
                      End Function
                      

                      ניתן לפנות אלי גם ב al0548446188@gmail.com
                      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                      פייתוניסטפ תגובה 1 תגובה אחרונה
                      4
                      • אורייא אוריי

                        יש בעיה קטנה בקוד ש @פייתוניסט עשה, שהוא לא מטפל באותיות "טו" וב "טז"
                        אני עשיתי לעצמי תיקון לקוד
                        אז הנה השיתוף של הקוד לטבת המשתתפים

                        Function GIMATRIA(x)
                        
                            G = ""
                            TV = Int(x / 400)
                            For i = 1 To TV
                                G = G & "ת"
                            Next i
                            x = x - (TV * 400)
                            TV = Int(x / 300)
                            For i = 1 To TV
                                G = G & "ש"
                            Next i
                            x = x - (TV * 300)
                            TV = Int(x / 200)
                            For i = 1 To TV
                                G = G & "ר"
                            Next i
                            x = x - (TV * 200)
                            TV = Int(x / 100)
                            For i = 1 To TV
                                G = G & "ק"
                            Next i
                            x = x - (TV * 100)
                            TV = Int(x / 90)
                            For i = 1 To TV
                                G = G & "צ"
                            Next i
                            x = x - (TV * 90)
                            TV = Int(x / 80)
                            For i = 1 To TV
                                G = G & "פ"
                            Next i
                            x = x - (TV * 80)
                            TV = Int(x / 70)
                            For i = 1 To TV
                                G = G & "ע"
                            Next i
                            x = x - (TV * 70)
                            TV = Int(x / 60)
                            For i = 1 To TV
                                G = G & "ס"
                            Next i
                            x = x - (TV * 60)
                            TV = Int(x / 50)
                            For i = 1 To TV
                                G = G & "נ"
                            Next i
                            x = x - (TV * 50)
                            TV = Int(x / 40)
                            For i = 1 To TV
                                G = G & "מ"
                            Next i
                            x = x - (TV * 40)
                            TV = Int(x / 30)
                            For i = 1 To TV
                                G = G & "ל"
                            Next i
                            x = x - (TV * 30)
                            TV = Int(x / 20)
                            For i = 1 To TV
                                G = G & "כ"
                            Next i
                            If x = 15 Then
                                G = G & "טו"
                            Else
                                If x = 16 Then
                                    G = G & "טז"
                                Else
                                    
                                    x = x - (TV * 20)
                                    TV = Int(x / 10)
                                    For i = 1 To TV
                                        G = G & "י"
                                    Next i
                                    x = x - (TV * 10)
                                    TV = Int(x / 9)
                                    For i = 1 To TV
                                        G = G & "ט"
                                    Next i
                                    x = x - (TV * 9)
                                    TV = Int(x / 8)
                                    For i = 1 To TV
                                        G = G & "ח"
                                    Next i
                                    x = x - (TV * 8)
                                    TV = Int(x / 7)
                                    For i = 1 To TV
                                        G = G & "ז"
                                    Next i
                                    x = x - (TV * 7)
                                    TV = Int(x / 6)
                                    For i = 1 To TV
                                        G = G & "ו"
                                    Next i
                                    x = x - (TV * 6)
                                    TV = Int(x / 5)
                                    For i = 1 To TV
                                        G = G & "ה"
                                    Next i
                                    x = x - (TV * 5)
                                    TV = Int(x / 4)
                                    For i = 1 To TV
                                        G = G & "ד"
                                    Next i
                                    x = x - (TV * 4)
                                    TV = Int(x / 3)
                                    For i = 1 To TV
                                        G = G & "ג"
                                    Next i
                                    x = x - (TV * 3)
                                    TV = Int(x / 2)
                                    For i = 1 To TV
                                        G = G & "ב"
                                    Next i
                                    x = x - (TV * 2)
                                    TV = Int(x / 1)
                                    For i = 1 To TV
                                        G = G & "א"
                                    Next i
                                    x = x - (TV * 1)
                                End If
                            End If
                            GIMATRIA = G
                            
                        End Function
                        
                        פייתוניסטפ מנותק
                        פייתוניסטפ מנותק
                        פייתוניסט
                        כתב ב נערך לאחרונה על ידי
                        #17

                        @אוריי וואלה נכון לא אחזתי את זה

                        אפשר לפנות אלי במייל pythonist62@gmail.com

                        תגובה 1 תגובה אחרונה
                        1
                        • Aharon 0A מנותק
                          Aharon 0A מנותק
                          Aharon 0
                          כתב ב נערך לאחרונה על ידי Aharon 0
                          #18
                          פוסט זה נמחק!
                          תגובה 1 תגובה אחרונה
                          0
                          תגובה
                          • תגובה כנושא
                          התחברו כדי לפרסם תגובה
                          • מהישן לחדש
                          • מהחדש לישן
                          • הכי הרבה הצבעות


                          בא תתחבר לדף היומי!
                          • התחברות

                          • אין לך חשבון עדיין? הרשמה

                          • התחברו או הירשמו כדי לחפש.
                          • פוסט ראשון
                            פוסט אחרון
                          0
                          • דף הבית
                          • קטגוריות
                          • פוסטים אחרונים
                          • משתמשים
                          • חיפוש
                          • חוקי הפורום