Bạn hiện đang ngoại tuyến, hãy chờ internet để kết nối lại

PRJ: Vĩ mô tổng giá trị trong lọc danh sách

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

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
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 chobả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ụccho một mục đích cụ thể. Thủ tục Visual Basic trong bài viết nàycung cấp 'như là' và Microsoft không đảm bảo rằng họ có thể được sử dụng trongmọi tình huống. Trong khi Microsoft Support chuyên gia có thể giúp giải thích nhữngchứ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ạncó 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ápNhà 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 raTuỳ 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 ravà hiển thị vào các dự án hoạt động. Trường Number1 ở đâynhiệ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 đếnNumber1 trên dòng nhận xét với "Lĩnh vực tổng" với tên của cáclĩ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ựckhác hơn so với Number1, thay thế tài liệu tham khảo để Number1 dòng nhận xétvới "Lĩnh vực có tổng số" với tên trường mà bạnthự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				

Warning: This article has been translated automatically

Thuộc tính

ID Bài viết: 124482 - Xem lại Lần cuối: 04/29/2013 18:34:00 - Bản sửa đổi: 1.0

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

  • kbcode kbhowto kbprogramming kbmt KB124482 KbMtvi
Phản hồi