Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 25-03-16, 14: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.402
Προεπιλογή

Καλημέρα.
Αντέγραψε τον παρακάτω κώδικα, στο φύλλο (συμβάν Change)
Όταν στο a1 κελί, πληκτρολογούμε ένα όνομα φύλλου, από τα υπάρχοντα στο βιβλίο,
το «βλέπει» ο κώδικας και το ενεργοποιεί...

Υποθέτουμε ότι:
1
Το φύλλο είναι το 1ο στην σειρά.
Αν όχι αλλάζουμε στον κώδικα (κόκκινο) τον αριθμό 1, με όποιο θέλουμε.
2
Το κελί που θα πληκτρολογούμε το όνομα φύλλου, είναι το a1.
Αν όχι αλλάζουμε στον κώδικα (μπλε) τις συντεταγμένες του κελιού που θέλουμε.


Κώδικας:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strSh As String
    strSh = Sheets(1).Cells(1, 1)
    If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
    On Error Resume Next
    Sheets(strSh).Activate
End Sub
Σημειώσεις:
1
Δεν λειτουργεί, το Undo.
2
Αφορά, το «φανερό» (tab) και όχι το κωδικό όνομα φύλλου.
3
Μπορούμε, να έχουμε στο a1 και μια λίστα, (DropDown)
με τα ονόματα φύλλων, αντί να τα πληκτρολογούμε.
Απάντηση με παράθεση