✅ Λειτουργία VBA Rnd

Πίνακας περιεχομένων

Συνάρτηση Rnd

Χρησιμοποιείται για την αλλαγή της τιμής σπόρου που χρησιμοποιείται από τη γεννήτρια τυχαίων αριθμών για τη συνάρτηση Rnd.

123456

Sub Rnd_Example ()Dim randomValueΤυχαίαrandomValue = RndΤέλος υπο

Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "Rnd (" για να δείτε τη σύνταξη για τη συνάρτηση Rnd:

Η συνάρτηση Rnd περιέχει ένα όρισμα:

Αριθμός: [Προαιρετικό] Οποιαδήποτε έγκυρη αριθμητική έκφραση.

Για να δημιουργήσετε τυχαία ακέραια τιμή μεταξύ 1 και 10, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα.

12345678

Sub Rnd_Example1 ()Dim rndValue As SingleΤυχαίαΓια i = 1 έως 20rndValue = Int ((Rnd * 10) + 1)Επόμενο iΤέλος υπο

Αυτός ο κώδικας θα δημιουργήσει 20 τυχαίες ακέραιες τιμές μεταξύ 1 και 10.

Για να δημιουργήσετε τυχαία τιμή μεταξύ κατώτερου και άνω ορίου, μπορείτε να χρησιμοποιήσετε την ακόλουθη συνάρτηση.

123	Λειτουργία RndSpecial (επάνω ως ενιαίο, κατώτερο ως ενιαίο) Ως ενιαίοRndSpecial = (πάνω - κάτω) * RndΛειτουργία Τέλους

12345

Sub Rnd_Example2 ()Dim randomValue As SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueΤέλος υπο

Αυτό θα επιστρέψει μια τυχαία τιμή μεταξύ 5 και 30.