Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Επιλογή μήνα μέσω Userform (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3827-epilogi-mina-meso-userform.html)

gfevran 11-09-15 16:52
Επιλογή μήνα μέσω Userform
 
1 Συνημμένο(α)
Γεια σας παιδιά,
μέσω μιας Userform με 12 κουμπιά αντίστοιχων μηνών επιλέγω,
σε ποιο μήνα θέλω να μεταφερθώ μέχρι εδώ καλά, όμως όταν π.χ.,
είμαι στον Ιανουάριο και επιλέξω οποιοδήποτε μήνα αυτό που πληκτρολογώ,
στο μήνα που μεταφέρθηκα γράφεται στο μήνα Ιανουάριο,
Δείτε το συνημμένο αρχείο,
Παρακαλώ μια βοήθεια.
Ευχαριστώ.

Spirosgr 11-09-15 19:16
2 Συνημμένο(α)
Άλλαξε τις ρουτίνες με αυτήν την μορφή:

Κώδικας:
Private Sub CommandButton1_Click()
    Φύλλο1.Activate
End Sub
όπου Φύλλο1,2,3...12 κωδικό όνομα φύλλου.
*Για τους φίλους με Αγγλική γλώσσα Sheet1,2,3...12

Σημειώσεις:
1
Για να επιτρέπεται, με ανοιχτή φόρμα να πληκτρολογείς,
πήγαινε ιδιότητες και κάνε την αλλαγή, που βλέπεις στην εικόνα 1.
2
Μπορείς αντί για το πλήκτρο, που ανοίγει την φόρμα,
εφ' όσον προφανώς θα υπάρχει και στα 12 φύλλα,
για να μην έχεις 12 πλήκτρα να βάλεις την εντολή στην κορδέλα, (στην γρήγορη) εικόνα 2.

gfevran 12-09-15 08:11
Γεια σου Σπύρο,
Σ' Ευχαριστώ πολύ.

Με εκτίμηση
Γιώργος

Spirosgr 12-09-15 09:26
Να ' σαι καλά.

Μια σημείωση για προχωρημένα...
Κανονικά, δεν είναι απόλυτα σωστός προγραμματισμός, (χωρίς να δημιουργεί λάθος),
σε κάποιο έργο, να έχουμε 12 εντολές, οι οποίες,
είναι πανομοιότυπες και στην περίπτωσή μας,
το μόνο που κάνουν, είναι να επιλέγουν φύλλα.
Αντ' αυτού, δημιουργούμε μια Class Module και μια απλή Module,
της οποίας ο ελάχιστος και ένας μόνο κώδικας «παραπέμπει» στην κλάση.

gfevran 12-09-15 12:00
Γεια σου και πάλι Σπύρο,
Σ' Ευχαριστώ για όλα αυτό θα πει για μένα βοήθεια,
με επαγγελματική συνείδηση.
Θα ήθελα λίγο παραπάνω τη βοήθεια σου,
γιατί δεν ξέρω πως μπορώ να το κάνω αυτό,
Ν' σε πάντα καλά.

kapetang 12-09-15 19:12
1 Συνημμένο(α)
Καλησπέρα

Θα μπορούσαμε να συντομεύσουμε τον κώδικα, αν χρησιμοποιήσουμε, στη UserForm, ένα ListBox, στη θέση των κουμπιών.

Δες το συνημμένο.

Φιλικά/Γιώργος

gfevran 13-09-15 09:28
Καλημέρα Γιώργο,
πολύ ωραία η πρόταση σου, θα ήθελα λίγη βοήθεια ακόμη,
πως δημιουργούμε το κουμπί και το εικονίδιο στη quick Access ToolBar
Σ' Ευχαριστώ.
Φιλικά,
Γιώργος

kapetang 13-09-15 10:03
Καλημέρα

Γιώργο, ο τρόπος δημιουργίας φαίνεται στις εικόνες που ανέβασε ο Σπύρος.

Αναλυτικότερα:

1) Κάνουμε κλικ στο κουμπί με το βέλος (Customize …) της Quick Access ToolBar και από το μενού επιλέγουμε More Commands.

2) Στο παράθυρο που θα ανοίξει στο πάνω δεξιά σύνθετο πλαίσιο επιλέγουμε for Months4.xlsm.

3)Στο σύνθετο πλαίσιο Choose Commands From (περίπου στο μέσο και πάνω) επιλέγουμε macros.

4) Από τις μακροεντολές του βιβλίου, που θα εμφανιστούν, επιλέγουμε την κατάλληλη (OpenUserFormMonth).

5) Κάνουμε κλικ στο κουμπί Add και στη συνέχεια στο OK.

Φιλικά/Γιώργος

gfevran 13-09-15 12:12
Σ' Ευχαριστώ Γιώργο,
Ν' σε πάντα καλά.

Φιλικά,
Γιώργος


Η ώρα είναι 16:08.

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


Search Engine Optimization by vBSEO 3.3.2