PRJ: Μακροεντολή για να αθροίσετε τιμές σε φιλτραρισμένη λίστα

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 124482 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

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

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

Η Microsoft παρέχει παραδείγματα της Visual Basic για εφαρμογές διαδικασίες για απεικόνιση μόνο, χωρίς εγγύηση ΕΙΤΕ ΡΗΤΗ ΕΙΤΕ ΣΙΩΠΗΡΗ, συμπεριλαμβανομένων, ενδεικτικά των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Οι διαδικασίες της Visual Basic σε αυτό το άρθρο παρέχονται "ως έχουν" και η Microsoft δεν εγγυάται ότι μπορεί να χρησιμοποιηθεί σε όλες τις περιπτώσεις. Ενώ οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης μακροεντολής, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετη λειτουργικότητα, ούτε θα μπορούν σας βοηθήσουν να δημιουργήσετε μακροεντολές για να ικανοποιούν τις ανάγκες σας. Εάν διαθέτετε περιορισμένη εμπειρία προγραμματισμού, μπορείτε Ίσως χρειαστεί να συμβουλευθείτε μία από τις υπηρεσίες παροχής λύσεων της Microsoft. Λύση Υπηρεσίες παροχής προσφέρουν μια ευρεία ποικιλία αμοιβή υπηρεσιών, συμπεριλαμβανομένης της δημιουργίας προσαρμοσμένες μακροεντολές. Για περισσότερες πληροφορίες σχετικά με τις υπηρεσίες παροχής λύσεων της Microsoft, Καλέστε την υπηρεσία πληροφόρησης πελατών της Microsoft στο τηλέφωνο (800) 426-9400.

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

Microsoft Project 2010 και το 2013

  1. Στην κορδέλα Προβολή , Επιλέξτε και κάντε κλικ στο κουμπί Προβολή μακροεντολών.
  2. Πληκτρολογήστε το όνομα "SumFilteredList και κάντε κλικ στο κουμπί Δημιουργία.
  3. Αντιγράψτε τον κώδικα από το παρακάτω βήμα 6 σε Module1 που είναι ανοικτό στο πρόγραμμα επεξεργασίας της Visual Basic.
Για να χρησιμοποιήσετε αυτήν τη μακροεντολή, κάντε τα εξής:

  1. Επιλέξτε μια προβολή εργασιών που χρησιμοποιεί έναν πίνακα, όπως το γράφημα Gantt.
  2. Εμφανίζει μόνο τις εργασίες που θέλετε να υπολογίσετε ένα σύνολο για, είτε εφαρμόζοντας ένα φίλτρο ή η απόκρυψη ή Εμφάνιση δευτερευουσών εργασιών.
  3. Στην κορδέλα Προβολή , Επιλέξτεκαι, στη συνέχεια, κάντε κλικ στο κουμπί Προβολή μακροεντολών.
  4. Στη λίστα μακροεντολών, επιλέξτε SumFilteredList και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.


Microsoft Project 98, 2000, 2002, 2003 και 2007
  1. Στο μενού Εργαλεία, επιλέξτε μακροεντολή και, στη συνέχεια, κάντε κλικ στην εντολή μακροεντολές.
  2. Στο πεδίο Όνομα μακροεντολής, πληκτρολογήστε SumFilteredList. Κάντε κλικ στο κουμπί Δημιουργία.
  3. Microsoft Project 2010
  4. Επιλέξτε την καρτέλα " Προβολή " και κάντε κλικ στην εντολή μακροεντολές
  5. Στο πλαίσιο διαλόγου " μακροεντολές ", ο τύπος SumFilteredList στο Όνομα της μακροεντολής κατατεθεί και κάντε κλικ στο κουμπί Δημιουργία.
  6. Στην επεξεργασία της Visual Basic, πληκτρολογήστε τον ακόλουθο κώδικα:
          Sub SumFilteredList()
          ' This macro totals up the values in the Number1 field
          ' for all visible (filtered) tasks, and displays this total
          ' at the bottom of the task list.
    
          Dim oTask As Task          ' Current task pointer
          Dim oTotalTask As Task     ' Totals task pointer
          Dim fTotal As Single       ' Used to hold totals
    
             ' Ignore error generated by trying to delete a task
             ' that does not exist.
             On Error Resume Next
             ' If totals task is present, delete it.
             ActiveProject.Tasks("Total:").Delete
             ' Re-enable default error handling
             On Error GoTo 0
    
             ' Select visible tasks
             SelectAll
             ' If tasks are selected, then loop through each of them
             If Not (ActiveSelection.Tasks Is Nothing) Then
                For Each oTask In ActiveSelection.Tasks
                    ' Add Number1 for each task to total
                   fTotal = fTotal + oTask.Number1   ' Field to Sum
                Next oTask
             Else
                ' There's nothing to add
                Exit Sub
             End If
    
              ' Create Totals task so it's visible
             Set oTotalTask = ActiveProject.Tasks.Add("Total:")
    
             ' Insure "Totals:" task is at outline level 1 (not indented)
             Do Until oTotalTask.OutlineLevel = 1
                  oTotalTask.OutlineOutdent
             Loop
    
             ' Put total in proper field
             oTotalTask.Number1 = fTotal             ' Field containing total
    
             ' Hide task bar for this task
             oTotalTask.HideBar = True
             ' Select totals row
             SelectRow oTotalTask.ID, False
             ' Set font to bold
             FontBold Set:=True
    
          End Sub
    						

