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/857-eisagogi-dedomenon-me-userform.html)

Flashgordon61 30-11-10 23:57

Εισαγωγή δεδομένων με UserForm
 
1 Συνημμένο(α)
Καλησπέρα σε όλους τους φίλους του Forum
Ήθελα να κάνω ένα αρχείο (Δελτίο Παραγγελίας) που να το ενημερώνω χωρίς καν να αγγίζω το πληκτρολόγιο (Πολύ τεμπέλικο αρχείο).
Χρησιμοποιώντας λοιπόν τον κώδικα από το αρχείο DatePicker.xls που ανέβηκε σε προηγούμενο θέμα (http://www.ms-office.gr/forum/excel-....html#post1278) και με ότι ήξερα από το Excel τα κατάφερα.
Αρχίζοντας να το χρησιμοποιώ διαπίστωσα ότι είναι πολλά τα κλικ (Είπαμε για τεμπέλικο αρχείο).
Αποφάσισα λοιπόν να φτιάξω ένα UserForm (Φόρμα εισαγωγής δεδομένων) για περισσότερη τεμπελιά.
Με ότι έμαθα από το Forum για την VBA και ένα σχετικό βιβλίο (έβγαλα τα ματάκια μου) έφτιαξα το επισυναπτόμενο αρχείο.
Οι ερωτήσεις :
Ερώτηση 1η
Πως μπορεί σε συγκεκριμένα TexBox του UserForm να μην πληκτρολογώ την ημερομηνία αλλά να την επιλέγω από ένα αναδυόμενο Calendar όπως συμβαίνει στο φύλο εργασίας (Order Form) στην Περιοχή Β4:C33
Ερώτηση 2η
Το Δελτίο Παραγγελίας (Order Form) έχει 30 γραμμές.
Όταν φτάσουμε στην τελευταία γραμμή (33) ο κώδικας έχει πρόβλημα.
Πώς μπορεί, όταν γίνει και η τριακοστή εγραφή ο κώδικας να εγείρει ένα MsgBox που να μας πληροφορεί για την πληρότητα του Δελτίου Παραγγελίας και να μας προτρέπει με Yes/No να εκτυπώσουμε το Δελτίο Παραγγελίας.
& Ερώτηση 3η
Το κελί D2 είναι μορφοποιημένο υπό όρους και με γραμματοσειρά Wingdings με αποτέλεσμα κάποια Symbols.
Πως μπορεί το συγκεκριμένο αποτέλεσμα με την συγκεκριμένη μορφοποίηση να φαίνεται στο UserForm.
Στο επισυναπτόμενο αρχείο περιγράφονται αναλυτικά οι ερωτήσεις.
Περιμένοντας βοήθεια απο τους γκουρού του Forum μας και ζητώντας συγγνώμη για την φλυαρία μου
Σας ευχαριστώ όλους εκ των προτέρων

Γιώργος

Tasos 02-12-10 12:54

1 Συνημμένο(α)
Καλησπέρα Γιώργο!

Σε Userform μπορείς να χρησιμοποιήσεις το Στοιχείο Microsoft DateTime Picker (βλ. συνημμένο παράδειγμα)
που κάνει τη δουλειά του καλύτερα από οτιδήποτε άλλο.

Το στοιχείο αυτό περιέχεται μαζί με το „Microsoft Month view“ στο αρχείο MSCOMCTL.OCX
και αν υπάρχει στην εγκατάσταση των Windows βρίσκεται συνήθως στο φάκελο C:\Windows\System32.

Αν δεν υπάρχει στην εγκατάσταση των Windows, μπορεί να το πάρει κανείς
από το συνημμένο και να το εγκαταστήσει.

Η εγκατάσταση του MSCOMCTL.OCX

  1. Αντιγραφή του στοιχείου στο φάκελο: C:\Windows\System32.
  2. Kαταχώρηση του στοιχείου στο μητρώο των Windows
Για να επιτευχθεί το δεύτερο ανοίγουμε το παράθυρο διαλόγου εκτέλεσης (Συνδυασμός πλήκτρων: Win (Windows) και R )
και πληκτρολογούμε: regsvr32 MSCOMCTL.OCX

Τα συνημμένο *.xls θα τρέξει κανονικά μόνο αν το αρχείο MSCOMCTL.OCX είναι
καταχωρημένο στο μητρώο των Windows.

Στο συνημμένο εφαρμόζονται και κάποιες άλλες λύσεις/ιδέες σχετικές με το ζητούμενο σου.

Δες τις και αν χρειαστείς κάτι ..εδώ είμαστε!

Φιλικά

Τάσος

Flashgordon61 02-12-10 21:19

Καλησπέρα

Τάσο σ΄εχαριστώ πολύ.
Το στοιχείο Microsoft DateTime Picker καθώς και το Microsoft Month view, υπήρχε στο ToolBox και έτσι δεν χρειάστηκε να γίνει εγκατάσταση του MSCOMCTL.OCX.

Οι ερωτήσεις καλύφθηκαν πλήρως και το αρχείο δουλεύει απόλυτα.

Κάποια περεταίρω πράγματα που θέλω θα προσπαθήσω να τα κάνω μόνος μου.
Αν δυσκολευτώ επανέρχομαι.

Και πάλι ευχαριστώ.

Γιώργος


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

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


Search Engine Optimization by vBSEO 3.3.2