Forum

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

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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #41  
Παλιά 11-07-18, 11:40
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.712
Προεπιλογή

Καλημέρα

Σταμάτη, αντικατέστησε στον κώδικα της φόρμας:

Τη γραμμή κώδικα: If Not Nme.Name Like "*Print_Area*" Then

με την: If Not Nme.Name Like "*!Print_Area*" Then

Και στη διαδικασία CreateLinks:

Τη γραμμή κώδικα: If Not nm.Name Like "*Print_Area*" Then

με την: If Not nm.Name Like "*!Print_Area*" Then

Έτσι πιστεύω θα περιοριστούν και οι εύλογες ανησυχίες του Σπύρου για την «τρύπα» του τελεστή Like.

Τελευταία επεξεργασία από το χρήστη kapetang : 12-07-18 στις 17:49. Αιτία: Διόρθωση αβλεψίας
Απάντηση με παράθεση
  #42  
Παλιά 12-07-18, 11:39
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 76
Προεπιλογή

Καλησπέρα! Να με συγχωρείτε για την καθυστέρηση..!
Μόλις ενημέρωσα τις σειρές που μου υπέδειξες Γιώργο!
Σε ευχαριστώ πολύ
Απάντηση με παράθεση
  #43  
Παλιά 12-07-18, 11:50
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.712
Προεπιλογή

Σταμάτη καλημέρα

Στο συνημμένο στο #33 έκανα και κάποιες άλλες αλλαγές στον κώδικα και τη σχεδίαση της φόρμας, ώστε να καλύπτει καλύτερα τις διάφορες περιπτώσεις ονομάτων
Απάντηση με παράθεση
  #44  
Παλιά 12-07-18, 12:58
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 76
Προεπιλογή

Αντέγραψα μόνο τον κώδικα του CreateLinks. Θα ενημερώσω και της φόρμας, ευχαριστώ.
Απάντηση με παράθεση
  #45  
Παλιά 12-07-18, 13:19
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 76
Προεπιλογή

Γιώργο μου κιτρινίζει αυτό

Κώδικας:
Private Sub Lst_NmRng_Click()
    Application.Goto Range(Me.Lst_NmRng.List), False
End Sub
Ανοίγω τον πίνακα, επιλέγω αριστερά στα φύλλα και μετά όταν κλικάρω δεξιά τις περιοχές μου δίνει error
Απάντηση με παράθεση
  #46  
Παλιά 12-07-18, 13:24
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 1.985
Προεπιλογή

Στην γραμμή, βάλε .Value αντί .List
__________________
Spirosgr
spirostsiligiannis@gmail.com
Απάντηση με παράθεση
  #47  
Παλιά 12-07-18, 13:57
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 76
Προεπιλογή

Πολύ σωστά Σπύρο, δικό μου ήταν το λάθος, δεν είχα κάνει εκεί copy paste.
Έχω ολοκληρώσει την ενημέρωση αλλά δε μου εμφανίζει τέρμα δεξιά τις περιοχές όπως στο παράδειγμα του Γιώργου. Τι κάνω λάθος;;

*ΟΚ το βρήκα! τις βλέπω και τις δύο!

Τελευταία επεξεργασία από το χρήστη stam75 : 12-07-18 στις 14:07.
Απάντηση με παράθεση
  #48  
Παλιά 12-07-18, 14:25
Όνομα: Σταμάτης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-09-2015
Μηνύματα: 76
Προεπιλογή

Εγώ προχθές που σας είπα, ότι το έχετε φθάσει σε άλλο επίπεδο από το αρχικό που ήθελα, δεν είχα άδικο!
Επίσης, όσο και να γουστάρετε να ασχολείστε με τις γραμμές κώδικα, ξέρω σας ότι έχω κουράσει με το συγκεκριμένο ζητούμενο, με συγχωρείτε.
Θέλω να ρωτήσω εάν υπάρχει η δυνατότητα, όταν κάνω κλικ στις ονομασίες των φύλλων να μη με οδηγεί στο ανάλογο φύλλο, παρά μόνο εάν επιλέξω κάποια περιοχή στη δεξιά στήλη.
Αυτό φυσικά, μόνο εάν δεν χρειαστούν πολλές αλλαγές! Γιατί ρε παιδιά το ξέρω, όσο βελτιώνετε εσείς, τόσο θα βρίσκεται κάτι.
Είστε κορυφή!
Απάντηση με παράθεση
  #49  
Παλιά 12-07-18, 14:35
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 1.985
Προεπιλογή

Επειδή έχουμε φτάσει τα 50 posts και μάλλον επαναλαμβανόμαστε τώρα,
μια τελευταία...πολύ πρόχειρα.

Πάρε την γραμμή (cut)
Worksheets(Me.Lst_Sh.Value).Activate
από την
Private Sub Lst_Sh_Click()

και βάλτην (paste) πρώτη στην
Private Sub Lst_NmRng_Click()
__________________
Spirosgr
spirostsiligiannis@gmail.com
Απάντηση με παράθεση
  #50  
Παλιά 12-07-18, 14:42
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.712
Προεπιλογή

Καλησπέρα

Φίλε Σταμάτη δες το συνημμένο
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Explorer7AndForm.xlsm (78,6 KB, 13 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη kapetang : 12-07-18 στις 16:01. Αιτία: Αλλαγή συνημμένου, είχα βάλει κάποια παλιά έκδοση
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα 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


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