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

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

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

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

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

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

    תגובה 1 תגובה אחרונה
    0
    • אורייא מנותק
      אורייא מנותק
      אוריי
      השיב לפייתוניסט ב נערך לאחרונה על ידי
      #10

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

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

      תגובה 1 תגובה אחרונה
      0
      • אורייא מנותק
        אורייא מנותק
        אוריי
        השיב לפייתוניסט ב נערך לאחרונה על ידי אוריי
        #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
            • אורייא מנותק
              אורייא מנותק
              אוריי
              השיב לyossiz ב נערך לאחרונה על ידי
              #14

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

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

              dovidD תגובה 1 תגובה אחרונה
              0
              • dovidD מנותק
                dovidD מנותק
                dovid ניהול
                השיב לאוריי ב נערך לאחרונה על ידי dovid
                #15

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

                מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

                בכל נושא אפשר ליצור קשר dovid@tchumim.com

                תגובה 1 תגובה אחרונה
                4
                • אורייא מנותק
                  אורייא מנותק
                  אוריי
                  השיב לפייתוניסט ב נערך לאחרונה על ידי אוריי
                  #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
                  • פייתוניסטפ מנותק
                    פייתוניסטפ מנותק
                    פייתוניסט
                    השיב לאוריי ב נערך לאחרונה על ידי
                    #17

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

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

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

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

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

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