Πίνακας περιεχομένων
Αυτό το σεμινάριο θα δείξει πώς να εργάζεστε με τυχαίους αριθμούς στο VBA.
Λειτουργία RND
Η συνάρτηση RND δημιουργεί έναν αριθμό που είναι μεταξύ 0 και 1. Η σύνταξη της συνάρτησης RND είναι:
Rnd ([Αριθμός]) όπου:
- Αριθμός (Προαιρετικός)- Αυτό είναι προαιρετικό και αν 0 η συνάρτηση επιστρέφει τον επόμενο τυχαίο αριθμό που δημιουργείται. Εάν είναι κενό, χρησιμοποιείται η προεπιλογή> 0.
123 | Sub RndNum ()MsgBox Rnd ()Τέλος υπο |
Δημιουργία τυχαίου αριθμού σε VBA
Για να δημιουργήσετε έναν τυχαίο αριθμό μεταξύ δύο τιμών, πρέπει να χρησιμοποιήσετε τη συνάρτηση RND σε συνδυασμό με τη συνάρτηση INT (ακέραιη συνάρτηση) χρησιμοποιώντας τον ακόλουθο γενικό τύπο:
- Int (κατώτατο όριο + Rnd * (άνω οριακό - κατώτερο + 1))
Έτσι, για να δημιουργήσετε έναν τυχαίο αριθμό μεταξύ 2 και 30, θα χρησιμοποιούσατε τον ακόλουθο κώδικα:
12345678 | Sub GeneratingARandomNumber ()Dim randomNumber As IntegerrandomNumber = Int (2 + Rnd * (30 - 2 + 1))Debug.Print randomNumberΤέλος υπο |