Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Πλοήγηση διαμέσω DTpicker (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3878-ploigisi-diameso-dtpicker.html)

jockey17 16-10-15 21:34

Πλοήγηση διαμέσω DTpicker
 
1 Συνημμένο(α)
Καλησπέρα στην παρέα του φόρουμ.
(Φίλε Σπύρο, εύχομαι να ‘σαι καλά)
Στο αρχείο που επισύναψα εμφανίζεται μία φόρμα με πεδία «textbox» και πεδία «DateTimePicker». Πατώντας «Enter» από το πρώτο πεδίο «textbox» και εισερχόμενος στο επόμενο πεδίο στο επόμενο πεδίο που είναι «DateTimePicker» μπορώ να:
Α) πατώντας «βέλος επάνω» ή «βέλος κάτω» να αλλάξω την ημέρα και πατώντας «δεξί βέλος» να περάσω στο «κομμάτι» του μήνα, όπου και πάλι πατώντας «βέλος επάνω» ή «βέλος κάτω» να αλλάξω τον μήνα κλπ.
Β) πατώντας «space» (πλήκτρο που επέλεξα εγώ) κάνει «drop down» το πεδίο επιλογής ημερομηνίας όπου σύμφωνα με αυτά που ισχύουν για τέτοιου είδους πεδίο μπορώ να πλοηγηθώ με «βελάκια», «page up /down» ή «CTRL+ page up / CTRL+down» αναλόγως.
Μόλις όμως μετά την παραπάνω πλοήγηση επιλέξω με «Enter» την ημερομηνία που επιθυμώ, τότε ΔΕΝ μπορώ με ένα δεύτερο «Enter» να περάσω στο επόμενο πεδίο.
Έχει κάποιος να προτείνει κάτι, πώς να επαναλάβω το «if KeyCode = 13 Then
SendKeys "{TAB}", True» δηλαδή αφού επιλέξω ημερομηνία με τον προαναφερθέν τρόπο το πρώτο «enter» να σημάνει επιλογή της ημερομηνίας και το αμέσως επόμενο «enter» να σημάνει την μετάβαση στο (όποιο) επόμενο πεδίο.

Ευχαριστώ εκ των προτέρων για οποιαδήποτε απάντηση / βοήθεια.
Υ.Γ. Δεν θα ήθελα να ρωτήσει κανείς γιατί θέλω να το κάνω αυτό, για να μου απαντήσει. Απλά «δοκιμάζω» διάφορους συνδυασμούς πλήκτρων. Εάν δεν γίνεται, τότε απλά δε γίνεται. Εάν γίνεται, παρακαλώ για μία τεκμηριωμένη απάντηση.

Ευχαριστώ και πάλι, φιλικά

Δημήτρης

Spirosgr 16-10-15 21:43

Δημήτρη καλησπέρα.
Χαίρομαι κι εγώ που σε βλέπω και πάλι μαζί μας...

kapetang 17-10-15 11:42

1 Συνημμένο(α)
Καλησπέρα

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

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

jockey17 17-10-15 15:03

Ευχαριστώ πολύ Γιώργο.
Να είσαι καλά, είναι αυτό που έψαχνα.
Υπέροχα!


Η ώρα είναι 11:33.

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


Search Engine Optimization by vBSEO 3.3.2