Αυτή η μέθοδος θα εφαρμόσει τη συνάρτηση 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

Σχετικό άρθρο:

Δημιουργήστε τυχαίες συμβολοσειρές χαρακτήρων σε μια περιοχή