[Συναρτήσεις] Ενεργή συμμετοχή ...

[gr8styl]

Αγαπητοί φίλοι και φίλες
άνοιξα το θέμα αυτό με σκοπό να συγκεντρώσουμε έξυπνες και χρήσιμες συναρτήσεις.
Έτσι οι διαχειριστές του ms-office.gr θα μπορέσουν να κάνουν επιλογή των πλέον χρήσιμων και να τις ανεβάσουν στα Tricks and tips του Excel.

Βάλτε λοιπόν σε αυτό το θέμα τις ανακαλύψεις/συναρτήσεις Excel που θέλετε να μοιραστείτε με άλλους.

Μην ξεχάσετε να περιγράψετε το τι κάνει.

Θανάσης
ΥΓ Θέλω να πιστεύω ότι θα βρει ανταπόκριση το θέμα.

[gr8styl]

Να μια συνάρτηση αρκετά χρήσιμη κατά τη γνώμη μου

Όταν θέλουμε να ταξινομήσουμε μια στήλη που περιέχει αριθμούς χωρίς να χρησιμοποιήσουμε τα μενού του Excel ή κώδικα VBA αλλά με χρήση συνάρτησης, τότε:

Σε μια νέα στήλη στη γραμμή 1 βάζουμε τον τύπο

=IF(ISERROR(SMALL(d:d;ROW()));"";SMALL(d:d;ROW()))

και τον σέρνουμε προς τα κάτω όσο χρειάζεται.

Σημ.: το d στον τύπο είναι η στήλη που περιέχει τους αριθμούς προς ταξινόμηση

ΠΡΟΣΟΧΗ: Αν υπάρχει κείμενο ή κενά στην προς ταξινόμηση στήλη αγνοούνται !!!

[Tasos]

Excel - Ημερολόγιο στα πεταχτά...

Πώς φτιάχνουμε σε ένα φύλλο Excel, ένα ημερολόγιο με μήνες, ημέρες και με σήμανση
στα Σαββατοκύριακα;

Στο κελί A1 πληκτρολογούμε το έτος πχ. 2010

Επικολλούμε τον παρακάτω τύπο στο κελί A2:

=IF(MONTH(DATE($A$1;COLUMN();ROW()-1))=COLUMN();DATE($A$1;COLUMN();ROW()-1);"")

Στο κελί A2 χρησιμοποιούμε μορφοποίηση υπό όρους στην οποία προσθέτουμε τον παρακάτω τύπο:

=WEEKDAY(A2;2)>5

και δίνουμε το χρώμα φόντου που επιθυμούμε.

Αντιγράφουμε το κελί Α2 με CTRL+C

Επιλέγουμε την περιοχή A2:L32 και επικολλούμε με CTRL+V

Τάσος

[nisgia]

Καλησπέρα στην ομάδα!

Μπράβο Θανάση !!!
Πολύ καλή η ιδέα σου!
(ή για να ακριβολογώ, η υλοποίησή της...)

Ορίστε ένας ακόμη τύπος ο οποίος ελέγχει την εγκυρότητα ενός Α.Φ.Μ.
και πιστεύω πως θα φανεί χρήσιμος σε όσους μαζεύουν αποδείξεις λιανικής
και χρησιμοποιούν το Excel για την καταχώρησή τους.

=IF(G5<>"";IF(AND(NOT(ISERROR(--G5));LEN(G5)=9);
IF(MOD(MOD(SUM(MID(G5;9-{1;2;3;4;5;6;7;8};1)*(2^{1;2;3;4;5;6;7;8}));11);10)=--RIGHT(G5;1);
"Έγκυρος Α.Φ.Μ.";"Μη έγκυρος Α.Φ.Μ.");"Λάθος καταχώρηση!");"")

Αντιγράψτε τον και επικολλήστε τον κατευθείαν στη γραμμή τύπου διότι περιέχει αλλαγές γραμμής.

Η μορφή του κελιού ελέγχου (όπου θα εισαχθεί ο Α.Φ.Μ.) θα πρέπει να έχει τεθεί σε τύπο "Κείμενο"
έτσι ώστε να δέχεται τα πιθανά αρχικά μηδενικά ενός Α.Φ.Μ.

Στο συνημμένο αρχείο θα βρείτε ένα παράδειγμα χρήσης του τύπου καθώς και την ανάλυση/επεξήγησή του.

Έτσι, για να βοηθήσουμε και εμείς λίγο στη προσπάθεια πάταξης της φοροδιαφυγής...!

Φιλικά,
Γιάννης

[gr8styl]

Αρχική Δημοσίευση από nisgia

...
Ορίστε ένας ακόμη τύπος ο οποίος ελέγχει την εγκυρότητα ενός Α.Φ.Μ.
και πιστεύω πως θα φανεί χρήσιμος σε όσους μαζεύουν αποδείξεις λιανικής
και χρησιμοποιούν το Excel για την καταχώρησή τους.

=IF(G5<>"";IF(AND(NOT(ISERROR(--G5));LEN(G5)=9);
IF(MOD(MOD(SUM(MID(G5;9-{1;2;3;4;5;6;7;8};1)*(2^{1;2;3;4;5;6;7;8}));11);10)=--RIGHT(G5;1);
"Έγκυρος Α.Φ.Μ.";"Μη έγκυρος Α.Φ.Μ.");"Λάθος καταχώρηση!");"")

...

Μπράβο Γιάννη πολύ καλό
έτσι για ανταπόδοση των "compliments"

Αν μου επιτρέπεις το MOD(....;10) δεν χρειάζεται αφου έχεις --RIGHT(G5;1)
και αν θέλουμε να μικρύνει ακόμα περισσότερο θα έλεγα ούτε το NOT

