14-02-12, 00:52
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Φίλε Τάσο,
Αν κατάλαβα καλά θέλεις κάθε φορά που ανοίγεις το Βιβλίο να αυξάνει ο αριθμός σε κάποιο κελί κατά 1.
Άνοιξε τον VBE (Alt + F11)
1) ΔΙπλό κλικ στο Αυτό_το_βιβλίο_εργασίας (This_Workbook) στο αριστερό μέρος της οθόνης
2) Επέλεξε Workbook αντι General
3) Επέλεξε Open στο διπλανό όπως δείχνει η συνημμένη εικόνα
4) κάνε επικόλληση του παρακάτω κώδικα
Πριν το βήμα 4 βεβαιώσου ότι στο πάνω μέρος του VBE γράφει "Αυτό_το_βιβλίο_εργασίας (code)" Κώδικας: Private Sub Workbook_Open()
ThisWorkbook.Sheets(1).Range("B2").Value = ThisWorkbook.Sheets(1).Range("B2").Value + 1
End Sub
ThisWorkbook.Sheets(1).Range("B2") σημαίνει το κελί Β2 στο πρώτο φύλλο του βιβλίου.
Πες μας αν έγινε
Θανάσης
|