Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Εξαγωγή τυχαίων αριθμών με εξαιρέσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/6607-eksagogi-tyxaion-arithmon-me-eksaireseis.html)

George R 21-01-25 08:03

Εξαγωγή τυχαίων αριθμών με εξαιρέσεις
 
Καλημέρα σε όλους

Έχω σε μία στήλη, έστω στην Α, μερικούς θετικούς ακεραίους, μεταξύ 1 και 31. Ας πούμε για παράδειγμα τους 1,7,14,15,19, 22 και 31.

Θέλω στην διπλανή στήλη, να μετράει το πλήθος των αριθμών της στήλης Α (εδώ στο παράδειγμά μας 7 ακέραιοι).

Στη συνέχεια να αφαιρεί αυτό το πλήθος από το 31 (εδώ στο παράδειιγμά μας 31 - 7 =24).

Τέλος, στη Β στήλη να δημιουργεί 24 (τους εναπομείναντες) τυχαίους αριθμούς, από το 1 έως το 31, αλλά διαφορετικούς από τους 1,7,14,15,19,22,31 της στήλης Α.

Ευχαριστώ.

Tasos 21-01-25 10:44

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

Γιώργο έστω ότι τα δεδομένα σου ξεκινούν από το κελί A2.

Για να βρεις ποιοι αριθμοί (1 έως 31) λείπουν από την περιοχή A2:A100 χρησιμοποίησε τον παρακάτω τύπο πίνακα (CSE) στο κελί B2:

Κώδικας:

{=IFERROR(SMALL(IF(COUNTIF($A$2:$A$100;ROW($1:$31))=0;ROW($1:$31));ROW(A2)-1);"")}
Κατόπιν αντίγραψε τον τύπο στην περιοχή B2:B33 .

Επίσης για να καταμετρήσεις μοναδικές τιμές στη στήλη Α χρησιμοποίησε τον παρακάτω τύπο πίνακα (CSE):

Κώδικας:

=SUM(IFERROR(1/COUNTIF(A2:A100;A2:A100);0))
Καλή συνέχεια

Με εκτίμηση

Τάσος

George R 22-01-25 07:48

Ευχαριστώ Τάσο

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

τον τύπο τον πέρασα Shift + Cntr + Enter.

Μήπως θα μπορούσες να το περάσεις εσύ σε φύλλο και να το αναβάσεις;

Ευχαριστώ.

Tasos 22-01-25 11:00

1 Συνημμένο(α)
Καλημέρα Γιώργο.

Ρίξε μια ματιά στο επισυναπτόμενο αρχείο.

Καλή συνέχεια!

Με εκτίμηση

Τάσος

George R 23-01-25 12:16

Ευχαριστώ Τάσο


Η ώρα είναι 15:52.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2