08-05-12, 20:21
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Ένας τρόπος είναι ο πιο κάτω
Ονομάζουμε την περιοχή Β19:Β195 area
Αριθμούμε Α19:Α195 από το 1 έως το 177
κώδικας σε Module
Sub Macrorandnames()
Range("A1").FormulaR1C1 = "=RANDBETWEEN(1,177)"
End Sub
οι τύποι στα κελιά Α1, Α2
A1 =RANDBETWEEN(1;177)
A2 =INDEX(area;A1)
ή όπου αλλού θέλουμε
Φτιάχνουμε ένα κουμπί και του περνάμε την εντολή
|