Πώς να προσθέσετε πλαίσια διαλόγου σε μακροεντολές Excel με επεξεργαστή της Visual Basic - dummies

Μπορείτε να χρησιμοποιήσετε τη λειτουργία InputBox για να προσθέσετε πλαίσια διαλόγου στις μακροεντολές του Excel 2013. Όταν εκτελείτε τη μακροεντολή, αυτή η συνάρτηση της Visual Basic αναγκάζει το Excel να εμφανίσει ένα παράθυρο διαλόγου εισαγωγής όπου μπορείτε να εισάγετε όποιο τίτλο έχει νόημα για το νέο φύλλο εργασίας. Στη συνέχεια, η μακροεντολή τοποθετεί αυτό το κείμενο στο τρέχον κελί και μορφοποιεί αυτό το κείμενο, αν αυτό είναι αυτό που έχετε εκπαιδευτεί στη μακροεντολή σας να κάνετε στη συνέχεια.

Για να δείτε πόσο εύκολο είναι να χρησιμοποιήσετε τη λειτουργία InputBox για να προσθέσετε αλληλεπίδραση σε μια κατά τα άλλα σταθερή μακροεντολή, ακολουθήστε τα βήματα για τη μετατροπή της μακροεντολής Company_Name που εισάγει το κείμενο "Mind Over Media" σε ένα κείμενο που σας ζητάει πραγματικά το όνομα που θέλετε να εισαγάγετε. Η συνάρτηση InputBox χρησιμοποιεί την ακόλουθη σύνταξη:

InputBox (prompt [title] [default] [xpos] [ypos] [helpfile, context])

> απαιτείται το όρισμα με τα υπόλοιπα επιχειρήματα να είναι προαιρετικά. Το όρισμα καθορίζει το μήνυμα που εμφανίζεται στο παράθυρο διαλόγου Εισαγωγή, προτρέποντας τον χρήστη να εισαγάγει μια νέα τιμή (ή, σε αυτή την περίπτωση, ένα νέο όνομα εταιρείας). Το όρισμα προτροπή

μπορεί να είναι μέχρι και 1, 024 χαρακτήρες. Αν θέλετε το μήνυμα να εμφανιστεί σε διαφορετικές γραμμές μέσα στο παράθυρο διαλόγου, εισάγετε στο κείμενο τις λειτουργίες Chr (13) και Chr (10) (για να εισαγάγετε μια επιστροφή και μια γραμμή τροφοδοσίας στο μήνυμα, αντίστοιχα).

Το προαιρετικό

τίτλο

ορίζει το κείμενο που θα εμφανιστεί στη γραμμή τίτλου του πλαισίου διαλόγου Εισαγωγή. Εάν δεν καθορίσετε ένα όρισμα τίτλο , το Excel εμφανίζει το όνομα της εφαρμογής στη γραμμή τίτλου. Το προαιρετικό προεπιλεγμένο όρισμα καθορίζει την προεπιλεγμένη απόκριση που εμφανίζεται αυτόματα στο πλαίσιο κειμένου στο κάτω μέρος του πλαισίου διαλόγου Εισαγωγή. Αν δεν καθορίσετε ένα προεπιλεγμένο όρισμα, το πλαίσιο κειμένου είναι κενό στο παράθυρο διαλόγου Εισαγωγή.

xpos

και

ypos καθορίζουν την οριζόντια απόσταση από το αριστερό άκρο της οθόνης προς την αριστερή άκρη του πλαισίου διαλόγου και την κατακόρυφη απόσταση από την επάνω άκρη της οθόνης μέχρι το επάνω άκρο του πλαισίου διαλόγου. Αν δεν καθορίσετε αυτά τα επιχειρήματα, το Excel κεντράρει το παράθυρο διαλόγου εισαγωγής οριζόντια και το τοποθετεί περίπου το ένα τρίτο του ύψους της οθόνης κατακόρυφα. Τα προαιρετικά παράθυρα helpfile και

