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

[דיוק רב]

שלום
האם קיימת פונקציה באקסל, היכולה להפוך אותיות למספרים בשיטת הגימטריה
לדוגמה
רכב = 222
וכו'

תודה

 

[FullTime]

..

 

[Rרחמים]

http://forum.enativ.com/viewtopic.php?f=8&t=761&start=100

 

[FullTime]

http://forum.enativ.com/viewtopic.php?f=8&t=761&start=100

ההוא הלך בדרך תהפוכות,
מה עם סטרינג של יותר מ21 תווים?

 

[מורדי]

..קבצים מצורפים

יפה מאד.
אתה יכול להשתמש בפונקציה "instr", בשביל למצוא את המיקום של האות בסטרינג של האותיות, במקום לולאה.

t=instr(AllLetters,Letter)

כמו"כ היית יכול לעשות המניפולציות על ערך האסקי של האות (בין 224 ל 233= t-223, וכו') אבל יתכן שזה לא פחות מורכב.

 

[Yisrael]

אפשר להוסיף את הפונקציה הבאה ב VBA וככה היא עובדת כמו פוקנציה רגילה של אקסל בתור פונקציות המוגדרות ע"י המשתמש.

[האמת שלא עיינתי בכל האופציות שהביאו כאן אז אני לא יודע מה עדיף...]

Public Function Gim(Str As String)
S = 0
myarray = Array(400, 300, 200, 100, 90, 90, 80, 80, 70, 60, 50, 50, 40, 40, 30, 20, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
myaarray = Array("ת", "ש", "ר", "ק", "צ", "ץ", "פ", "ף", "ע", "ס", "נ", "ן", "מ", "ם", "ל", "כ", "ך", _
"י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
For A = 1 To Len(Str)
    For i = 0 To UBound(myarray)
      If Mid(Str, A, 1) = myaarray(i) Then
        S = S + myarray(i)
        Exit For
      End If
    Next i
Next A
Gim = S
End Function

 

[FullTime]

יפה מאד.
אתה יכול להשתמש בפונקציה "instr", בשביל למצוא את המיקום של האות בסטרינג של האותיות, במקום לולאה.

t=instr(AllLetters,Letter)

כמו"כ היית יכול לעשות המניפולציות על ערך האסקי של האות (בין 224 ל 233= t-223, וכו') אבל יתכן שזה לא פחות מורכב.

לא אני עשיתי את הקוד...
הקוד מועתק מאן שהוא, וכמדומה לי שמוישי הביא את זה באחד מהקבצים שלו.

 

[555]

יש אפשרות לעשות הפוך
כלומר לכתוב מספרים והאקסל יהפוך אותם לאותיות?

 

[יעקב ויצמן]

יש אפשרות לעשות הפוך
כלומר לכתוב מספרים והאקסל יהפוך אותם לאותיות?

האשכול ישן.
אך למי שירצה בכך בעתיד .ערכתי בס"ד גיליון אקסל עם הסבר בלינק המצורף
בגיליון זה ניתן להמיר מספרים לאותיות עד מספר 1999.
כל החישובים בעזרת פונקציות בלבד ללא vba וללא תוספים.
ראו כאן
הודעה בנושא 'רוצה לעזור לכם באקסל' https://www.prog.co.il/threads/רוצה-לעזור-לכם-באקסל.499341/post-13264585