Λειτουργία VBA - Συμπλήρωση εύρους με τυχαίες τιμές - Παραδείγματα κώδικα VBA

Συμπλήρωση κελιών με τυχαίες τιμές

Ο ακόλουθος κώδικας θα συμπληρώσει ένα δεδομένο εύρος με έναν τυχαίο αριθμό μεταξύ 0 και 1000:

Sub Randomise_Range (Cell_Range As Range) "Θα τυχαιοποιήσει κάθε κελί στο Range Dim Cell" Απενεργοποιήστε τις ειδοποιήσεις οθόνης Application.ScreenUpdating = False For Every Cell In Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub

Ο κωδικός "Application.ScreenUpdating = FALSE" και "Application.ScreenUpdating = TRUE" χρησιμεύει για να απενεργοποιήσετε και να ενεργοποιήσετε τις ειδοποιήσεις οθόνης - κάνοντας τον κώδικα πολύ πιο γρήγορο στην εκτέλεση.

Μπορεί να ρυθμιστεί μέσω ενός συμβάντος κλικ, με την κύρια ρουτίνα να καθορίζει το εύρος:

Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub

Σε αυτήν την περίπτωση, τα κελιά A1: T8000 στο φύλλο 3 συμπληρώνονται με τυχαίους αριθμούς - μόλις γίνει κλικ στο κουμπί εντολών 1.

Κατεβάστε το αρχείο .XLSM εδώ