XL2000: Τρόπος δημιουργίας μέσω προγραμματισμού μια συλλογή

Αναγν. άρθρου: 213763 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Μηχανικά μεταφρασμένοΠΡΟΕΙΔΟΠΟΙΗΣΗ: ΑΥΤΟ ΤΟ ΑΡΘΡΟ ΜΕΤΑΦΡΑΣΤΗΚΕ ΜΕ ΜΗΧΑΝΙΚΗ ΜΕΤΑΦΡΑΣΗ
Ανάπτυξη όλων | Σύμπτυξη όλων

Περίληψη

Προγραμματισμού λειτουργικότητα στο Microsoft Excel σάς επιτρέπει να δημιουργήσετε μια συλλογή. Μια συλλογή είναι ένα προκαθορισμένο αντικείμενο που αποθηκεύει τις ομάδες σχετικών αντικειμένων, καθιστώντας ευκολότερη την εργασία με την ομάδα αντικειμένων. Για παράδειγμα, μπορείτε να χρησιμοποιήσετε έναΓια κάθεδήλωση LOOP για εκτέλεση βρόχου μέσα στη συλλογή. Κάθε φορά που η μακροεντολή εκτελείται ο βρόχος παραπέμπει ένα διαφορετικό αντικείμενο στη συλλογή μέχρι να αναφέρονται όλα τα αντικείμενα της συλλογής μία φορά.

Αυτό το άρθρο περιέχει ένα δείγμα Visual Basic for Applications μακροεντολή, η οποία δημιουργεί και αναφέρεται σε μια συλλογή.
Επιστροφή στην αρχή | Αποστολή σχολίων

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς να παρέχει καμία εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά, των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες ανάγκες σας.
Εάν δεν έχετε μεγάλη εμπειρία προγραμματισμού, ίσως χρειαστεί να επικοινωνήσετε με κάποιον πιστοποιημένο συνεργάτη της Microsoft (Microsoft Certified Partner) ή να χρησιμοποιήσετε τις συμβουλευτικές υπηρεσίες Microsoft Advisory Services. Για περισσότερες πληροφορίες, επισκεφθείτε αυτές τις τοποθεσίες της Microsoft στο Web:

