Αυτό το παράδειγμα πρόσθετου Excel περιγράφει τα βασικά βήματα που απαιτούνται για τη δημιουργία ενός χρήσιμου πρόσθετου το οποίο μπορείτε να χρησιμοποιήσετε για να πακετάρετε τις διαδικασίες VBA. Αυτό το παράδειγμα του Excel VBA βασίζεται στο βοηθητικό πρόγραμμα μετατροπής κειμένου Change Case.
Το βιβλίο εργασίας του Excel αποτελείται από ένα κενό φύλλο εργασίας, μια λειτουργική μονάδα VBA και μια φόρμα χρήστη.
Η αρχική έκδοση του βοηθητικού προγράμματος περιλαμβάνει επιλογές για κεφαλαία, πεζά και σωστά γράμματα. Η πρόσθετη έκδοση περιλαμβάνει δύο επιλογές στο UserForm, ώστε να έχει τις ίδιες επιλογές με το ενσωματωμένο εργαλείο στο Microsoft Word:
Αυτή η εικόνα δείχνει το UserForm1. Τα πέντε στοιχεία ελέγχου OptionButton βρίσκονται μέσα σε ένα στοιχείο ελέγχου πλαισίου. Επιπλέον, το UserForm έχει ένα κουμπί Cancel (με όνομα CancelButton) και ένα κουμπί OK (με όνομα OKButton).
Η φόρμα χρήστη για το πρόσθετο Change Case.
Ο κώδικας που εκτελείται όταν κάνετε κλικ στο κουμπί Άκυρο είναι πολύ απλός. Αυτή η διαδικασία ξεφορτώνει το UserForm χωρίς καμία ενέργεια:
Ιδιωτικό δευτερεύον CancelButton_Click() Ξεφορτώστε το UserForm1 End Sub
Ακολουθεί ο κώδικας που εκτελείται όταν κάνετε κλικ στο κουμπί OK. Αυτός ο κώδικας κάνει όλη τη δουλειά:
Ιδιωτικό δευτερεύον OKButton_Click()
Dim Text Cells As Range
Θαμπό κελί ως εύρος
Θαμπό κείμενο ως συμβολοσειρά
Dim i As Long
Δημιουργήστε ένα αντικείμενο μόνο με σταθερές κειμένου
Σφάλμα Συνέχιση Επόμενο
Ορισμός TextCells = Selection.SpecialCells(xlConstants, xlTextValues)
' Απενεργοποιήστε την ενημέρωση οθόνης
Application.ScreenUpdating = False
«Κάντε βρόχο μέσα από τα κελιά
Για κάθε κελί στα TextCells
Κείμενο = κελί.Τιμή
Επιλέξτε Case True
Υπόθεση Επιλογή Μικρά πεζά
cell.Value = LCase(cell.Value)
Επιλογή θήκης Πάνω 'ΚΕΦΑΛΑΙΑ
cell.Value = UCase(cell.Value)
Case OptionProper 'Proper Case
cell.Value = WorksheetFunction.Proper(cell.Value)
Υπόθεση OptionSentence «Περίπτωση πρότασης
Κείμενο = UCase(Αριστερά(κελί.Τιμή, 1))
Κείμενο = Κείμενο & LCase (Μεσαίο(κελί.Τιμή, 2, Len(Τιμή κελιών)))
κελί.Τιμή = Κείμενο
Επιλογή υπόθεσηςΕναλλαγή 'tOGGLE CASE
Για i = 1 To Len (Κείμενο)
Αν Mid(Text, i, 1) Like "[AZ]" Τότε
Mid(Text, i, 1) = LCase (Mid(Text, i, 1))
Αλλού
Mid(Text, i, 1) = UCase(Mid(Text, i, 1))
Τέλος εαν
Επόμενο i
κελί.Τιμή = Κείμενο
Τέλος Επιλογή
Επόμενο
' Ξεφορτώστε το πλαίσιο διαλόγου
Ξεφορτώστε το UserForm1
End Sub
Δοκιμάστε το πρόσθετο του Excel πριν μετατρέψετε αυτό το βιβλίο εργασίας. Για να προσομοιώσετε τι συμβαίνει όταν το βιβλίο εργασίας είναι πρόσθετο, θα πρέπει να δοκιμάσετε το βιβλίο εργασίας όταν είναι ενεργό ένα διαφορετικό βιβλίο εργασίας του Excel. Επειδή ένα πρόσθετο του Excel δεν είναι ποτέ το ενεργό φύλλο ή βιβλίο εργασίας, η δοκιμή του όταν είναι ανοιχτό ένα διαφορετικό βιβλίο εργασίας μπορεί να σας βοηθήσει να εντοπίσετε ορισμένα πιθανά σφάλματα.
Ανοίξτε ένα νέο βιβλίο εργασίας και εισαγάγετε πληροφορίες σε ορισμένα κελιά.
Για σκοπούς δοκιμής, εισαγάγετε διάφορους τύπους πληροφοριών, όπως κείμενο, τιμές και τύπους. Ή απλώς ανοίξτε ένα υπάρχον βιβλίο εργασίας και χρησιμοποιήστε το για τις δοκιμές σας. Να θυμάστε ότι τυχόν αλλαγές στο βιβλίο εργασίας δεν μπορούν να αναιρεθούν, επομένως ίσως θέλετε να χρησιμοποιήσετε ένα αντίγραφο.
Επιλέξτε ένα ή περισσότερα κελιά (ή ολόκληρες σειρές και στήλες).
Εκτελέστε τη μακροεντολή ChangeCase επιλέγοντας τη νέα εντολή Change Case από το μενού συντόμευσης Cell (ή Row ή Column).
Εάν η εντολή Change Case δεν εμφανίζεται στο μενού συντόμευσης, ο πιο πιθανός λόγος είναι ότι δεν ενεργοποιήσατε τις μακροεντολές όταν ανοίξατε το βιβλίο εργασίας change case.xlsm. Κλείστε το βιβλίο εργασίας και, στη συνέχεια, ανοίξτε το ξανά — και βεβαιωθείτε ότι έχετε ενεργοποιήσει τις μακροεντολές.
Αν και δεν απαιτείται, θεωρείται βέλτιστη πρακτική η εισαγωγή περιγραφής του πρόσθετου Excel . Ακολουθήστε αυτά τα βήματα για να προσθέσετε μια περιγραφή:
Ενεργοποιήστε το βιβλίο εργασίας change case.xlsm.
Επιλέξτε Αρχείο → Πληροφορίες και κάντε κλικ στην επιλογή Εμφάνιση όλων των ιδιοτήτων κάτω δεξιά.
Το Excel επεκτείνει τη λίστα Ιδιότητες.
Εισαγάγετε έναν τίτλο για το πρόσθετο στο πεδίο Τίτλος.
Αυτό το κείμενο εμφανίζεται στη λίστα των πρόσθετων στο πλαίσιο διαλόγου Πρόσθετα. Για αυτό το παράδειγμα, πληκτρολογήστε Αλλαγή πεζών-κεφαλαίων.
Στο πεδίο Σχόλια, πληκτρολογήστε μια περιγραφή.
Αυτές οι πληροφορίες εμφανίζονται στο κάτω μέρος του πλαισίου διαλόγου Πρόσθετα όταν είναι επιλεγμένο το πρόσθετο. Για αυτό το παράδειγμα, εισάγετε
Αλλάζει τα πεζά του κειμένου σε επιλεγμένα κελιά.
Αποκτήστε πρόσβαση σε αυτό το βοηθητικό πρόγραμμα χρησιμοποιώντας το μενού συντομεύσεων.
Αυτή η εικόνα δείχνει την ενότητα Ιδιότητες με συμπληρωμένα τα πεδία Τίτλος και Σχόλια.
Χρησιμοποιήστε την ενότητα Ιδιότητες για να εισαγάγετε περιγραφικές πληροφορίες σχετικά με το πρόσθετο σας.
Εάν θέλετε να προσθέσετε έναν κωδικό πρόσβασης για να εμποδίσετε άλλους να δουν τον κώδικα VBA , ακολουθήστε τα εξής βήματα:
Ενεργοποιήστε το VBE και επιλέξτε το βιβλίο εργασίας change case.xlsm στο παράθυρο Project.
Επιλέξτε Εργαλεία → Ιδιότητες VBAProject και κάντε κλικ στην καρτέλα Προστασία στο παράθυρο διαλόγου που εμφανίζεται.
Επιλέξτε το πλαίσιο ελέγχου Κλείδωμα έργου για προβολή και εισαγάγετε έναν κωδικό πρόσβασης (δύο φορές).
Κάντε κλικ στο OK.
Αποθηκεύστε το βιβλίο εργασίας επιλέγοντας Αρχείο → Αποθήκευση στο VBE ή επιστρέφοντας στο παράθυρο του Excel και επιλέγοντας Αρχείο → Αποθήκευση.
Σε αυτό το σημείο, δοκιμάσατε το αρχείο change case.xlsm και λειτουργεί σωστά. Το επόμενο βήμα είναι η δημιουργία του πρόσθετου. Ακολουθήστε αυτά τα βήματα:
Εάν χρειάζεται, ενεργοποιήστε ξανά το Excel.
Ενεργοποιήστε το βιβλίο εργασίας change case.xlsm και επιλέξτε Αρχείο → Αποθήκευση ως → Περιήγηση.
Το Excel εμφανίζει το παράθυρο διαλόγου Αποθήκευση ως.
Από το αναπτυσσόμενο μενού Αποθήκευση ως Τύπος, επιλέξτε Πρόσθετο (*.xlam).
Καθορίστε την τοποθεσία και κάντε κλικ στην Αποθήκευση.
Δημιουργείται ένα νέο αρχείο πρόσθετου (με επέκταση .xlam) και η αρχική έκδοση XLSM παραμένει ανοιχτή.
Για να αποφύγετε τη σύγχυση, κλείστε το βιβλίο εργασίας XLSM πριν ανοίξετε το πρόσθετο που δημιουργήσατε από αυτό το βιβλίο εργασίας.
Ανοίξτε το πρόσθετο ακολουθώντας αυτά τα βήματα:
Επιλέξτε Προγραμματιστής → Πρόσθετα → Πρόσθετα (ή πατήστε Alt+TI).
Το Excel εμφανίζει το πλαίσιο διαλόγου Πρόσθετα.
Κάντε κλικ στο κουμπί Αναζήτηση.
Εντοπίστε και επιλέξτε το πρόσθετο που μόλις δημιουργήσατε.
Κάντε κλικ στο OK για να κλείσετε το πλαίσιο διαλόγου Αναζήτηση.
Αφού βρείτε το νέο σας πρόσθετο, το παράθυρο διαλόγου Πρόσθετα εμφανίζει το πρόσθετο. Όπως φαίνεται παρακάτω, το παράθυρο διαλόγου Πρόσθετα εμφανίζει επίσης τις περιγραφικές πληροφορίες που παρείχατε στον πίνακα Ιδιότητες εγγράφου.
Στο πλαίσιο διαλόγου Πρόσθετα έχει επιλεγεί το νέο πρόσθετο.
Βεβαιωθείτε ότι το νέο σας πρόσθετο είναι επιλεγμένο στο πλαίσιο διαλόγου Πρόσθετα.
Κάντε κλικ στο OK για να κλείσετε το παράθυρο διαλόγου.
Το Excel ανοίγει το πρόσθετο. Τώρα μπορείτε να το χρησιμοποιήσετε με όλα τα βιβλία εργασίας σας. Εφόσον παραμένει επιλεγμένο στο παράθυρο διαλόγου Πρόσθετα, το πρόσθετο ανοίγει κάθε φορά που ξεκινάτε το Excel.
Αν έχετε γενναιόδωρη διάθεση, μπορείτε να διανείμετε αυτό το πρόσθετο σε άλλους χρήστες του Excel απλά δίνοντάς τους ένα αντίγραφο του αρχείου XLAM. (Δεν χρειάζονται την έκδοση XLSM.) Όταν ανοίγουν το πρόσθετο, η νέα εντολή Change Case εμφανίζεται στο μενού συντόμευσης όταν επιλέγουν μια περιοχή, μία ή περισσότερες σειρές ή μία ή περισσότερες στήλες. Εάν κλειδώσετε το έργο VBA με κωδικό πρόσβασης, οι άλλοι δεν μπορούν να δουν τον κωδικό μακροεντολής σας, εκτός εάν γνωρίζουν τον κωδικό πρόσβασης.
Ένα πρόσθετο μπορεί να επεξεργαστεί όπως κάθε άλλο βιβλίο εργασίας. Μπορείτε να επεξεργαστείτε το αρχείο XLAM απευθείας (δεν χρειάζεται να εργαστείτε με την αρχική έκδοση XLSM) ακολουθώντας αυτά τα βήματα:
Ανοίξτε το αρχείο XLAM, εάν δεν είναι ήδη ανοιχτό.
Ενεργοποιήστε το VBE. Κάντε διπλό κλικ στο όνομα του έργου στο παράθυρο Project.
Εάν προστατεύσατε τον κωδικό, σας ζητείται ο κωδικός πρόσβασης.
Εισαγάγετε τον κωδικό πρόσβασής σας και κάντε κλικ στο OK.
Κάντε τις αλλαγές σας στον κώδικα.
Αποθηκεύστε το αρχείο επιλέγοντας Αρχείο → Αποθήκευση.
Εάν δημιουργήσετε ένα πρόσθετο που αποθηκεύει πληροφορίες σε ένα φύλλο εργασίας, πρέπει να ορίσετε την ιδιότητα IsAddIn του βιβλίου εργασίας σε False για να προβάλετε το βιβλίο εργασίας. Μπορείτε να το κάνετε αυτό στο παράθυρο Ιδιότητες όταν είναι επιλεγμένο το αντικείμενο ThisWorkbook. Αφού κάνετε τις αλλαγές σας στο βιβλίο εργασίας, βεβαιωθείτε ότι έχετε ορίσει ξανά την ιδιότητα IsAddIn σε True πριν αποθηκεύσετε το αρχείο.
Δημιουργία πρόσθετου όχι πρόσθετου.
Πώς να αποκλείσετε το Microsoft Word από το άνοιγμα αρχείων σε λειτουργία μόνο για ανάγνωση στα Windows Το Microsoft Word ανοίγει αρχεία σε λειτουργία μόνο για ανάγνωση, καθιστώντας αδύνατη την επεξεργασία του; Μην ανησυχείτε, οι μέθοδοι είναι παρακάτω
Τρόπος διόρθωσης σφαλμάτων κατά την εκτύπωση λανθασμένων εγγράφων του Microsoft Word Τα σφάλματα στην εκτύπωση εγγράφων Word με αλλαγμένες γραμματοσειρές, ακατάστατες παραγράφους, κείμενο που λείπει ή χαμένο περιεχόμενο είναι αρκετά συνηθισμένα. Ωστόσο, μην το κάνετε
Εάν έχετε χρησιμοποιήσει το στυλό ή το highlighter για να σχεδιάσετε στις διαφάνειες του PowerPoint κατά τη διάρκεια μιας παρουσίασης, μπορείτε να αποθηκεύσετε τα σχέδια για την επόμενη παρουσίαση ή να τα σβήσετε, ώστε την επόμενη φορά που θα το δείξετε να ξεκινήσετε με καθαρές διαφάνειες PowerPoint. Ακολουθήστε αυτές τις οδηγίες για να διαγράψετε σχέδια με στυλό και επισημάνσεις: Σβήσιμο γραμμών μία στο […]
Η βιβλιοθήκη στυλ περιέχει αρχεία CSS, αρχεία επεκτάσιμης γλώσσας φύλλου στυλ (XSL) και εικόνες που χρησιμοποιούνται από προκαθορισμένες κύριες σελίδες, διατάξεις σελίδων και στοιχεία ελέγχου στο SharePoint 2010. Για να εντοπίσετε αρχεία CSS στη βιβλιοθήκη στυλ μιας τοποθεσίας δημοσίευσης: Επιλέξτε Ενέργειες τοποθεσίας→ Προβολή Όλο το περιεχόμενο του ιστότοπου. Εμφανίζεται το περιεχόμενο του ιστότοπου. Η βιβλιοθήκη Style βρίσκεται στο […]
Μην κατακλύζετε το κοινό σας με τεράστιους αριθμούς. Στο Microsoft Excel, μπορείτε να βελτιώσετε την αναγνωσιμότητα των πινάκων εργαλείων και των αναφορών σας μορφοποιώντας τους αριθμούς σας ώστε να εμφανίζονται σε χιλιάδες ή εκατομμύρια.
Μάθετε πώς να χρησιμοποιείτε τα εργαλεία κοινωνικής δικτύωσης του SharePoints που επιτρέπουν σε άτομα και ομάδες να επικοινωνούν, να συνεργάζονται, να μοιράζονται και να συνδέονται.
Οι ημερομηνίες του Ιουλιανού χρησιμοποιούνται συχνά σε περιβάλλοντα παραγωγής ως χρονική σήμανση και γρήγορη αναφορά για έναν αριθμό παρτίδας. Αυτός ο τύπος κωδικοποίησης ημερομηνίας επιτρέπει στους λιανοπωλητές, τους καταναλωτές και τους αντιπροσώπους υπηρεσιών να προσδιορίσουν πότε κατασκευάστηκε ένα προϊόν και, επομένως, την ηλικία του προϊόντος. Οι ημερομηνίες του Ιουλιανού χρησιμοποιούνται επίσης στον προγραμματισμό, τον στρατό και την αστρονομία. Διαφορετικές […]
Μπορείτε να δημιουργήσετε μια εφαρμογή Ιστού στην Access 2016. Τι είναι λοιπόν μια εφαρμογή Ιστού; Λοιπόν, ο Ιστός σημαίνει ότι είναι διαδικτυακός και η εφαρμογή είναι απλώς συντομογραφία της «εφαρμογής». Μια προσαρμοσμένη εφαρμογή Ιστού είναι μια διαδικτυακή εφαρμογή βάσης δεδομένων στην οποία έχει πρόσβαση από το cloud χρησιμοποιώντας ένα πρόγραμμα περιήγησης. Δημιουργείτε και συντηρείτε την εφαρμογή Ιστού στην έκδοση για υπολογιστές […]
Οι περισσότερες σελίδες στο SharePoint 2010 εμφανίζουν μια λίστα με συνδέσμους πλοήγησης στη γραμμή γρήγορης εκκίνησης στην αριστερή πλευρά της σελίδας. Η γραμμή γρήγορης εκκίνησης εμφανίζει συνδέσμους προς επιλεγμένο περιεχόμενο ιστότοπου, όπως λίστες, βιβλιοθήκες, τοποθεσίες και σελίδες δημοσίευσης. Η γραμμή γρήγορης εκκίνησης περιλαμβάνει δύο πολύ σημαντικούς συνδέσμους: Σύνδεσμος όλου του περιεχομένου του ιστότοπου: Η […]
Για απλά προβλήματα, ο Επίλυση στο Excel συνήθως βρίσκει γρήγορα τις βέλτιστες τιμές μεταβλητής Επίλυσης για τη συνάρτηση αντικειμένου. Ωστόσο, σε ορισμένες περιπτώσεις, ο Επίλυση δυσκολεύεται να βρει τις τιμές της μεταβλητής Επίλυσης που βελτιστοποιούν τη συνάρτηση στόχου. Σε αυτές τις περιπτώσεις, ο Επίλυση εμφανίζει συνήθως ένα μήνυμα ή ένα μήνυμα σφάλματος που περιγράφει ή συζητά το πρόβλημα που […]
