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

@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

@nachman אם אתה מתעקש על נוסחה אז שים בהתחלה:

=A1

ובשתי התאים לאחר מכן:

=B1

ובתא שאחר כך:

=INDEX($A$1:$A$32,MATCH(B3,$A$1:$A$32,0)+1,1)

ובשתיים שאחריו:

=B4

ואז תבחר בשלושת התאים האחרונים ותמשוך עד למטה
התייחסתי למקרה בו הרשימה נמצאת ב A1:A32 והרשימה שאתה רוצה ליצור (המשולשת) נמצאת בעמודה B
דוגמה : חוברת1.xlsx

@ב-ל יש 3 חומים נכון?
אז תבדוק אם טסטר באיזה מהם יש חשמל
עכשיו אם תחבר את שלושת החוטים יחד אז האור יהיה דלוק תמיד והמפסק השני לא ישנה כלום
אם תחבר לאחד מהם (אח החוט עם החשמל לאחד משני החוטים הנותרים) אז המפסק השני יעבוד אבל מכיוון שאתה צריך שכשהמפסק למעלה זה ידלוק וכשהמפסק למטה זה יתכבה אז תבדוק איזה מהשתיים האחרים יעשה את הפעולה הנ"ל (ואם תחבר לשני זה יהיה הפוך.)

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