PRJ: V? mô t?ng giá tr? trong l?c danh sách

D?ch tiêu đ? D?ch tiêu đ?
ID c?a bài: 124482 - Xem s?n ph?m mà bài này áp d?ng vào.
Bung t?t c? | Thu g?n t?t c?

? Trang này

Tóm t?t

Microsoft Project m?u v? mô trong ph?n "Thông tin thêm" Bài vi?t này t?ng s? giá tr? t? m?t danh sách các nhi?m v? Hi?n th? và hi?n th? T?t c? trong m?t nhi?m v? hàng ? dư?i cùng c?a danh sách.

Thông tin thêm

Microsoft cung c?p các ví d? v? h?nh ?nh cơ b?n v? quy tr?nh ?ng d?ng cho b?o minh ho? duy nh?t, mà không có hành ho?c bày t? hay ng? ?, bao g?m, nhưng không gi?i h?n các b?o đ?m ng? ? kh? năng bán hàng và/ho?c th? d?c cho m?t m?c đích c? th?. Th? t?c Visual Basic trong bài vi?t này cung c?p 'như là' và Microsoft không đ?m b?o r?ng h? có th? đư?c s? d?ng trong m?i t?nh hu?ng. Trong khi Microsoft Support chuyên gia có th? giúp gi?i thích nh?ng ch?c năng c?a m?t v? mô c? th?, h? s? không thay đ?i các ví d? đ? cung c?p các tính năng b? sung, và c?ng không h? s? giúp b?n xây d?ng macro đ? đáp ?ng nhu c?u c? th? c?a b?n. N?u b?n có gi?i h?n kinh nghi?m l?p tr?nh, b?n có th? mu?n tham kh?o ? ki?n m?t trong nh?ng nhà cung c?p gi?i pháp Microsoft. Gi?i pháp Nhà cung c?p cung c?p m?t lo?t các b?n ghi d?ch v? d?a trên chi phí, bao g?m c? vi?c t?o ra Tu? macro. Đ? bi?t thêm thông tin v? Microsoft gi?i pháp nhà cung c?p, g?i b?n ghi d?ch v? thông tin khách hàng Microsoft t?i (800) 426-9400.

V? mô sau t?ng k?t các giá tr? t? các l?nh v?c Number1 Hi?n th? t?t c? nhi?m v?. Sau khi b?n ch?y này v? mô, m?t nhi?m v? m?i mang tên "T?ng c?ng" s? đư?c t?o ra và hi?n th? vào các d? án ho?t đ?ng. Trư?ng Number1 ? đây nhi?m v? s? ch?a t?ng c?a các giá tr? Number1 cho t?t c? các hi?n th? nhi?m v?.

Microsoft d? án năm 2010 đ?n năm 2013

  1. Trên các ribbon View , ch?n macro và nh?p vào Xem macro.
  2. Nh?p tên "SumFilteredList và nh?p vào t?o.
  3. Sao chép m? t? bư?c 6 dư?i đây vào Module1 m? c?a trong Visual Basic editor.
Đ? s? d?ng macro này, làm như sau:

  1. Ch?n m?t cái nh?n công vi?c s? d?ng m?t b?ng, ch?ng h?n như bi?u đ? Gantt.
  2. Hi?n th? ch? các tác v? b?n mu?n tính toán t?ng s? cho, ho?c b?ng cách áp d?ng m?t b? l?c ho?c b?ng cách ?n ho?c hi?n th? subtasks.
  3. View ribbon, ch?n macro, và sau đó nh?p vào View macro.
  4. Trong danh sách v? mô, ch?n SumFilteredList và sau đó nh?p vào ch?y.


Microsoft d? án 98, 2000, 2002, 2003 và 2007
  1. Trên menu công c?, đi?m đ?n v? mô, và sau đó nh?p vào macro.
  2. Trong l?nh v?c v? mô tên, nh?p SumFilteredList. Nh?p vào t?o.
  3. Microsoft d? án 2010
  4. Ch?n tab xem và nh?p vào macro
  5. Trong hộp thoại macro , lo?i SumFilteredList trong V? mô tên n?p và nh?p vào t?o.
  6. Trong Visual Basic Editor, nh?p m? sau đây:
          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 d? án 4.x

  1. Trên menu công c?, b?m vào macro.
  2. B?m chu?t m?i.
  3. Trong l?nh v?c v? mô tên, g? SumFilteredList. Nh?p vào OK.
  4. Trong Module Editor, nh?p m? sau đây:
          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
    						
