05-10-11, 18:24
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 1.328
| |
 Επικύρωση ΑΜΚΑ σε Excel
Εργασία:
Έλεγχος εγκυρότητας ΑΜΚΑ με συνάρτηση υπολογιστικού φύλλου Excel.
| A | B | | 1 | AMKA | Τύπος | | 2 | 211288xxxxx | TRUE |
| Τύποι | | Κελί | Τύπος | | B2 | =IF(LEN(A2)=11;NOT(MOD(MID(A2;1;1)+(MID(A2;2;1)*2)-(9*(MID(A2;2;1)*2>9))+MID(A2;3;1)+(MID(A2;4;1)*2)-(9*(MID(A2;4;1)*2>9))+MID(A2;5;1)+(MID(A2;6;1)*2)-(9*(MID(A2;6;1)*2>9))+MID(A2;7;1)+(MID(A2;8;1)*2)-(9*(MID(A2;8;1)*2>9))+MID(A2;9;1)+(MID(A2;10;1)*2)-(9*(MID(A2;10;1)*2>9))+MID(A2;11;1);10))) |
|
Με τύπο πίνακα ( Γιώργος Καπετανόπουλος - Τάσος Φιλοξενίδης ): | Τύποι | | Κελί | Τύπος | | B2 | {=IF(LEN(A2)=11;MOD(SUM(MID(A2;ROW($1:$11);1)*1;MID(A2;{2\4\6\8\10};1)*1;-9*(MID(A2;{2\4\6\8\10};1)*2>9));10)=0)} |
| Τύπος πίνακα:
Δημιουργεί { } όταν κλείσετε
τον τύπο με CTRL+SHIFT+ENTER |
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Τελευταία επεξεργασία από το χρήστη Tasos : 06-10-11 στις 22:43.
|
Αλλαγή σε γραμμικό τρόπο
