Εισαγάγετε τυχαία ολόκληρους αριθμούς / ημερομηνίες / ώρα μεταξύ δύο αριθμών / ημερομηνιών / ωρών χωρίς επαναλήψεις

Kutools για Excel Εισαγωγή τυχαίων δεδομένων Το βοηθητικό πρόγραμμα επιτρέπει την εύκολη εισαγωγή τυχαίων ακέραιων αριθμών (ακέραιων αριθμών) μεταξύ δύο συγκεκριμένων αριθμών, τυχαία εισαγωγή μιας σειράς ημερομηνιών (μόνο εργάσιμες ημέρες, ή μόνο σαββατοκύριακα, ή χωρίς περιορισμό) μεταξύ δύο ημερομηνιών, εισαγωγή τυχαίας σειράς χρόνων μεταξύ δύο φορές ή δημιουργία τυχαίων συμβολοσειρές κειμένου με συγκεκριμένο μήκος. Και το Μοναδικές τιμές επιλογή θα αποτρέψει την εισαγωγή διπλότυπων.

Αυτή η μέθοδος θα εφαρμόσει τη συνάρτηση RAND και RANDBETWEEN για την εισαγωγή τυχαίων αριθμών μεταξύ δύο αριθμών σε ένα καθορισμένο εύρος στο Excel. Δείτε τους παρακάτω τύπους:

Δείτε παρακάτω στιγμιότυπα οθόνης:

Τυχαίοι αριθμοί μεταξύ 0 και 1 = RAND ()

Τυχαίοι αριθμοί μεταξύ 0 και 100 = RAND () * 100

Τυχαίοι ακέραιοι αριθμοί μεταξύ 50 και 100 = RANDBETWEEN (50, 100)

Παρακάτω, το VBA μπορεί να σας βοηθήσει να εισαγάγετε τυχαίους ακέραιους αριθμούς ή τυχαίους αριθμούς με δεδομένα δεκαδικά ψηφία σε ένα καθορισμένο εύρος στο Excel. Κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer)
'Update20131113
Application.Volatile
Randomize
If IsMissing(Decimals) Or Decimals = 0 Then
    RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1)
Else
    RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals)
End If
End Function

3. Αποθηκεύστε και κλείστε τον κώδικα και, στη συνέχεια, σε ένα κενό κελί, εισαγάγετε αυτόν τον τύπο = Τυχαίοι αριθμοί (X, Y, Z), X δείχνει το κατώτερο όριο των αριθμών, Y δείχνει το υψηλότερο όριο των αριθμών και Z είναι τα καθορισμένα δεκαδικά ψηφία τυχαίων αριθμών.

Για παράδειγμα, θέλω να δημιουργήσω μερικούς ακέραιους αριθμούς μεταξύ 50 και 1000, μπορώ να εισαγάγω αυτόν τον τύπο = τυχαίους αριθμούς (50,1000,0); και εισαγάγετε τυχαίους αριθμούς μεταξύ 50 και 100 με 2 δεκαδικά ψηφία με αυτόν τον τύπο =τυχαίοι αριθμοί (50,100,2). Δείτε παρακάτω στιγμιότυπα οθόνης:

Εισαγωγή τυχαίων αριθμών χωρίς δεκαδικά ψηφία:

Εισαγωγή τυχαίων αριθμών με 2 δεκαδικά ψηφία:

Kutools για Excel's Εισαγωγή τυχαίων δεδομένων καθιστά δυνατή την εισαγωγή τυχαίων ακέραιων αριθμών μεταξύ δύο αριθμών χωρίς διπλότυπα στο επιλεγμένο εύρος στο Excel. Κάντε τα εξής:

1. Επιλέξτε το εύρος που θέλετε να εισαγάγετε τυχαίους ακέραιους αριθμούς και κάντε κλικ στο Kutools > Κύριο θέμα > Εισαγωγή τυχαίων δεδομένων, δείτε το στιγμιότυπο οθόνης:

2. Στην Εισαγωγή τυχαίων δεδομένων κουτί διαλόγου, (1) κλικ Ακέραιος αριθμός αυτί, (2) Στα πλαίσια From και To πληκτρολογήστε το εύρος αριθμών που θα δημιουργήσετε τυχαίους ακέραιους αριθμούς μεταξύ, (3) έλεγξε το Μοναδικές τιμές επιλογή, (4) Και κάντε κλικ στο Ok κουμπί. Δείτε το στιγμιότυπο οθόνης:

Αυτό φανταστικό Εισαγωγή τυχαίων δεδομένων Η δυνατότητα υποστηρίζει επίσης την εισαγωγή τυχαίων ημερομηνιών χωρίς επαναλήψεις, τυχαία ώρα χωρίς διπλότυπα, τυχαίους χαρακτήρες και τυχαία δεδομένα από συγκεκριμένη προσαρμοσμένη λίστα χωρίς επαναλήψεις επίσης.

Εισαγάγετε τυχαίες ημερομηνίες (εκτός Σαββατοκύριακου) χωρίς επαναλήψεις από το Kutools για Excel

Εισαγάγετε δεδομένα τυχαίου χρόνου χωρίς επαναλήψεις από το Kutools για Excel

Εισαγάγετε τυχαίους χαρακτήρες με καθορισμένο μήκος συμβολοσειράς από το Kutools για Excel

Εισαγάγετε τυχαία δεδομένα από συγκεκριμένη προσαρμοσμένη λίστα χωρίς επαναλήψεις από το Kutools για Excel