נכתב ע"י Rרחמים;2501265:
נכתב ע"י a26955;2501264:..קבצים מצורפים
t=instr(AllLetters,Letter)
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
נכתב ע"י מורדי;2501679:יפה מאד.
אתה יכול להשתמש בפונקציה "instr", בשביל למצוא את המיקום של האות בסטרינג של האותיות, במקום לולאה.כמו"כ היית יכול לעשות המניפולציות על ערך האסקי של האות (בין 224 ל 233= t-223, וכו') אבל יתכן שזה לא פחות מורכב.קוד:t=instr(AllLetters,Letter)
האשכול ישן.יש אפשרות לעשות הפוך
כלומר לכתוב מספרים והאקסל יהפוך אותם לאותיות?
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
קורס משולב בינה מלאכותית
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
4.06
כ"ז אייר
#רקבפרוג
הרצאה מרתקת:
הכירו את טווינמושן
עם גל אקסלרוד
עולם מטורף משל הדמיות! ממשק חדשני שמאפשר לבצע הדמיה כמעט כמו משחק מחשב
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק ו
א לַמְנַצֵּחַ בִּנְגִינוֹת עַל הַשְּׁמִינִית מִזְמוֹר לְדָוִד:ב יְהוָה אַל בְּאַפְּךָ תוֹכִיחֵנִי וְאַל בַּחֲמָתְךָ תְיַסְּרֵנִי:ג חָנֵּנִי יְהוָה כִּי אֻמְלַל אָנִי רְפָאֵנִי יְהוָה כִּי נִבְהֲלוּ עֲצָמָי:ד וְנַפְשִׁי נִבְהֲלָה מְאֹד (ואת) וְאַתָּה יְהוָה עַד מָתָי:ה שׁוּבָה יְהוָה חַלְּצָה נַפְשִׁי הוֹשִׁיעֵנִי לְמַעַן חַסְדֶּךָ:ו כִּי אֵין בַּמָּוֶת זִכְרֶךָ בִּשְׁאוֹל מִי יוֹדֶה לָּךְ:ז יָגַעְתִּי בְּאַנְחָתִי אַשְׂחֶה בְכָל לַיְלָה מִטָּתִי בְּדִמְעָתִי עַרְשִׂי אַמְסֶה:ח עָשְׁשָׁה מִכַּעַס עֵינִי עָתְקָה בְּכָל צוֹרְרָי:ט סוּרוּ מִמֶּנִּי כָּל פֹּעֲלֵי אָוֶן כִּי שָׁמַע יְהוָה קוֹל בִּכְיִי:י שָׁמַע יְהוָה תְּחִנָּתִי יְהוָה תְּפִלָּתִי יִקָּח:יא יֵבֹשׁוּ וְיִבָּהֲלוּ מְאֹד כָּל אֹיְבָי יָשֻׁבוּ יֵבֹשׁוּ רָגַע: