07-12-15, 05:03
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλησπέρα
Σταμάτη,
υπάρχει περίπτωση, να έχεις «ξεχάσει» το κουμπί "Dising Mode" (*βλέπε εικόνα)
«αναμμένο» κι έτσι δεν λειτουργεί το active x.
Αν δεν είναι έτσι...τότε:
Στο φύλλο, άνοιξε το συμβάν του διπλού κλικ και
βάλε τον κώδικα μέσα εκεί, αφού συμπληρώσεις και τα πιο κάτω... Κώδικας: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'*εδώ τα dim
If Intersect(Target, Sheet1.Range("d2")) Is Nothing Then Exit Sub
'*εδώ ο κώδικας
Cancel = True
'*εδώ το μνμ από msgbox
End Sub
Διπλό κλικ στο D2 φύλλο Πρώτο, εξαπολύει το συμβάν... **Μπορείς να επιλέξεις όποιο κελί θέλεις στην θέση του d2
Όπου Sheet1 το κωδικό όνομα του φύλλου...Για Ελληνικά Φύλλο1 ή όποιο άλλο φύλλο...
|