עזרה בפונקציית IF באקסל

[יהודי טוב]

יש לי אקסל עם עמודה של מספרי טלפון ופלאפון בצורה לא מסודרת.
דוגמא:
0583232323
583232323
029999999
29999999
9999999

אני רוצה שכל המספרים יהיו בצורה תקינה, טלפון כולל קידומת, ופלאפונים כולל 0.
0583232323, 029999999.

ולכן כתבתי נוסחה באקסל,
אם המספר הראשון גדול מ- 0
אם התא מכיל 9 ספרות (פלאפון ללא 0) = להוסיף את הסיפרה 0
אם התא מכיל 8 ספרות (טלפון ללא 0)= להוסיף את הסיפרה 0.
אם התא מכיל 7 ספרות (טלפון ללא 02)= להוסיף את הספרות 02 (כל המספרים באותה קידומת).

כתבתי את הנוסחה הבאה אך חוזר לי שגיאה,
ניסיתי להתקשקש, ולשנות סוגריים ופסיקים וכו' אך כלום לא עזר.
אודה למי שיוכל לתקן אותי:

=IF(LEFT(A4>0),IF(LEN(A4)=9,TEXT(A4,"0000000000"),IF(LEN(A4)=8,TEXT(A4,"000000000"),IF(LEN(A4)=7,TEXT(A4,"020000000")))))

תודה רבה

[dovid]

מצאתי טעות בהתחלה:
LEFT(A4>0)
צריך להיות
LEFT(A4)>0, ככה:

=IF(LEFT(A4)>0,IF(LEN(A4)=9,TEXT(A4,"0000000000"),IF(LEN(A4)=8,TEXT(A4,"000000000"),IF(LEN(A4)=7,TEXT(A4,"020000000")))))

[ivrtikshoret]

פוסט זה נמחק!

[avi rz]

@יהודי-טוב אמר בעזרה בפונקציית IF באקסל:

=IF(LEFT(A4>0),

דבר ראשון, את התנאי הראשון לסדר,

=IF(LEFT(A4)>0,

ובסוף במקום

@יהודי-טוב אמר בעזרה בפונקציית IF באקסל:

,TEXT(A4,"020000000")))))

להוסיף

,TEXT(A4,"020000000"),A4))))

וגם בסוף ממש להוסיף תנאי שלילי, כלומר אם זה כן אפס בהתחלה שיביא את השדה בשלמותו

))),A4)

ולשנות גם את האפס בהתחלה לטקסט

=IF(LEFT(A4)<>"0"

למעשה בשורה התחתונה תדביק את זה:

=IF(LEFT(A4)<>"0",IF(LEN(A4)=9,TEXT(A4,"0000000000"),IF(LEN(A4)=8,TEXT(A4,"000000000"),IF(LEN(A4)=7,TEXT(A4,"020000000"),A4))),A4)

בהצלחה.

[יהודי טוב]

@dovid @avi-rz אין מילים אלופים!!

[יהודי טוב]

האקסל נתקע לי כל הזמן..
(כשהוא מעדכן את זה על כל השורות)
זה אקסל עם 3000 שורות.

יש פיתרון?
או שצריך סבלנות?

[avi rz]

@יהודי-טוב אמר בעזרה בפונקציית IF באקסל:

האקסל נתקע לי כל הזמן..

אתה רוצה לתקן אותם חד פעמי?
א"כ, תוכל לעשות 500 למשל,
להעתיק ולהדביק בטור ליד הדבקה מיוחדת - ערכים בלבד, וכן הלאה.

או להשתמש בvba - אתה צריך לשמור את הגיליון בפורמט אחר, ולהתקדם שלב.

[dovid]

@יהודי-טוב קשה לי לראות איך זה תוקע את אקסל (3000 שורות זה כלום).
אבל סתם ככה אם זו רשימה "סגורה" ומדובר בנרמול חד פעמי, יותר קל להעתיק לעורך טקסט מודרני (כמו notepad++ או VSCODE) ושמה לעשות חיפוש והחלפה ולהחזיר לאקסל.

[יהודי טוב]

@dovid אמר בעזרה בפונקציית IF באקסל:

יותר קל להעתיק לעורך טקסט מודרני (כמו notepad++ או VSCODE) ושמה לעשות חיפוש והחלפה ולהחזיר לאקסל.

לא יצא לי להתעסק עם זה כך שיותר נוח להמתין עד שהאקסל יתאושש.

בכ"א תודה..

[איש נחמד]

@יהודי-טוב אתה יכול להמיר את הכל למספר (במקום טקסט) ואז לא תצטרך לבדוק אם יש 0 בהתחלה.

[avi rz]

@avi-rz אמר בעזרה בפונקציית IF באקסל:

או להשתמש בvba - אתה צריך לשמור את הגיליון בפורמט אחר, ולהתקדם שלב.

הנה קוד,

Public Function FixNumber(Optional strNum As Variant) As String

    Dim len_ As Long
    Dim first As String
    
strNum = CStr(strNum)


first = Left(strNum, 1)

Select Case a
    Case "0":
        FixNumber = strNum
    Case Else
        len_ = Len(strNum)
        Select Case len_
            Case 9, 8:
                FixNumber = "0" & strNum
            Case 7:
                FixNumber = "02" & strNum
            Case Else
        FixNumber = strNum
        End Select
End Select


End Function

תעתיק את זה ותדביק בעודך הvba.
תשתמש בפונקציה הזאת כך:

=FixNumber(A4)