אימות ת.ז באקסל

[danico11]

אימות ת.ז באקסל

ברצוני לבצע אימות נתונים על ת.ז כך שחייבים להזין רק ספרות ולא אותיות כמו כן חייבים להזין 9 ספרות . ( כמו כן אני רוצה שזה יהיה בעיצוב טקסט כך שאם יהיה פחות מ 9 ספרות אז יהיה השלמה של אפסים ) ( הודעת הקלט והתרעת שגיאה אני כבר יודע מה לכתוב ) כמו כן יש לי נוסחה מוכנה של תקינות ת.ז אודה לעזרה בתודה דניאל

 

[iyyi]

נוסחת אימות נתונים ל-9 ספרות בלבד

אם התא נמצא ב-A1 והעצוב שלו הוא טקסט, ניתן להצמיד לו את נוסחת אימות הנתונים הבאה: =IFERROR(AND(SUM(1*MID(A1,ROW(1:9),1)),LEN(A1)=9),FALSE) לגבי אפסים מובילים אם יש פחות מ-9 ספרות, מדובר במצב בלתי אפשרי, שכן לא ניתן לכתוב בתא פחות מ-9 ספרות

 

[iyyi]

אפשר גם (A1*(LEN(A1)=9=

 

[מיכאל אבידן]

אימות נתונים כולל

השלמה ל-9 ספרות ('אפסים מובילים')..

 

[ziv98]

בדיקת ספרת ביקורת

Function tz_check(tz As Variant) As String 'tz_check= '1=OK '2=X '3=not 9 pos On Error Resume Next If Len(tz) = 9 Then For i = 1 To 8 tmp = Val(Mid(tz, i, 1)) * Switch(WorksheetFunction.IsEven(i) = False, 1, WorksheetFunction.IsEven(i) = True, 2) For j = 1 To Len(tmp) agg = agg + Val(Mid(tmp, j, 1)) Next j Next i If Right(100 - agg, 1) = Right(tz, 1) Then tz_check = 1 Else tz_check = 2 End If Else tz_check = 3 End If End Function