Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Excel07] Δημιουργία κουμπιού

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 07-07-18, 17:20
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 91
Προεπιλογή Δημιουργία κουμπιού

Καλησπέρα στο φόρουμ!
Έχω 2 βιβλία excel στα οποία δουλεύω στο γραφείο.
Σκέφτομαι να τα κάνω ένα για να είναι όλα τα δεδομένα της δουλειάς μου μαζί.
Η ερώτησή μου είναι η εξής, μπορώ να έχω ένα κουμπάκι (βασικά το ίδιο κουμπάκι) σε όλα τα φύλλα του βιβλίου; Ώστε όταν το πατάω να μου εμφανίζει σε λίστα όλες τις ονομασίες φύλλων του βιβλίου (αυτό γνωρίζω ότι είναι εύκολο με δεξί κλικ στα βελάκια κάτω αριστερά).
Όμως, σκέφτομαι πως θα μου ήταν πολύ πιο χρήσιμο πατώντας το κουμπί, να ανοίγει ένα παράθυρο το οποίο να περιλαμβάνει την ονομασία του κάθε φύλλου σε μία σειρά και κάτω από την ονομασία του κάθε φύλλου να έχω σε λίστα όλες τις περιοχές που έχω ονομάσει και κλικάροντας επάνω τους να με οδηγούν στον προορισμό.
Πόσο εφικτό είναι αυτό;
Ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 08-07-18, 13:08
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.800
Προεπιλογή

Καλησπέρα

Σταμάτη, δες μια πρόταση στο συνημμένο.

1) Στο Module1 έχω προσθέσει τη διαδικασία CreateLinks

2) Στο βιβλίο έχω προσθέσει το φύλλο Links.

3) Στα άλλα φύλλα πρόσθεσα ένα κουμπί.

Πατώντας το κουμπί εκτελείται ο κώδικας της διαδικασίας CreateLinks, ο οποίος κάνει ενεργό το φύλλο Links και το συμπληρώνει με υπερσυνδέσεις προς τις περιοχές των ονομάτων.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Explorer.xlsm (31,6 KB, 30 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 08-07-18, 14:38
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 91
Προεπιλογή

Καλησπέρα Γιώργο και σε ευχαριστώ πολύ για την πρόταση σου και τον χρόνο που διέθεσες.
Θα το δουλεύω στον υπολογιστή αργότερα και θα σε ενημερώσω.
Απάντηση με παράθεση
  #4  
Παλιά 08-07-18, 17:30
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 91
Προεπιλογή

Γιώργο πολύ ωραία η λύση που προτείνεις σε ευχαριστώ πολύ. Υπάρχει περίπτωση να δημιουργούνται ως σύνδεσμοι οι ονομασίες των περιοχών κι όχι τα διακριτικά των στηλών/σειρών;
Δηλαδή στο φύλλο Links αντί για A1:C11 να παίρνω Name1;
Εκτός κι αν θέλει αρκετή δουλίτσα όποτε το αφήνουμε.
Και πάλι σε ευχαριστώ πολύ
Απάντηση με παράθεση
  #5  
Παλιά 08-07-18, 18:17
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.800
Προεπιλογή

Σταμάτη, δες το συνημμένο.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Explorer2.xlsm (31,5 KB, 18 εμφανίσεις)
Απάντηση με παράθεση
  #6  
Παλιά 08-07-18, 18:42
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 91
Προεπιλογή

Μπράβο Γιώργο άψογο είναι τέλειο! Σε υπέρ ευχαριστώ!
Απάντηση με παράθεση
  #7  
Παλιά 08-07-18, 18:58
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.800
Προεπιλογή

Να είσαι καλά!
Απάντηση με παράθεση
  #8  
Παλιά 09-07-18, 12:42
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 91
Προεπιλογή

Γεια σας και πάλι!
Για το συγκεκριμένο ζητούμενο που έδωσε πολύ χρήσιμη λύση ο Γιώργος βρήκα κι άλλη εκδοχή στην οποία κάνει ακριβώς αυτό που ζητούσα αρχικά.
Όμως, όταν αντιγράφω τον κώδικα στο κανονικό βιβλίο μου και πάω να δουλέψω με το κουμπί, όταν κάνω κλικ σε ένα από τα φύλλα του βιβλίου μου πετάει

Runtime error '1004':
Method 'Range' of object '_Global' failed

και όταν πατάω debug
μου δείχνει το παρακάτω (με κίτρινο φόντο τα κόκκινα γράμματα.)

Κώδικας:
Private Sub lbxSheets_Click()
   Dim Nme As Name
   Me.lbxNamedRanges.Clear
   For Each Nme In ThisWorkbook.Names
      If Range(Nme).Parent.Name = Me.lbxSheets.Value Then Me.lbxNamedRanges.AddItem Nme.Name
   Next Nme
End Sub
Γνωρίζει κάποιος τι ακριβώς συμβαίνει;
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Παράδειγμα.xlsm (26,4 KB, 11 εμφανίσεις)
Απάντηση με παράθεση
  #9  
Παλιά 09-07-18, 14:12
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.097
Προεπιλογή

Πήγαινε πίσω στην vba, πάτα το κουμπί της εικόνας και πες μου ποιές βιβλιοθήκες
είναι ενεργοποιημένες.
Συνημμένα Thumbnails
Δημιουργία κουμπιού-screenshot_1.jpg  
__________________
Spirosgr
spirostsiligiannis@gmail.com
Απάντηση με παράθεση
  #10  
Παλιά 09-07-18, 14:18
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 91
Προεπιλογή

Μόνο όσα είναι επιλεγμένα στην φωτογραφία!
Συνημμένα Thumbnails
Δημιουργία κουμπιού-katagrafi.jpg  
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] Κλείδωμα κουμπιού σε φόρμα ggreg75 Access - Ερωτήσεις / Απαντήσεις 2 25-07-17 12:38
[ Φόρμες ] Ενεργοποίηση-Απενεργοποίηση κουμπιού Χρήστος Access - Ερωτήσεις / Απαντήσεις 2 26-07-13 12:42
[VBA] Δημιουργία κουμπιού για εκτέλεση συνάρτησης choulio19 Excel - Ερωτήσεις / Απαντήσεις 9 09-05-12 18:37
[ Φόρμες ] Εναλλαγή λεζάντας κουμπιού artchrist73 Access - Ερωτήσεις / Απαντήσεις 1 13-06-11 20:50
[Γενικά] Δημιουργία κουμπιού και δημιουργία νέας λίστας sethii Excel - Ερωτήσεις / Απαντήσεις 3 31-03-11 07:52


Η ώρα είναι 06:02.