Αντιστροφα νουμερα στο excel

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
hi2all
Δημοσιεύσεις: 2
Εγγραφή: 22 Μαρ 2010 13:43

Αντιστροφα νουμερα στο excel

Δημοσίευση από hi2all » 22 Μαρ 2010 13:46

Καλημερα καταρχην, θα θελα λιγο τη βοηθεια σας, αυτο που θελω να κανω ειναι το εξης:

Να δινω τυχαιους αριθμους 4ψηφιους-εξαψηφιους και να μου δινει αυτοματα εναν αλλο αριθμο ωστε τα ψηφια του ενος με τα ψηφια του αλλου να ισουνται με 10 δλδ πχ

15337(δινω εγω αυτον τον αριθμο) αυτοματα να μου βγαζει σε αλλο κελι τον αριθμο
95773

αν δειτε 9+1 5+5 3+7 3+7 7+3 ολα τα ψηφια του ενος με ολα τα ψηφια του αλλου δλδ ισουνται με 10.

Καμια βοηθεια?

Να συμπληρωσω το εξής αν εχω εναν αριθμο πχ 10535 αυτος θα γινει 90575 δλδ το 0 θα παραμείνει 0 υπάρχει η μέθοδος της αντικατάστασης με την οποια αν κάνω σε 2η στηλη ολα τα νούμερα 1 κ 0 και επειτα πολλαπλασιασω τον αριθμο που θα βγει με το 10 κ αφαιρεσω τον αρχικο αριθμο θα μου δώσει το αποτέλεσμα που θέλω,σε περιπτωση που δεν υπαρχει πιο ευκολος τροπος,υπαρχει τροπος να γινεται αυτοματα η μεθοδος της αντικαταστασης?

πχ 15337 απο 2-9 ολα τα νουμερα να γινουν 1 οποτε εχουμε 11111 πολλαπλασιαζω με 10 εχω 111110 αφαιρω τον αρχικο αριθμο 111110-15337=95773

Άβαταρ μέλους
Hermeia
Honorary Member
Δημοσιεύσεις: 987
Εγγραφή: 02 Αύγ 2004 00:14
Τοποθεσία: Αθήνα
Επικοινωνία:

Αντιστροφα νουμερα στο excel

Δημοσίευση από Hermeia » 22 Μαρ 2010 18:07

1. γράφεις αυτό που θέλεις να κάνεις σε τύπο
πχ. κόβεις τον αριθμό σε ψηφία mod 10 - ή τον εχεις ορίσει αρχικά ως ASCII και στη συνέχεια θα επεξεργαστείς 1-1 τα ψηφία του... μετά κάνεις τις αντικαταστάσεις σου (αν δεν ειναι 0 αφαιρείς το ψηφίο απο το 10 αν δεν κάνω λάθος) .. και στη συνέχεια ό,τι άλλο θέλεις να κάνεις ..
Μάλλον θα χρειαστεί πρώτα έλεγχος του αριθμού των ψηφίων (χαρακτήρων) . αν δεν είναι στανταρ (πχ. πάντα 5 ή πάντα 6 ψηφία..)

2. μεταφέρεις τους τύπους σε κελιά του ΧΛ.. Αν είναι πολύ μεγάλος ο τύπος, τον σπας καλυτερα σε περισσότερα απο 1 κελια αποτελεσμάτων (πχ. στο 1οΤ μονο η αντικατάσταση, στο 2 αρχίζει η επεξεργασία, κλπ.)

Καθε φορά που αλλάζεις (απόλυτη) τιμή στο κελί δεδομένων (στο οποίο αναφέρεται ο τύπος του 1ου κελιού), ενημερώνονται αυτόματα όλα τα κελιά (που εξαρτώνται στη σειρά απο το 1οΤ κλπ...)

my 2 cents

hi2all
Δημοσιεύσεις: 2
Εγγραφή: 22 Μαρ 2010 13:43

Αντιστροφα νουμερα στο excel

Δημοσίευση από hi2all » 22 Μαρ 2010 19:17

Euxaristw polu alla epeidi den eimai k polu gnwstis tha borouses na mou dwseis grapseis ena paradeigma px enos tripsifiou arithmou?

Άβαταρ μέλους
DGeorge
Honorary Member
Δημοσιεύσεις: 3752
Εγγραφή: 13 Σεπ 2007 12:59
Τοποθεσία: Καλλιθέα Γενικώς

Αντιστροφα νουμερα στο excel

Δημοσίευση από DGeorge » 22 Μαρ 2010 21:06

Η οδηγία μόνη είναι 2 cents! (Όπως εξ'άλλου γράφει και στο τέλος)
Σκέψου καλά αυτό, που της ζητάς, γιατί την τελευταία φορά που της ζήτησα κάτι ανάλογο, ανέβηκε στα 2 EURO... :o :o Έτσι απότομα :D :D
Δεν ξέρω αυτό το κορίτσι με τι μαθηματική ακολουθία χρεώνει :think: :think: :lol: :lol:
[Edit:]Φυσικά αστειεύομαι, και μη δίνεις σημασία σε όσα γράφω... Η ΚΥΡΙΑ (διότι περί Κυρίας πρόκειται) υπέγραφε εδωμέσα ως: InfoSharer μοιράζοντας τις Εμπειρίες και τις Γνώσεις της, χωρίς κανένα δισταγμό, με όποιον ερχόταν να ζητήσει βοήθειa, όπως εσύ!
Η Κυρία αυτή μου έδωσε παράδειγμα, ότι εδωμέσα όλοι προσπαθούμε να βοηθήσουμε κι όχι μόνο ο Admin κι οι Mods.
Γι' αυτό τρέφω κάθε σεβασμό προς το άτομό της, και οι προηγούμενες γραφές μου ας θεωρηθούν ότι ανήκουν στα πλαίσια λίγης χαλάρωσης, ανάμεσα σε τόσα μαθηματικά :D :D [/Edit]
PC-Ponemenos
Εικόνα

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Αντιστροφα νουμερα στο excel

Δημοσίευση από dva_dev » 30 Μαρ 2010 21:44

Αν δεν έχεις κάνει κάτι, πάρε ένα excel addin για μια function (COMPLEMENT10) που κάνει αυτή τη δουλειά (θα τη δείς στη λίστα με τις functions στην κατηγορία dva.xll). Μόνο που θέλει τον αριθμό σαν string (μέχρι 255 χαρακτήρες), και τον επιστρέφει πάλι σαν string.
Π.χ.

Κώδικας: Επιλογή όλων

=COMPLEMENT10("27691393631221788569654589683326539022894468")
=COMPLEMENT10(A1)
=COMPLEMENT10(TEXT(RANDBETWEEN(0;9999999999);"#"))





ΥΓ. Αν βρείτε τίποτα bugs, κρατήστε τα, έχω αρκετά από δαύτα.
Συνημμένα
DVA.zip
excel addin
(19.91 KiB) Μεταφορτώθηκε 408 φορές
DVA.XLL.zip
addin sources (vc6 project + ότι χρειάζεται από το excel sdk)
(38.87 KiB) Μεταφορτώθηκε 335 φορές

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης