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

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

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

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

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

    תגובה: עזרה באקסל

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

    @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

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

    אורייא 3 תגובות תגובה אחרונה
    6
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    כתב ב נערך לאחרונה על ידי OdedDvir
    #3

    @NETZ יש דרך פשוטה בלי קוד,על ידי Word:

    1. צור טבלה עם עמודה אחת ומספר שורות כרצונך, נגיד 500.
    2. סמן את כל העמודה הראשונה, ומהתפריט למעלה, הגדר תבנית מספר חדשה:
      27451ff5-9bbd-4277-8b9d-eb77a4b01a27-תמונה.png
    3. תסיר את הנקודה אחרי האות:
      f7cb432c-179d-4d02-ab40-e74bedbeeb27-תמונה.png
      ותלחץ אישור.
    4. הרשימה מוכנה, העתק והדבק לאקסל:
      d93646eb-8cd7-41f3-ab86-5563d86b13a5-תמונה.png
    פייתוניסטפ N 2 תגובות תגובה אחרונה
    9
  • פייתוניסטפ מנותק
    פייתוניסטפ מנותק
    פייתוניסט
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #4

    @OdedDvir אחרי שיש לך את הפונקציה זה ודאי יותר מסובך

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

    תגובה 1 תגובה אחרונה
    0
  • N מנותק
    N מנותק
    NETZ
    כתב ב נערך לאחרונה על ידי
    #5

    תודה רבה לכולכם! פשוט אלופים!!!

    תגובה 1 תגובה אחרונה
    1
  • N מנותק
    N מנותק
    NETZ
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #6

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

    אבייא OdedDvirO 2 תגובות תגובה אחרונה
    1
  • אבייא מנותק
    אבייא מנותק
    אביי
    השיב לNETZ ב נערך לאחרונה על ידי
    #7

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

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

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

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

    תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לNETZ ב נערך לאחרונה על ידי
    #8

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

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

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

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

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

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

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

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

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

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

  • התחברות

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

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

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

  • התחברו או הירשמו כדי לחפש.