Τι λες για αυτόν (τα κελιά που περιέχουν τον ΑΦΜ είναι κείμενο όπως προείπες)

=IF(M5<>"";IF(OR(ISERROR(--M5);LEN(M5)<>9);"Λάθος καταχώρηση!";
IF(MOD(SUM(MID(M5;9-{1;2;3;4;5;6;7;8};1)*(2^{1;2;3;4;5;6;7;8}));11)=--RIGHT(M5;1);
"Έγκυρος Α.Φ.Μ.";"Μη έγκυρος Α.Φ.Μ."));"")

Κερδίζουμε 6 bytes ανά κελί που περιέχει τον τύπο στο τελικό αποθηκευμένο βιβλίο

ή αν τα κελιά που περιέχουν τον ΑΦΜ δεν είναι απαραίτητα κείμενο, θα έλεγα

=IF(M6<>"";IF(OR(ISERROR(--M6);LEN(M6)>9);"Λάθος καταχώρηση!";
IF(MOD(SUM(MID(RIGHT(REPT("0";9)&M6;9);9-{1;2;3;4;5;6;7;8};1)*(2^{1;2;3;4;5;6;7;8}));11)=--RIGHT(M6;1);
"Έγκυρος Α.Φ.Μ.";"Μη έγκυρος Α.Φ.Μ."));"")

όπου το κέρδος είναι όμως μόνον 1 byte ανά κελί που περιέχει τον τύπο (παρά του ότι ο τύπος είναι μακρύτερος).
Όλα για το κέρδος γιατί έρχονται δύσκολες μέρες

Τα λέμε
Θανάσης
ΥΓ Οι μετρήσεις έγιναν με Excel 2002 Ελληνικό

[Tasos]

Καλημέρα σε όλους!

Δείτε το και με τύπο πίνακα:

Δεν είχα περιθώρια να ελέγξω τον τύπο με περισσότερα ΑΦΜ αλλά τουλάχιστον κάνει το ίδιο που κάνουν και οι υπόλοιποι τύποι στο θέμα αυτό.

{=IF(A1<>"";IF(LEN(A1)=9;IF(MOD(SUM(MID(A1;9-ROW($1:$8);1)*2^ROW($1:$8));11)=RIGHT(A1;1)*1;"ΟΚ!";"Άκυρο!")
;"Λάθος καταχώρηση!");"")} Προσοχή! Τύπος Πίνακα (CSE) 

Τα λέμε..

Τάσος

[nisgia]

Καλησπέρα!

Αρχική Δημοσίευση από gr8styl

Αν μου επιτρέπεις το MOD(....;10) δεν χρειάζεται αφου έχεις --RIGHT(G5;1)

Δυστυχώς φίλοι μου η MOD(....;10) είναι απαραίτητη στην περίπτωση που η MOD(....;11) επιστρέφει 10
και αυτό σίγουρα δεν ισούται με το τελευταίο ψηφίο του Α.Φ.Μ.

Επίσης ο έλεγχος ISERROR(--G5) είχε μπει για απόκρυψη της τιμής σφάλματος #VALUE!
έτσι ώστε να είναι πιο φιλική προς το χρήστη η "φόρμα" εισαγωγής.

Όσο για την αυτόματη συμπλήρωση Θανάση, νομίζω πως είναι λίγο επισφαλής διαδικασία.
Καλλίτερα την ευθύνη των όσων εισάγονται να την έχει ο χρήστης.

Οπότε μάλλον η πιο συντομευμένη έκδοση είναι αυτή του Τάσου η οποία γλιτώνει αρκετούς χαρακτήρες
από τους σταθερούς πίνακες με τη χρήση της ROW().
Αρκεί να προστεθεί και η MOD(....;10) για σωστά αποτελέσματα αλλά και προαιρετικά η ISERROR(--G5).

[Tasos]

Καλησπέρα Γιάννη μου.

Αρχική Δημοσίευση από nisgia

Αρκεί να προστεθεί και η MOD(....;10) για σωστά αποτελέσματα αλλά και προαιρετικά η ISERROR(--G5).

Είναι έτσι εντάξει;

{=IF(A1<>"";IF(LEN(A1)=9;IF(MOD(MOD(SUM(MID(A1;9-ROW($1:$8);1)*2^ROW($1:$8))*1;10)=RIGHT(A1;1)*1;10);"ΟΚ!";
"Άκυρο!");"Λάθος καταχώρηση!");"")}

Τη συνάρτηση αυτή δεν κατόρθωσα να την κάνω να μου εμφανίσει #VALUE! .

Τάσος

[gr8styl]

Αρχική Δημοσίευση από nisgia

Δυστυχώς φίλοι μου η MOD(....;10) είναι απαραίτητη στην περίπτωση που η MOD(....;11) επιστρέφει 10
και αυτό σίγουρα δεν ισούται με το τελευταίο ψηφίο του Α.Φ.Μ.

Πολύ σωστά Γιάννη
το MOD(...;10) είναι αναγκαίο.
Μπερδεύτικα με την RIGHT(..;1) που παίρνει μόνο το τελευταίο ψηφίο, του ΑΦΜ όμως και όχι του αποτελέσματος της MOD(..;11)

Θα συμφωνήσω ακόμα ότι η πρόταση του Τάσου με χρήση συνάρτησης πίνακα είναι η οικονομικότερη. Μάλλον εγώ τον παρέσυρα και παρέλειψε και αυτός το MOD(...;10)

Συγνώμη για το μπέρδεμα.

Θανάσης
ΥΓ. Το έχω πει ότι μου αρέσουν οι παρατηρήσεις διορθώνομαι

[nisgia]

Δεκτή η συγγνώμη σου Θανάση αλλά η EXELιξη έτσι είναι. Try and error!
...Χρόνια τώρα!