καθορίζουν το όνομα του προσαρμοσμένου αρχείου βοήθειας που θα θέσετε στη διάθεση του χρήστη για να εξηγήσει τις λειτουργίες του πλαισίου διαλόγου εισαγωγής καθώς και τον τύπο δεδομένων που δέχεται. Ως μέρος της διαδικασίας δημιουργίας ενός προσαρμοσμένου αρχείου βοήθειας για χρήση στο σύστημα Βοήθειας του Excel, εκχωρείτε το θέμα στον αριθμό περιεχομένου που είναι κατάλληλος για το περιεχόμενό του, το οποίο στη συνέχεια ορίζεται ως το όρισμα πλαίσιο Λειτουργία InputBox.

Όταν καθορίζετε ένα αρχείο βοήθειας και ένα πλαίσιο πλαίσιο για αυτήν τη λειτουργία, το Excel προσθέτει ένα κουμπί Βοήθεια στο προσαρμοσμένο παράθυρο διαλόγου Εισαγωγή στο οποίο μπορούν να κάνουν κλικ οι χρήστες για να αποκτήσουν πρόσβαση στο αρχείο προσαρμοσμένης βοήθειας στο παράθυρο "Βοήθεια".

Για να μπορέσετε να προσθέσετε τη γραμμή κώδικα στη μακροεντολή με τη συνάρτηση InputBox, θα πρέπει να βρείτε τη θέση στις εντολές της Visual Basic, όπου πρέπει να πάει η γραμμή. Για να εισαγάγετε το κείμενο Mind Over Media στο ενεργό κελί, η μακροεντολή Company_Name χρησιμοποιεί την ακόλουθη εντολή Visual Basic: ActiveCell. FormulaR1C1 = "Mind Over Media" Για να προσθέσετε διαδραστικότητα στη μακροεντολή, πρέπει να τοποθετήσετε τη λειτουργία InputBox σε μια γραμμή στο παράθυρο Code ακριβώς πάνω από αυτό το ActiveCell. FormulaR1C1, ως εξής:

Τοποθετήστε το σημείο εισαγωγής στο παράθυρο Code στην αρχή του ActiveCell. FormulaR1C1 και πατήστε Enter για να εισαγάγετε μια νέα γραμμή.

Τώρα που έχετε προσθέσει μια νέα γραμμή, θα πρέπει να μετακινήσετε το σημείο εισαγωγής σε αυτό.

Πατήστε το πλήκτρο επάνω βέλους για να τοποθετήσετε το σημείο εισαγωγής στην αρχή της νέας γραμμής.

1. Στη γραμμή αυτή, θέλετε να δημιουργήσετε μια μεταβλητή που παρέχει το όρισμα

   prompt

2. στη λειτουργία InputBox. Για να το κάνετε αυτό, δηλώνετε το όνομα της μεταβλητής (InputMsg σε αυτή την περίπτωση) που ακολουθείται από την τρέχουσα εγγραφή της. Φροντίστε να επισυνάψετε το κείμενο του μηνύματος στη δεξιά πλευρά του σημείου ισότητας σε κλειστό ζεύγος διπλών εισαγωγικών.

   Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή InputMsg στη γραμμή 8 και, στη συνέχεια, πατήστε το πλήκτρο Enter για να ξεκινήσετε μια νέα γραμμή 9: InputMsg = "Εισάγετε το όνομα ή τον τίτλο της εταιρείας για αυτό το φύλλο εργασίας στο παρακάτω πλαίσιο κειμένου κάντε κλικ στο κουμπί OK: " Στη συνέχεια, δημιουργείτε μια μεταβλητή με την ονομασία InputTitle που παρέχει το προαιρετικό όρισμα

3. τίτλου

   για τη λειτουργία InputBox. Αυτή η μεταβλητή καθιστά το κείμενο "Τίτλος υπολογιστικού φύλλου" εμφανίζεται ως ο τίτλος του πλαισίου διαλόγου Εισαγωγή. Και πάλι, φροντίστε να επισυνάψετε το όνομα της γραμμής τίτλου του πλαισίου διαλόγου στα εισαγωγικά.
   

   Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή InputTitle στη γραμμή 9 και στη συνέχεια πατήστε Enter για να εισαγάγετε μια νέα γραμμή 10: InputTitle = "Τίτλος υπολογιστικού φύλλου" Στη συνέχεια, δημιουργήστε ένα όνομα μεταβλητής DefaultText που παρέσχε το προαιρετικό

