ברקוד באקסל...

[ברך אותי]

ברקוד באקסל...

למספר ברקוד תיקני EAN יש 13 ספרות, והספרה האחורנה היא ספרת ביקורת לפי נוסחה. האם האקסל יודע לבצע זאת? כלומר אני יקליד 12 ספרות, ובאופו אוטומטי ישלים את ספרת הביקורת? תודה

 

[אופיר אגוזי]

אם תגלה לנו מה הנוסחא , אז כן..

 

[ברך אותי]

הנוסחה היא:

לדוגמא הברקוד הבא: ?729000123456 הברקוד מורכב מ-12 ספרות, ואת הספרה ה-13 יש לחשב לפי הנוסחה הבאה: 1. סכם את הספרות במיקומים הזוגיים.2+0+0+2+4+6=14 2. הכפל את התוצאה ב-3 14*3=52 3.סכם את הספרות במיקומים האי זוגיים 7+9+0+1+3+5=25 4.סכם את התוצאות מצעדים 2 ו-3 52+25=77 5. ספרת הביקורת הינה המשלימה לכפולת ה-10 הקרובה ביותר לתוצאה בצעד 4 80-77=3 3 היא ספרת הביקורת.

 

[ברך אותי]

../images/Emo87.gifמקפיצה....

מישהו? אני סומכת עליכם...

אם רשמתי משהו לא ברור בנוסחה אשמח להסביר

 

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

פרט לטעות חשבונאית . . .../images/Emo43.gif

הצגת את זה יפה מאד. (14*3 נותן 42 ולא 52) ניתן לכתוב מקרו, לביצוע החישוב, אבל חשבתי שיהיה לך נוח יותר עם נוסחאות פשוטות. בתא A1 הקלד את ה'בר-קוד' ובתא A2 תוצג ספרת הביקורת.

 

[maec]

ובמאקרו:

Sub BC() IZ = 0 ZZ = 0 For i = 2 To 12 Step 2 IZ = IZ + Mid(ActiveCell, i, 1) Next i For i = 1 To 12 Step 2 ZZ = ZZ + Mid(ActiveCell, i, 1) Next i [b1].Value = 10 - Right((3 * IZ + ZZ), 1) End Sub​

ותודה למיכאל שתיקן לי טעות הקלדה וחסך לי שעות של שבירת ראש למה המאקרו לא עובד...