Έλεγχος εγκυρότητας ΑΦΜ με συνάρτηση Excel.
 

Εργασία:
Έλεγχος εγκυρότητας ΑΦΜ με συνάρτηση υπολογιστικού φύλλου Excel.



<table style="font-family: Calibri,Arial; font-size: 11pt; background-color: rgb(255, 255, 255);" border="1" cellpadding="0" cellspacing="0"><colgroup><col style="width: 30px;"><col style="width: 118px;"><col style="width: 59px;"></colgroup><tbody><tr style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"><td>
</td><td>A</td><td>B</td></tr><tr style="height: 24px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 1</td><td style="text-align: left; font-family: Tahoma;">999842977</td><td style="text-align: center; color: rgb(0, 128, 0); font-family: Marlett; font-size: 16pt; font-weight: bold;">http://www.ms-office.gr/forum/images/misc/chk.gif</td></tr></tbody></table>

Μορφοποίηση του κελιού Α1: Κείμενο

Μορφοποίηση του κελιού B1
Γραμματοσειρά: "Marlett"
Χρώμα γραμματοσειράς: Πράσινο

Μορφοποίηση υπό όρους του κελιού B1
Κανόνας: Τιμή κελιού όχι ίση με "a"
Χρώμα γραμματοσειράς: Κόκκινο


<table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Τύποι</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td>Κελί</td><td>Τύπος</td></tr><tr><td>B1</td><td>{=IF(A1<>"";IF(LEN(A1)=9;IF(MOD(MOD(SUM(MID(A1;9-ROW($1:$8);1)*2^ROW($1:$8));11);10)=RIGHT(A1;1)*1;"a";"r");"r");"")}</td></tr></tbody></table></td></tr><tr><td>Τύπος πίνακα:
Δημιουργεί { } όταν κλείσετε
τον τύπο με CTRL+SHIFT+ENTER.</td></tr></tbody></table>