Forum

Forum (https://www.ms-office.gr/forum/)
-   Visual Basic for Applications (VBA) (https://www.ms-office.gr/forum/visual-basic-applications-vba/)
-   -   Ενεργοποιηση φυλλου εργασιας απο τιμη σε κελι (https://www.ms-office.gr/forum/visual-basic-applications-vba/4093-energopoiisi-fylloy-ergasias-apo-timi-se-keli.html)

dimtsam 10-03-16 14:43

Ενεργοποιηση φυλλου εργασιας απο τιμη σε κελι
 
Καλησπερα
Θα ηθελα να ρωτησω πως μπορει να γινει ενεργο ενα φυλλο εργασιας διαβαζωντας το ονομα του απο ενα κελι.
Δηλαδη αν στο κελι Α1 η τιμη ειναι 1 τοτε να γινεται ενεργο το φυλλο εργασιας με ονομα 1

Spirosgr 25-03-16 14:04

Καλημέρα.
Αντέγραψε τον παρακάτω κώδικα, στο φύλλο (συμβάν 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)
με τα ονόματα φύλλων, αντί να τα πληκτρολογούμε.


Η ώρα είναι 10:53.

Ms-Office.gr - ©2000 - 2020, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2