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

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

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

@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

@שוהם307 כנראה משהו בשנאי לא?
לא נראה לי שהמתגים קשורים

@ek0583232948

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

@liy770 חפש בקול הלשון.

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

=A1

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

=B1

ובתא שאחר כך:

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

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

=B4

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