Πιστοποιημένοι συνεργάτες της Microsoft -https://partner.microsoft.com/global/30000104
(https://partner.microsoft.com/global/30000104)


Συμβουλευτικές υπηρεσίες της Microsoft-http://support.Microsoft.com/GP/advisoryservice
(http://support.microsoft.com/gp/advisoryservice)


Για περισσότερες πληροφορίες σχετικά με τις επιλογές υποστήριξης που είναι διαθέσιμες και τον τρόπο επικοινωνίας με τη Microsoft, επισκεφθείτε την ακόλουθη τοποθεσία της Microsoft στο Web:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Για να δημιουργήσετε τη συλλογή, να δηλώσετε ένα αντικείμενο ως μια νέα συλλογή. Αφού δημιουργήσετε τοΣυλλογήαντικείμενο, μπορείτε να προσθέσετε στοιχεία της συλλογής χρησιμοποιώντας τοADDη μέθοδος ή η κατάργηση στοιχείων χρησιμοποιώντας τοκατάργησηΗ μέθοδος.

Για να δημιουργήσετε μια συλλογή, ακολουθήστε τα εξής βήματα:
  1. Ανοίξτε ένα νέο βιβλίο εργασίας και, στη συνέχεια, ξεκινήστε την "Επεξεργασία Visual Basic" (Visual Basic Editor) (πιέστε ALT+F11).
  2. Στο διακομιστήINSERTμενού, κάντε κλικ στο κουμπίΛειτουργική μονάδα κλάσης.
  3. Στη λειτουργική μονάδα κλάσης, πληκτρολογήστε την εξής δήλωση:
    Public EmployeeName As String
    Συνήθως, χρησιμοποιείτε μια δημόσια μεταβλητή σε μια λειτουργική μονάδα κλάσης για να ορίσετε ιδιότητες για την κλάση.
  4. Εάν δεν εμφανίζεται το παράθυρο "Ιδιότητες", κάντε κλικ στο κουμπίΠαράθυρο "Ιδιότητες"Στο διακομιστήViewΜενού (Menu).
  5. Εάν δεν εμφανίζεται το παράθυρο "Εξερεύνηση έργου", κάντε κλικ στο κουμπίΕξερεύνηση έργουΣτο διακομιστήViewΜενού (Menu).
  6. Στο παράθυρο "Εξερεύνηση έργου", κάντε κλικ στη λειτουργική μονάδα κλάσης που εισαγάγατε στο βήμα 2.
  7. Στο παράθυρο διαλόγου Ιδιότητες, αλλάξτε το(Το όνομα)η ιδιότητα τη λειτουργική μονάδα κλάσηςEmpClass.
  8. Στο διακομιστήINSERTμενού, κάντε κλικ στο κουμπίModule.
  9. Σε αυτήν τη λειτουργική μονάδα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub MyCollection()

   Dim employees As New Collection   'Create the collection object.
   Dim num As Integer

   num = 0    'Counter for number of employees added to the
                'collection.

   Do
   Dim employee As New EmpClass    'Create new instance of the
                                         'EmpClass class.
   num = num + 1

   newname = InputBox("Enter new employee name" & Chr(13) _
          & "or press Cancel to see list of employees.")

   If newname <> "" Then   'You did not press Cancel.

          employee.EmployeeName = newname
          employees.Add Item:=employee, key:=CStr(num)

          Set employee = Nothing    'Clear the current reference
                                       'in preparation for next one.

   End If

   Loop Until newname = ""  'You pressed Cancel.

   For Each x In employees
      MsgBox x.EmployeeName 'Display the employee name.
   Next

   MsgBox employees.Count  'Current number of employees in collection.

   For Each x In employees
       employees.Remove 1   'Remove each employee from the collection.

   Next

   MsgBox employees.Count 'Display a count of zero because
                            'all employees were removed from the
                            'collection.

End Sub
  10. Εκτελέστε τη μακροεντολή MyCollection.
  11. Όταν σας ζητηθεί, πληκτρολογήστε τα ονόματα και κάντε κλικ στο κουμπίOkμετά από κάθε όνομα. Κάντε κλικΆκυρο (Cancel)Για να διακόψετε την πληκτρολόγηση ονομάτων.
Εμφανίζονται πλαίσια μηνύματος που εμφανίζεται σε κάθε ένα από τα ονόματα που πληκτρολογήσατε και στη συνέχεια εμφανίζεται ένα πλαίσιο μηνύματος, το οποίο εμφανίζει μια απαρίθμηση των ονομάτων που πληκτρολογήσατε. Άλλο ένα πλαίσιο μηνύματος με ένα πλήθος μηδέν εμφανίζεται επειδή η τελευταίαΓια κάθεδήλωση LOOP καταργεί κάθε υπαλλήλου από τη συλλογή.
Επιστροφή στην αρχή | Αποστολή σχολίων

Αναφορές

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο Add, στην επεξεργασία της Visual Basic, κάντε κλικ στο κουμπίΒοήθεια της Microsoft Visual BasicΣτο διακομιστήΒοήθεια (Help)μενού, πληκτρολογήστεΠροσθέστε τη μέθοδοο Βοηθός του Office ή της "Οδηγός απαντήσεων" και στη συνέχεια κάντε κλικΑναζήτησηΓια να προβάλετε το θέμα.

Για περισσότερες πληροφορίες σχετικά με τις συλλογές, στην επεξεργασία της Visual Basic, κάντε κλικ στο κουμπίΒοήθεια της Microsoft Visual BasicΣτο διακομιστήΒοήθεια (Help)μενού, πληκτρολογήστεαντικείμενο συλλογήςο Βοηθός του Office ή της "Οδηγός απαντήσεων" και στη συνέχεια κάντε κλικΑναζήτησηΓια να προβάλετε το θέμα.
Επιστροφή στην αρχή | Αποστολή σχολίων
Σημείωση Αυτό είναι ένα άρθρο «ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ» που δημιουργήθηκε απευθείας από τον οργανισμό υποστήριξης της Microsoft. Οι πληροφορίες που περιλαμβάνονται σε αυτό το άρθρο, παρέχονται ως απόκριση σε θέματα που προκύπτουν. Ως αποτέλεσμα της ταχύτητας διάθεσής του, το υλικό ενδέχεται να έχει τυπογραφικά λάθη και να αναθεωρηθεί ανά πάσα στιγμή χωρίς ειδοποίηση. Ανατρέξτε στους Όρους χρήσης
(http://go.microsoft.com/fwlink/?LinkId=151500)
για άλλα ζητήματα.
Επιστροφή στην αρχή | Αποστολή σχολίων

Ιδιότητες

Αναγν. άρθρου: 213763 - Τελευταία αναθεώρηση: Δευτέρα, 27 Σεπτεμβρίου 2010 - Αναθεώρηση: 2.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 2000 Standard Edition
Λέξεις-κλειδιά: 
kbdtacode kbhowto kbprogramming kbmt KB213763 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:213763
(http://support.microsoft.com/kb/213763/en-us/ )
Επιστροφή στην αρχή | Αποστολή σχολίων

Αποστολή σχολίων

 
Επιστροφή στην αρχήΕπιστροφή στην αρχή