Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > Ενεργοποιηση φυλλου εργασιας απο τιμη σε κελι

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-03-16, 14:43
Όνομα: δημητρης
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-05-2015
Μηνύματα: 5
Προεπιλογή Ενεργοποιηση φυλλου εργασιας απο τιμη σε κελι

Καλησπερα
Θα ηθελα να ρωτησω πως μπορει να γινει ενεργο ενα φυλλο εργασιας διαβαζωντας το ονομα του απο ενα κελι.
Δηλαδη αν στο κελι Α1 η τιμη ειναι 1 τοτε να γινεται ενεργο το φυλλο εργασιας με ονομα 1
Απάντηση με παράθεση
  #2  
Παλιά 25-03-16, 14:04
Το avatar του χρήστη 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)
με τα ονόματα φύλλων, αντί να τα πληκτρολογούμε.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Excel07] ΑΠΟΘΗΚΕΥΣΗ ΜΕΡΟΥΣ ΦΥΛΛΟΥ ΕΡΓΑΣΙΑΣ ΣΕ CVS ΜΕ BUTTON smasak Excel - Ερωτήσεις / Απαντήσεις 8 01-12-15 13:13
[VBA] Δημιουργία Φύλλου Εργασίας με κώδικα othonas Excel - Ερωτήσεις / Απαντήσεις 3 17-05-13 08:14
[Συναρτήσεις] Ενημέρωση μιας λίστας από μια άλλη λίστα ενός άλλου φύλλου εργασίας labpanag Excel - Ερωτήσεις / Απαντήσεις 2 06-12-12 17:14
Διαδρομή βιβλίου / όνομα φύλλου εργασίας σε κελί. Tasos Κείμενο 0 21-09-11 14:34
[VBA] Δημιουργία Μορφοποιημένου Φύλλου Εργασίας με κώδικα ΤΖΙΜΗΣ Excel - Ερωτήσεις / Απαντήσεις 12 03-06-11 15:29


Η ώρα είναι 09:31.