Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 09-07-19, 11:04
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Καλημέρα
Η πρόταση μου για την περίπτωση, είναι να αποφύγουμε
την ενσωματωμένη =RandBetween() και την χρήση του F9
και να βάλουμε σε μια Module, ένα μικρό κώδικα, που κάνει την δουλειά...

Στον κώδικα, θα συμπληρώσουμε κάποιες σταθερές, βασικές ή optional
και θα μπορούμε να έχουμε τα αποτελέσματα, οπουδήποτε θέλουμε.

Ο κώδικας έχει δυνατότητα, να αποθηκεύει τυχαία αποτελέσματα
από δεδομένο εύρος τιμών (Integer) αλλά και ημερομηνία ή και ώρα
που παρήγαγε τον τυχαίο αριθμό.

Για να ενεργοποιήσετε όλες τις δυνατότητες,
ενεργοποιήστε τις Optional Consts και
τις γραμμές του κώδικα, που είναι απενεργοποιημένες.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Keep Rand Values.xlsm (23,5 KB, 15 εμφανίσεις)
Απάντηση με παράθεση