שיתוף | פונקציות גימטריא לאקסל
-
בניתי שתי פונקציות גימטריה לאקסל 1) פונקצייה הממירה ממספרי לאותיות לדוגמא 253 = רנג 2) פונקציה המחזירה את הגימטריה של טקסט מסוים לדוג' פייתוניסט = 635. בבקשה:
פונקציה 1
Function NUM_TO_TXT(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) NUM_TO_TXT = G End Functionפונקציה 2
Function TXT_TO_NUM(X) XLEN = Len(X) G = 0 For I = 1 To XLEN XText = Mid(X, I, 1) Select Case XText Case "א" G = G + 1 Case "ב" G = G + 2 Case "ג" G = G + 3 Case "ד" G = G + 4 Case "ה" G = G + 5 Case "ו" G = G + 6 Case "ז" G = G + 7 Case "ח" G = G + 8 Case "ט" G = G + 9 Case "י" G = G + 10 Case "כ", "ך" G = G + 20 Case "ל" G = G + 30 Case "מ", "ם" G = G + 40 Case "נ", "ן" G = G + 50 Case "ס" G = G + 60 Case "ע" G = G + 70 Case "פ", "ף" G = G + 80 Case "צ", "ץ" G = G + 90 Case "ק" G = G + 100 Case "ר" G = G + 200 Case "ש" G = G + 300 Case "ת" G = G + 400 End Select Next TXT_TO_NUM = G End Functionיש ללחוץ באקסל ALT + F11 להוסיף מודול להדביק את הקוד ולשמור וזהו יש לכם את הפונקציה החדשה באקסל
בהצלחה -
בניתי שתי פונקציות גימטריה לאקסל 1) פונקצייה הממירה ממספרי לאותיות לדוגמא 253 = רנג 2) פונקציה המחזירה את הגימטריה של טקסט מסוים לדוג' פייתוניסט = 635. בבקשה:
פונקציה 1Function NUM_TO_TXT(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) NUM_TO_TXT = G End Functionפונקציה 2
Function TXT_TO_NUM(X) XLEN = Len(X) G = 0 For I = 1 To XLEN XText = Mid(X, I, 1) Select Case XText Case "א" G = G + 1 Case "ב" G = G + 2 Case "ג" G = G + 3 Case "ד" G = G + 4 Case "ה" G = G + 5 Case "ו" G = G + 6 Case "ז" G = G + 7 Case "ח" G = G + 8 Case "ט" G = G + 9 Case "י" G = G + 10 Case "כ", "ך" G = G + 20 Case "ל" G = G + 30 Case "מ", "ם" G = G + 40 Case "נ", "ן" G = G + 50 Case "ס" G = G + 60 Case "ע" G = G + 70 Case "פ", "ף" G = G + 80 Case "צ", "ץ" G = G + 90 Case "ק" G = G + 100 Case "ר" G = G + 200 Case "ש" G = G + 300 Case "ת" G = G + 400 End Select Next TXT_TO_NUM = G End Functionיש ללחוץ באקסל ALT + F11 להוסיף מודול להדביק את הקוד ולשמור וזהו יש לכם את הפונקציה החדשה באקסל
בהצלחה -
מ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-
-
בניתי שתי פונקציות גימטריה לאקסל 1) פונקצייה הממירה ממספרי לאותיות לדוגמא 253 = רנג 2) פונקציה המחזירה את הגימטריה של טקסט מסוים לדוג' פייתוניסט = 635. בבקשה:
פונקציה 1Function NUM_TO_TXT(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) NUM_TO_TXT = G End Functionפונקציה 2
Function TXT_TO_NUM(X) XLEN = Len(X) G = 0 For I = 1 To XLEN XText = Mid(X, I, 1) Select Case XText Case "א" G = G + 1 Case "ב" G = G + 2 Case "ג" G = G + 3 Case "ד" G = G + 4 Case "ה" G = G + 5 Case "ו" G = G + 6 Case "ז" G = G + 7 Case "ח" G = G + 8 Case "ט" G = G + 9 Case "י" G = G + 10 Case "כ", "ך" G = G + 20 Case "ל" G = G + 30 Case "מ", "ם" G = G + 40 Case "נ", "ן" G = G + 50 Case "ס" G = G + 60 Case "ע" G = G + 70 Case "פ", "ף" G = G + 80 Case "צ", "ץ" G = G + 90 Case "ק" G = G + 100 Case "ר" G = G + 200 Case "ש" G = G + 300 Case "ת" G = G + 400 End Select Next TXT_TO_NUM = G End Functionיש ללחוץ באקסל ALT + F11 להוסיף מודול להדביק את הקוד ולשמור וזהו יש לכם את הפונקציה החדשה באקסל
בהצלחהלנוחות הציבור מצורף קובץ עם שתי הפונקציות גימטריא.xlsm
-
בניתי שתי פונקציות גימטריה לאקסל 1) פונקצייה הממירה ממספרי לאותיות לדוגמא 253 = רנג 2) פונקציה המחזירה את הגימטריה של טקסט מסוים לדוג' פייתוניסט = 635. בבקשה:
פונקציה 1Function NUM_TO_TXT(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) NUM_TO_TXT = G End Functionפונקציה 2
Function TXT_TO_NUM(X) XLEN = Len(X) G = 0 For I = 1 To XLEN XText = Mid(X, I, 1) Select Case XText Case "א" G = G + 1 Case "ב" G = G + 2 Case "ג" G = G + 3 Case "ד" G = G + 4 Case "ה" G = G + 5 Case "ו" G = G + 6 Case "ז" G = G + 7 Case "ח" G = G + 8 Case "ט" G = G + 9 Case "י" G = G + 10 Case "כ", "ך" G = G + 20 Case "ל" G = G + 30 Case "מ", "ם" G = G + 40 Case "נ", "ן" G = G + 50 Case "ס" G = G + 60 Case "ע" G = G + 70 Case "פ", "ף" G = G + 80 Case "צ", "ץ" G = G + 90 Case "ק" G = G + 100 Case "ר" G = G + 200 Case "ש" G = G + 300 Case "ת" G = G + 400 End Select Next TXT_TO_NUM = G End Functionיש ללחוץ באקסל ALT + F11 להוסיף מודול להדביק את הקוד ולשמור וזהו יש לכם את הפונקציה החדשה באקסל
בהצלחהפוסט זה נמחק! -
אפשר להשתמש בפונקציות גם באקסס? (אני מניח שכן כי זה פונקציות VBA לכן עיקר השאלה הוא על איך להשתמש...) תודה רבה!
-
בניתי שתי פונקציות גימטריה לאקסל 1) פונקצייה הממירה ממספרי לאותיות לדוגמא 253 = רנג 2) פונקציה המחזירה את הגימטריה של טקסט מסוים לדוג' פייתוניסט = 635. בבקשה:
פונקציה 1Function NUM_TO_TXT(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) NUM_TO_TXT = G End Functionפונקציה 2
Function TXT_TO_NUM(X) XLEN = Len(X) G = 0 For I = 1 To XLEN XText = Mid(X, I, 1) Select Case XText Case "א" G = G + 1 Case "ב" G = G + 2 Case "ג" G = G + 3 Case "ד" G = G + 4 Case "ה" G = G + 5 Case "ו" G = G + 6 Case "ז" G = G + 7 Case "ח" G = G + 8 Case "ט" G = G + 9 Case "י" G = G + 10 Case "כ", "ך" G = G + 20 Case "ל" G = G + 30 Case "מ", "ם" G = G + 40 Case "נ", "ן" G = G + 50 Case "ס" G = G + 60 Case "ע" G = G + 70 Case "פ", "ף" G = G + 80 Case "צ", "ץ" G = G + 90 Case "ק" G = G + 100 Case "ר" G = G + 200 Case "ש" G = G + 300 Case "ת" G = G + 400 End Select Next TXT_TO_NUM = G End Functionיש ללחוץ באקסל ALT + F11 להוסיף מודול להדביק את הקוד ולשמור וזהו יש לכם את הפונקציה החדשה באקסל
בהצלחה
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}