4. προεπιλεγμένο

   όρισμα στη λειτουργία InputBox. Αυτή η μεταβλητή κάνει το κείμενο "Mind Over Media" να εμφανίζεται ως η προεπιλεγμένη καταχώρηση στο πλαίσιο κειμένου στο κάτω μέρος του πλαισίου διαλόγου "Εισαγωγή ονόματος εταιρείας".
   

   Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή DefaultText στη γραμμή 10 και στη συνέχεια πατήστε Enter για να εισαγάγετε μια νέα γραμμή 11: DefaultText = "Mind Over Media" Στη συνέχεια, δημιουργήστε μια τελική μεταβλητή με όνομα CompanyName η λειτουργία InputBox ως καταχώρηση (χρησιμοποιώντας τις μεταβλητές InputMsg, InputTitle και DefaultText που μόλις δημιουργήσατε) και αποθηκεύει τα αποτελέσματα αυτής της λειτουργίας.

5. Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή SpreadsheetTitle που χρησιμοποιεί τη λειτουργία InputBox στη γραμμή 11:

   SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)
   

   Τέλος, αντικαθιστάτε την τιμή " στο ActiveCell.Η ιδιότητα FormulaR1C1 με τη μεταβλητή SpreadsheetTitle (η τιμή της οποίας καθορίζεται από ό, τι εισάγεται στο παράθυρο διαλόγου "Εισαγωγή τίτλου φύλλου υπολογιστικού φύλλου"), αντικαθιστώντας έτσι αποτελεσματικά αυτή τη σταθερά στη μακροεντολή με τα μέσα για να γίνει αυτή η είσοδος πραγματικά διαδραστική.

6. Επιλέξτε "Mind Over Media" στη γραμμή 12 και αντικαταστήστε την με το SpreadsheetTitle (χωρίς εισαγωγικά).

   Αποθηκεύστε τη επεξεργασμένη μακροεντολή κάνοντας κλικ στο κουμπί Αποθήκευση στη γραμμή εργαλείων της Visual Basic και στη συνέχεια επιστρέψτε στο φύλλο εργασίας κάνοντας κλικ στο κουμπί Προβολή του Microsoft Excel ή πατώντας Alt + F11. Στη συνέχεια, κάντε κλικ στο κουμπί Απόκρυψη στην ομάδα παραθύρων της καρτέλας VIEW.
   

   Τώρα, είστε έτοιμοι να ανοίξετε ένα νέο βιβλίο εργασίας και να εκτελέσετε την επεξεργασμένη μακροεντολή πατώντας Ctrl + N.

7. Το σχήμα δείχνει το παράθυρο Κώδικα με την επεξεργασμένη μακροεντολή Company_Name αφού προσθέσει τις δηλώσεις που την καθιστούν διαδραστική.

8. Το παρακάτω σχήμα δείχνει το παράθυρο διαλόγου "Τίτλος υπολογιστικού φύλλου" σε ενέργεια στο φύλλο εργασίας. Αυτό το παράθυρο διαλόγου εισαγωγής εμφανίζεται αυτόματα και σας ζητάει είσοδο κάθε φορά που εκτελείτε την επεξεργασμένη και τώρα πλήρως διαδραστική έκδοση της μακροεντολής Company_Name.

   Για να προχωρήσετε και να εισαγάγετε το Mind Over Media στο τρέχον κελί και στη συνέχεια να το διαμορφώσετε χρησιμοποιώντας τις υπόλοιπες εντολές της μακροεντολής, απλά κάντε κλικ στο OK σε αυτό το προσαρμοσμένο παράθυρο διαλόγου. Για να εισαγάγετε και να μορφοποιήσετε το όνομα μιας άλλης εταιρείας, απλά πληκτρολογήστε το όνομα της εταιρείας (το οποίο αντικαθιστά αυτόματα το Mind Over Media στο πλαίσιο κειμένου) προτού κάνετε κλικ στο OK.