현재 오프라인 상태입니다. 인터넷에 다시 연결하기를 기다리고 있습니다.

필터링 된 목록에서 합계 값: PRJ 매크로

Office 2003에 대한 지원이 종료되었습니다.

Microsoft는 2014년 4월 8일 Office 2003에 대한 지원을 종료했습니다. 이러한 변경에 따라 해당 소프트웨어 업데이트 및 보안 옵션이 영향을 받습니다. 사용자에게 미치는 영향 및 계속 보호를 받는 방법에 대해 알아보십시오.

이 문서는 Microsoft 기계 번역 소프트웨어를 이용하여 번역되었으며 Microsoft Community에 의한 Community Translation Framework(CTF) 기술 혹은 사람이 번역한 내용에 의하여 사후 편집될 수 있습니다. Microsoft는 Knowledge Base에 있는 모든 문서에 다양한 언어로 접근할 수 있도록 하기 위하여 기계 번역, 사람에 의한 번역 및 커뮤니티가 편집한 내용을 모두 제공합니다. 번역된 문서는 어휘, 구문 및/혹은 문법에 오류가 있을 수 있습니다. Microsoft는 번역 오류로 인한 부정확성, 오류 및/또는 손해와 이를 고객이 사용하는 데에 대하여 책임을 지지 않습니다.

124482
요약
"추가 정보" 절의 매크로 예제 프로젝트이 문서에서는 숫자 값을 표시 하 고 표시 되는 작업 목록에서 합계를 계산합니다작업 목록 맨 아래에 행에서 전체.
추가 정보
Microsoft은 Visual Basic for Applications 프로시저에 대 한 예제 제공그림, 보증 표현 된 또는 묵시적인 포함 하 여,적합성의 묵시적된 보증에 국한 되지특정 목적을 위해. 이 문서에서는 Visual Basic 절차'있는 그대로' 제공 하며 Microsoft에서에서 사용할 수 있음을 보증 하지 않습니다.모든 상황입니다. Microsoft 지원 전문가 게 설명 하는 데 도움이 됩니다 되는 동안은특정 매크로를 기능을 이러한 예제를 수정 하지는 않습니다.추가 기능을 제공 하거나 매크로 생성 하는 데 도움이 됩니다.사용자의 특정 요구를 충족 합니다. 프로그래밍 경험을 제한 된 사용자Microsoft 솔루션 공급자 중 하나를 참조 하십시오 할 수 있습니다. 솔루션공급자는 다양 한 범위의 만들기 등 요금 기반 서비스 제공사용자 지정 매크로입니다. Microsoft 솔루션 공급자에 대 한 자세한 내용은Microsoft 고객 만족 센터 (800) 426-9400 호출 합니다.

다음 매크로 모두 표시의 번호 1 필드의 값 합계작업을 합니다. 이 매크로 실행 하면 "합계" 라는 새 작업을 만들어집니다.하 고 현재 프로젝트의 끝에 표시 합니다. 이 번호 1 필드작업은 모든 다른 표시에 대해 번호 1 값의 합계가 포함 됩니다.작업을 합니다.

Microsoft Project 2010과 2013

  1. 보기 리본에서 매크로 선택한 매크로 보기를클릭 하십시오.
  2. 이름 입력 "SumFilteredList를 클릭 하 고 만들기.
  3. 에 Visual Basic 편집기에서 열려 있는 Module1 다음 6 단계에서 코드를 복사 합니다.
이 매크로 사용 하려면 다음과 같이 하십시오.

  1. 테이블에 Gantt 차트를 사용 하는 작업 보기를 선택 합니다.
  2. 숨기 거 나 하위 작업이 표시 하거나 필터를 적용 하 여 합계를 계산 하 여 원하는 작업만 표시 합니다.
  3. 보기 리본에서 매크로선택 하 고 매크로 보기클릭.
  4. 매크로 목록에서 SumFilteredList를 선택한 다음 실행을 클릭 합니다.


Microsoft Project 98, 2000, 2002, 2003 및 2007
  1. 도구 메뉴에서 매크로를 가리킨 다음 매크로 클릭 합니다.
  2. 매크로 이름 필드에 SumFilteredList를 입력 합니다. 만들기를 클릭 합니다.
  3. Microsoft 프로젝트 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 프로젝트 4.x

  1. 도구 메뉴에서 매크로 클릭 합니다.
  2. 새로 만들기를 클릭 합니다.
  3. 매크로 이름 필드에 입력 합니다. SumFilteredList. 확인을 클릭 합니다.
  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				

경고: 이 문서는 자동 번역되었습니다

속성

문서 ID: 124482 - 마지막 검토: 04/29/2013 18:30:00 - 수정: 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 KbMtko
피드백