11-09-15, 19:16
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Άλλαξε τις ρουτίνες με αυτήν την μορφή: Κώδικας: Private Sub CommandButton1_Click()
Φύλλο1.Activate
End Sub
όπου Φύλλο1,2,3...12 κωδικό όνομα φύλλου. *Για τους φίλους με Αγγλική γλώσσα Sheet1,2,3...12 Σημειώσεις:
1
Για να επιτρέπεται, με ανοιχτή φόρμα να πληκτρολογείς,
πήγαινε ιδιότητες και κάνε την αλλαγή, που βλέπεις στην εικόνα 1.
2
Μπορείς αντί για το πλήκτρο, που ανοίγει την φόρμα,
εφ' όσον προφανώς θα υπάρχει και στα 12 φύλλα,
για να μην έχεις 12 πλήκτρα να βάλεις την εντολή στην κορδέλα, (στην γρήγορη) εικόνα 2.
|