Microsoft Project 4.x

  1. Στο μενού Εργαλεία, κάντε κλικ στην εντολή μακροεντολές.
  2. Κάντε κλικ στο κουμπί Δημιουργία.
  3. Στο πεδίο Όνομα μακροεντολής, πληκτρολογήστε SumFilteredList. Κάντε κλικ στο κουμπί OK.
  4. Στο πρόγραμμα επεξεργασίας λειτουργική μονάδα, πληκτρολογήστε τον ακόλουθο κώδικα:
          Sub SumFilteredList()
          ' This macro totals up the values in the Number1 field
          ' for all visible (filtered) tasks, and displays this total
          ' at the bottom of the task list.
    
          Dim oTask As Task          ' Current task pointer
          Dim oTotalTask As Task     ' Totals task pointer
          Dim fTotal As Single       ' Used to hold totals
    
             ' Ignore error generated by trying to delete a task
             ' that does not exist.
             On Error Resume Next
             ' If totals task is present, delete it.
             ActiveProject.Tasks("Total:").Delete
             ' Re-enable default error handling
             On Error GoTo 0
    
             ' Select visible tasks
             SelectAll
             ' If tasks are selected, then loop through each of them
             If Not (ActiveSelection.Tasks Is Nothing) Then
                For Each oTask In ActiveSelection.Tasks
                    ' Add Number1 for each task to total
                   fTotal = fTotal + oTask.Number1   ' Field to Sum
                Next oTask
             Else
                ' There's nothing to add
                Exit Sub
             End If
    
              ' Create Totals task so it's visible
             Set oTotalTask = ActiveProject.Tasks.Add("Total:")
    
             ' Insure "Totals:" task is at outline level 1 (not indented)
             Do Until oTotalTask.OutlineLevel = 1
                  oTotalTask.OutlineOutdent
             Loop
    
             ' Put total in proper field
             oTotalTask.Number1 = fTotal             ' Field containing total
    
             ' Hide task bar for this task
             oTotalTask.HideBar = True
             ' Select totals row
             SelectRow oTotalTask.ID, False
             ' Set font to bold
             FontBold Set:=True
    
          End Sub
    						
Για να χρησιμοποιήσετε αυτήν τη μακροεντολή, κάντε τα εξής:

  1. Επιλέξτε μια προβολή εργασιών που χρησιμοποιεί έναν πίνακα, όπως το γράφημα Gantt.
  2. Εμφανίζει μόνο τις εργασίες που θέλετε να υπολογίσετε ένα σύνολο για είτε από εφαρμογή ενός φίλτρου ή με απόκρυψη ή Εμφάνιση δευτερευουσών εργασιών.
  3. Στο μενού Εργαλεία, κάντε κλικ στην εντολή μακροεντολές.
  4. Στη λίστα μακροεντολών, επιλέξτε SumFilteredList και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.
Για να χρησιμοποιήσετε αυτήν τη μακροεντολή, κάντε τα εξής:

  1. Επιλέξτε μια προβολή εργασιών που χρησιμοποιεί έναν πίνακα, όπως το γράφημα Gantt.
  2. Εμφανίζει μόνο τις εργασίες που θέλετε να υπολογίσετε ένα σύνολο για είτε από εφαρμογή ενός φίλτρου ή με απόκρυψη ή Εμφάνιση δευτερευουσών εργασιών.
  3. Στο μενού Εργαλεία, επιλέξτε μακροεντολή και, στη συνέχεια, κάντε κλικ στην εντολή μακροεντολές.
  4. Στη λίστα μακροεντολών, επιλέξτε SumFilteredList και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.

Τροποποίηση της μακροεντολής

Για να αθροίσετε τιμές από πεδία εκτός από Αριθμός1, αντικαθιστά την αναφορά Αριθμός1 στη γραμμή σχόλιο με "Άθροισμα, το πεδίο" με το όνομα του το το πεδίο για το οποίο θέλετε να λάβετε ένα σύνολο. Για να τοποθετήσετε το σύνολο σε ένα πεδίο εκτός από Αριθμός1, αντικαθιστά την αναφορά Αριθμός1 στη γραμμή, σχόλια με την "Πεδίο που περιέχει συνολικά" με το όνομα του πεδίου στο οποίο μπορείτε Θέλετε πράγματι να τοποθετήσετε το σύνολο.

Για παράδειγμα, εάν το πεδίο που θέλετε να αθροίσετε είναι ένα πεδίο υπολογισμού, όπως Κόστος ή πραγματικό κόστος, τότε το άθροισμα πρέπει να τοποθετούνται σε ένα πεδίο μη υπολογισμού, όπως Κόστος1 "ή" Αριθμός1 ". Επομένως, για να λάβετε το συνολικό κόστος πεδία για όλους ορατών εργασιών και τον τόπο το άθροισμα στο πεδίο "Κόστος1" της εργασίας "Σύνολο", θα πρέπει να αλλάξετε τις γραμμές που υποδεικνύεται ως εξής:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

Ιδιότητες

Αναγν. άρθρου: 124482 - Τελευταία αναθεώρηση: Δευτέρα, 29 Απριλίου 2013 - Αναθεώρηση: 1.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 για Macintosh
  • Microsoft Office Project Standard 2007
  • Microsoft Office Project Standard 2003
  • Microsoft Project 2000 Standard Edition
  • Microsoft Project 2002 Standard Edition
  • Microsoft Project Standard 2010
  • Microsoft Office Project Professional 2007
  • Microsoft Office Project Professional 2003
  • Microsoft Office Project Server 2007
  • Microsoft Office Project Server 2003
  • Microsoft Project 2002 Professional Edition
  • Microsoft Project Professional 2010
  • Microsoft Project Server 2002
  • Microsoft Project Server 2010
  • Microsoft Project 2013 Professional
  • Microsoft Project 2013 Standard
Λέξεις-κλειδιά: 
kbcode kbhowto kbprogramming kbmt KB124482 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: 124482

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

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com