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

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)

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

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