Đ? s? d?ng macro này, làm như sau:

  1. Ch?n m?t cái nh?n công vi?c s? d?ng m?t b?ng, ch?ng h?n như bi?u đ? Gantt.
  2. Hi?n th? ch? các tác v? b?n mu?n tính toán t?ng s? cho c? hai b?i áp d?ng m?t b? l?c ho?c b?i ?n ho?c hi?n th? subtasks.
  3. Trên menu công c?, b?m vào macro.
  4. Trong danh sách v? mô, ch?n SumFilteredList và sau đó b?m Ch?y.
Đ? s? d?ng macro này, làm như sau:

  1. Ch?n m?t cái nh?n công vi?c s? d?ng m?t b?ng, ch?ng h?n như bi?u đ? Gantt.
  2. Hi?n th? ch? các tác v? b?n mu?n tính toán t?ng s? cho c? hai b?i áp d?ng m?t b? l?c ho?c b?i ?n ho?c hi?n th? subtasks.
  3. Trên menu công c?, đi?m đ?n v? mô, và sau đó nh?p vào macro.
  4. Trong danh sách v? mô, ch?n SumFilteredList và sau đó b?m Ch?y.

S?a đ?i các v? mô

Đ? tóm t?t các giá tr? t? các l?nh v?c khác hơn so v?i Number1, thay th? tham chi?u đ?n Number1 trên d?ng nh?n xét v?i "L?nh v?c t?ng" v?i tên c?a các l?nh v?c mà b?n mu?n l?y đư?c t?ng c?ng. Đ? đ?t t?t c? trong m?t l?nh v?c khác hơn so v?i Number1, thay th? tài li?u tham kh?o đ? Number1 d?ng nh?n xét v?i "L?nh v?c có t?ng s?" v?i tên trường mà b?n th?c s? mu?n đ?t t?ng s?.

Ví d?, n?u trư?ng b?n mu?n tóm t?t là m?t trư?ng đư?c tính toán, ch?ng h?n như Chi phí ho?c chi phí th?c t?, sau đó s? ti?n ph?i đư?c đ?t trong m?t l?nh v?c không tính toán, ch?ng h?n như Cost1 ho?c Number1. V? v?y, đ? có đư?c t?t c? chi phí l?nh v?c cho t?t c? có th? nh?n th?y công vi?c và nơi t?t c? trong l?nh v?c Cost1 nhi?m v? "T?t c?", b?n s? đường thay đổi ch? đ?nh như sau:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

Thu?c tính

ID c?a bài: 124482 - L?n xem xét sau cùng: 29 Tháng Tư 2013 - Xem xét l?i: 1.0
Áp d?ng
  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 for 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
T? khóa: 
kbcode kbhowto kbprogramming kbmt KB124482 KbMtvi
Máy d?ch
QUAN TRỌNG: Bài viết này được d?ch b?ng phần mềm dịch thu?t của Microsoft và có thể được Cộng đồng Microsoft chỉnh sửa l?i thông qua công nghệ CTF thay vì một biên dịch viên chuyên nghiệp. Microsoft cung c?p các bài vi?t đư?c c? biên d?ch viên và ph?n m?m d?ch thu?t th?c hi?n và c?ng đ?ng ch?nh s?a l?i đ? b?n có th? truy c?p vào t?t c? các bài vi?t trong Cơ s? Ki?n th?c c?a chúng tôi b?ng nhi?u ngôn ng? Tuy nhiên, bài vi?t do máy d?ch hoặc thậm chí cộng đồng chỉnh sửa sau không ph?i lúc nào c?ng hoàn h?o. Các bài vi?t này có th? ch?a các sai sót v? t? v?ng, cú pháp ho?c ng? pháp, Microsoft không ch?u trách nhi?m v? b?t k? s? thi?u chính xác, sai sót ho?c thi?t h?i nào do vi?c d?ch sai n?i dung ho?c do ho?t đ?ng s? d?ng c?a khách hàng gây ra.
Nh?p chu?t vào đây đ? xem b?n ti?ng Anh c?a bài vi?t này: 124482

Cung cấp Phản hồi

 

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